Blue_Fe@r
24-07-05, 01:48
Word penceresinin başlık çubuğunda açık olan dosyanın sadece adı yazar. Dosyanın sabit diskte bulunduğu konumun burada yazması çok daha bilgilendirici olur, ancak bu konuda Word’ün bir ayarı bulunmuyor. Bu yüzden Word şablonu NORMAL.DOT’a eklenecek bir Autoopen (Otomatik Açılma) Makrosundan yardım alacağız. Word’ü başlattıktan sonra, ile Visual-Basic-Düzenleyicisini açın. Açılan pencerenin solunda bulunan ufak “Project” penceresinde “Normal”i (NORMAL.DOT) seçin. Burada “Module”ü seçin. Eğer pencerede “Module” bulunmuyorsa, “Normal”e sağ tıklayın. “Insert, Module”ü ve sonra yeni açılan Module1 dosyasını seçin. Şimdi de Ana Pencerede şu üç satırı ekleyerek bir makro oluşturun :
Sub AutoOpen()
ActiveWindow.Caption=ActiveDocument.FullName
End Sub
Şimdi “File>Save Normal”i seçin. Artık bir Makro oluşturdunuz ve Virtual-Basic-Düzenleyicisini kapayabilirsiniz. Sırada Word’deki güvenlik önlemlerini makronuza uyumlu hale getirmek var. “Araçlar> Makro> Güvenlik”i seçin ve burada “Güvenilir Kaynaklar” sekmesi altındaki “Tüm yüklü eklentilere ve şablonlara güven”in yanındaki kutuyu işaretleyin. “Tamam”ı tıkladığınız anda Word Başlık Çubuğunda dosya yolunu gösterecektir. Eğer hala bir değişiklik olmadıysa “Araçlar> Makro> Makrolar”ı seçin. Burada “Makro Adı”nda “AutoOpen”ın seçili olmasını “Makro Yeri”nde de “Tüm etkin şablonlar ve belgeler”in seçili olmasını sağlayın. “Çalıştır”a tıkladığınızda sorununuz çözümlenmiş olacak.
Sub AutoOpen()
ActiveWindow.Caption=ActiveDocument.FullName
End Sub
Şimdi “File>Save Normal”i seçin. Artık bir Makro oluşturdunuz ve Virtual-Basic-Düzenleyicisini kapayabilirsiniz. Sırada Word’deki güvenlik önlemlerini makronuza uyumlu hale getirmek var. “Araçlar> Makro> Güvenlik”i seçin ve burada “Güvenilir Kaynaklar” sekmesi altındaki “Tüm yüklü eklentilere ve şablonlara güven”in yanındaki kutuyu işaretleyin. “Tamam”ı tıkladığınız anda Word Başlık Çubuğunda dosya yolunu gösterecektir. Eğer hala bir değişiklik olmadıysa “Araçlar> Makro> Makrolar”ı seçin. Burada “Makro Adı”nda “AutoOpen”ın seçili olmasını “Makro Yeri”nde de “Tüm etkin şablonlar ve belgeler”in seçili olmasını sağlayın. “Çalıştır”a tıkladığınızda sorununuz çözümlenmiş olacak.