Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

1000 Ayracı

22 views
Skip to first unread message

Özgür Çelik

unread,
Dec 22, 2003, 5:26:39 PM12/22/03
to
Excel'de çok kolay olarak yaptığımız bin ayracını Word'de nasıl
yapabiliriz?Belgemizdeki bütün rakamlar 123456789 ==>123.456.789' a
dönüşsün.


Tufan Kartal

unread,
Dec 26, 2003, 4:01:07 PM12/26/03
to
Tablo/Formül/Sayı Biçimi "#.###"
Ekle/Alan [ \# Sayısal Gösterim] "#.###" >>>> F1 (Yardım)


"Özgür Çelik" <oce...@hotpop.com>, iletide şunu yazdı
news:e8nsppNy...@TK2MSFTNGP09.phx.gbl...

Haldun Alay

unread,
Dec 27, 2003, 10:54:52 AM12/27/03
to
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.
 

 
"Özgür Çelik" <oce...@hotpop.com>, iletide şunu yazdı news:e8nsppNy...@TK2MSFTNGP09.phx.gbl...
0 new messages