Kapalı word dosyalarında alt bilgi degiştirmek

[RedStar]

Excel makrosuyla kapalı word dosyalarında alt bilgi degiştirmel

Selam arkadaşlar kolay gelsin iyi ramazanlar.

Elimde bayagı fazla sayıda word belgesi var bu belgelerdeki alt bilgilerin hepsini silip tekrar hepsine istedigim bir alt bilgiyi yazdırmak istiyorum.1 tane program buldum kapalı birden fazla word belgesinde degişiklik yapıyor ama alt bilgiyi degiştirmiyor eski konulardan birinde excele makro yazarak word dosyalarının bulundugu klasoru göterip degişiklik konusu vardı.

Harddiskin d bölümünde yer alan klasörler içerisinde yer alan isimleri rakamlardan harflerden veya rakam ve harflerden oluşan kapalı word dosyalarını kontrol ederek içerisinde alt bilgi bulunan word belgelerindeki alt bilgiyi tamamen kaldırarak benim yaptıgım alt bilgiyi sayfalara koymama yarayacak bir excel makrosu için yardımlarınızı bekliyorum teşekkürler.

 

[leumruk]

Merhaba,
Örnek dosyayı word dosyalarının bulunduğu klasöre kopyalayıp içindeki makroyu çalıştırın.

Sub WD_Altbilgi()
bilgi = Application.InputBox("Altbilgi için veri girişi yapınız.", "ALTBİLGİ")
If bilgi = False Then Exit Sub

Set WD = CreateObject("word.Application")
WD.Visible = True

yol = ThisWorkbook.Path
Dosya = Dir(yol & "\*doc*")
Do While Dosya <> ""
WD.Application.Documents.Open yol & "\" & Dosya

WD.ActiveWindow.ActivePane.View.SeekView = 10
        WD.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
        WD.Selection.WholeStory
        WD.Selection.TypeText Text:=bilgi
WD.ActiveWindow.ActivePane.View.SeekView = 0

WD.ActiveDocument.Close True
Dosya = Dir
Loop

WD.Application.Quit
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[arşivist1]

sayın lemruk,

kodunuz çok kullanışlı değil.
elimdeki word dosyaları biraz karışık üst bilgi malum logo da var.
alt bilgi de ise daha karışık resim üstüne yazılar serpiştirilmiş

yukardaki kod yerine
örnek bir word dosyası oluşturulsa ve bu örnek.doc üzerinden diğer word dosyalarının tamamını değiştiren bir kod veya yöntem mümkün mü?
olursa pek çok kişinin büyük sorununu çözmüş olursunuz

 

[baydeniro]

Teşekkürler sayın leumruk.

 

[1903emre34@gmail.com]

kapalı dosyalarda üst bilgi değiştirme

Merhabalar

kapalı word dosyasında üst bilgi kısmında yer alan tarihi değiştirmek istiyorum makro kodu hakkında yardımcı olabilirmisiniz