Selam,
aşağıdaki makroyu bir modüle kopyalayıp
çalıştırırsan sayı formatını istediğin şekilde değiştirebilirsin.
Sub FormatNumbers()
On Error
Resume Next
Dim pWord As Range
Dim
pWords As Words
Set pWords =
ThisDocument.Words
cntword =
pWords.Count
For i = cntword To 1 Step
-1
Set pWord =
pWords.Item(i)
If
Len(Trim(pWord.Text)) > 3
Then
If
CDbl(Trim(pWord.Text)) <> 0
Then
If Err.Number = 0
Then
pWord.Text = Format(CDbl(Trim(pWord.Text)), "#,##0") + " "
'<< Buradaki sayı formatını değiştirmen
gerekebilir.
Else
Err.Clear
End If
End
If
End If
Next
End Sub
--
Kolay gelsin.
Haldun Alay
To e-mail me, please replace AT and DOT in my e-mail address with the
original signs.