Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Windows-Word-PowerPoint.... (http://www.excel.web.tr/forumdisplay.php?f=51)
-   -   Toplu Word Dosyalarında İçerik Değişikliği (http://www.excel.web.tr/showthread.php?t=166638)

SrSerhat 12-09-2017 11:02

Toplu Word Dosyalarında İçerik Değişikliği
 
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 12-09-2017 12:13

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

http://www.excel.web.tr/f51/kapaly-w...r-t133387.html

SrSerhat 12-09-2017 13:04

Alıntı:

leumruk tarafından gönderildi (Mesaj 716831)
Merhaba,
Örnek dosyayı word dosyalarının bulunduğu klasöre kopyalayıp içindeki makroyu çalıştırın.
Kod:

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

Alıntı:

leumruk tarafından gönderildi (Mesaj 908894)
Selamlar,
Bu işi makro ile yapabilirsiniz.
Verdiğim linkte benzer bir konu incelendi.

http://www.excel.web.tr/f51/kapaly-w...r-t133387.html


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

leumruk 12-09-2017 13:40

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

leumruk 12-09-2017 13:44

Alıntı:

SrSerhat tarafından gönderildi (Mesaj 908904)
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.


Saat 17:28

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.