PC WORLD Online - Word İçin Faydalı Makrolar

Belgeye Bilgi Eklemek

Word belgenizi hakkında dosya adı, dosya uzunluğu, sözcük sayısı vs.. gibi bilgileri belgenin belli bir yerine eklemek mi istiyorsunuz. Çözüm aşağıdaki makroyu yazmak ve Word’e eklemek. Makromuz çalıştırıldığında ekleme noktasının bulunduğu yerden itibaren

* Belgenin başlığı
* Tam rehber ismiyle birlikte dosyanın adı
* Dosyanın boyutu
* Sayfa sayısı
* Sözcük sayısı

 gibi istatistiki bilgileri ekler. Bu bilgiler Word belgesinin içine dinamik alanlar olarak eklenmektedir. Bu alanları güncellemek için, alanın üzerine gidip sağ fare düğmesine basmak ve ekrana gelecek olan menüden “update field” (alanı güncelle) komutunu çalıştırmak yeterlidir.

Makro 2: belgebilgileri

Sub MAIN
Insert Chr$(13) + "Belge Bilgileri" + Chr$(13)
Insert "---------------" + Chr$(13)
Insert "Belge Başlığı: "
InsertField .Field = "TITLE"
Insert Chr$(13) + "Dosya adı: "
InsertField .Field = "FILENAME \p"
Insert Chr$(13) + "Dosya boyutu: "
InsertField .Field = "FILESIZE \k"
Insert " Kilobayt"
Insert Chr$(13) + "Sayfa sayısı: "
InsertField .Field = "NUMPAGES"
Insert Chr$(13) + "Sözcük sayısı: "
InsertField .Field = "NUMWORDS"
Insert Chr$(13) + "---------------" + Chr$(13)
End Sub