Word dosyasına Makro ile dosya adını yazdırmak

[Sevgi34]

Private Sub Workbook_Open()
Range("A1").Value = ActiveWorkbook.Name
End Sub


yukarıdaki kodu Excel dosyasına yazdığımda dosya adı otomatik istediğim hücreye yazabildiğim gibi. Bu işlemi Word dosyasında yapmak istiyorum.

Word dosyamı ekledim. Konu = Dosya isminin olmasını istiyorum.
(Ancak dosya uzantısını yazmasın)

 

[alacatan]

Merhaba,
dosyanız ilişiktedir.

Yapılışı :
Ekle - Üstbilgi
Üstbilgi ve altbilgi araçlarından: hızlı parçalar
Açılan pencereden: alan.
Kategoriler :belge bilgisi.
alan adları :file name.
biçim : başlık biçimi

Kolay gelsin.

 

[Sevgi34]

Merhaba,
dosyanız ilişiktedir.

Yapılışı :
Ekle - Üstbilgi
Üstbilgi ve altbilgi araçlarından: hızlı parçalar
Açılan pencereden: alan.
Kategoriler :belge bilgisi.
alan adları :file name.
biçim : başlık biçimi

Kolay gelsin.

Ancak istediğim bu değil. Benim örnek dosyamdaki tablonun içine yazmasını istiyorum. üst bilgiye değil. ama cevap için teşekkür ederim.

 

[Sevgi34]

yardımlarınızı bekliyorum

 

[systran]

istediğin hücre içindeyken
EKLE -> hızlı parçalar --> ALAN; açılan pencereden "alan adlarından" File Name i seç, Biçimini seç. TAMAM.

 

[Sevgi34]

istediğin hücre içindeyken
EKLE -> hızlı parçalar --> ALAN; açılan pencereden "alan adlarından" File Name i seç, Biçimini seç. TAMAM.

sizin dediğinizi yaptım ama,
eklediğim dosyayı tekrar incelerseniz (değiştirdim)
1- dosya uzantısı da yazıyor.
2-tablonun içine yazmasını istiyorum . tam konu bölümüne

 

[systran]

dosya adını değiştridiğinde Makro1 i çalıştırmayı unutma.

 

[Sevgi34]

dosya adını değiştridiğinde Makro1 i çalıştırmayı unutma.

Merhaba,
bilmiyorum ama benim istediğim gibi olmadı yada ben bir hata yapıyorum.
Şöyle ki, dosya kapalı iken dosyanın ismini değiştirdiğimde ve dosyayı açtığımda otomatik olarak makro çalışsın ve dosya adını yazsın istiyorum.

yardımınızı bekliyorum. teşekkür ederim.

 

[Emir Hüseyin Çoban]

Merhaba,
bilmiyorum ama benim istediğim gibi olmadı yada ben bir hata yapıyorum.
Şöyle ki, dosya kapalı iken dosyanın ismini değiştirdiğimde ve dosyayı açtığımda otomatik olarak makro çalışsın ve dosya adını yazsın istiyorum.

yardımınızı bekliyorum. teşekkür ederim.

. . .

Müsadenizle systran,

Sevgi34, ekteki dosyayı inceleyiniz.

İşlem Sonucu:

. . .

 

[Sevgi34]

. . .

Müsadenizle systran,

Sevgi34, ekteki dosyayı inceleyiniz.

İşlem Sonucu:

. . .

Elinize sağlık hocam. çok teşekkür ederim. Harika

 

[zekiankara]

Word Dosya Adı

. . .

Müsadenizle systran,

Sevgi34, ekteki dosyayı inceleyiniz.

İşlem Sonucu:

. . .

Kolay Gelsin, Word Belgesinin içerisinde bir yere Dosya Adını ekletmek istiyorum.
Ancak dosya adını değiştirdiğimde dosyayı açıp işlem yapmadan değişmiyor.
Bunu Dosyayı açmadan nasıl yapabilirim acaba ..?
Örnek: Dosya adı Araba olsun, Dosya adını Ev diye değiştirdiğimde dosyanın içindeki Araba da Ev diye dosyayı açmadan otomatik değişir mi ?
Çok Teşekkürler ...