Toplu Word Dosyalarında İçerik Değişikliği

[SrSerhat]

Arkadaşlar aynı konu var mıydı bilmiyorum çok arama yaptım ama bulamadım. Var ise kusura bakmayın. Çalışmış olduğum iş yerinde yüzlerce Word dosyası var. Word dosyalarının içerisinde belli konular İmza atacak personeller vs değiştirilmesi gereken aynı cümleler,kelimeler mevcuttur. Bu Word dosyalarına toplu olarak değişiklik yapabileceğim bir yol var mıdır, Tek tek hepsini değiştirmek zor olmaktadır. Bu konuda acil olarak yardımlarınızı istemekteyim.

 

[leumruk]

Selamlar,
Bu işi makro ile yapabilirsiniz.
Verdiğim linkte benzer bir konu incelendi.

http://www.excel.web.tr/f51/kapaly-word-dosyasynda-bul-deoi-tir-t133387.html

 

[SrSerhat]

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

alt bilgi olan için işlemi yaptım değişiklikler oldu. Fakat benim istediğim alt bilgi değil içerisindeki değişiklik

Selamlar,
Bu işi makro ile yapabilirsiniz.
Verdiğim linkte benzer bir konu incelendi.

http://www.excel.web.tr/f51/kapaly-word-dosyasynda-bul-deoi-tir-t133387.html

bu konuya da baktım ama klasörün içerine attım bul ve değiştir dedim bulmuyor

 

[leumruk]

Verdiğim linkte 4. mesajda sorunuzun cevabı var. Linkte belirtilen diğer linke bakmışsınız.

 

[leumruk]

bu konuya da baktım ama klasörün içerine attım bul ve değiştir dedim bulmuyor

Az önce denedim, işlemde sıkıntı yaşamadım.