Kapalı Word Dosyasında Değişiklik Yapmak
 

Kapalı Word Dosyasında Değişiklik Yapmak
Kapalı Word Dosyasında Değişiklik Yapmak
Diyelimki onlarca word belgenizdeki bir kelimeyi bir başka kelime ile değiştirmek ve bunu hepsini tek tek açmadan yapmak istiyorsunuz. Alt + F11 yaparak word makroyu açıp aşağıdaki kodları oraya ekleyin. Kırmızı ve kalın (ZET) yazan kelime değişiklik yapmak için aradığınız kelime, ikinici olan ZETODA ise yerine yazılmasını isediğiniz yeni kelime.

Değişiklik yapılacak dosyalar aynı klasör içinde olması gerekli. Makroyu çalıştırdıktan sonra kontrol edilen dosya sayısı ve değişiklik hakkında bilgi veriyor.

----------------------------------------------------------------------

Sub Test()

'// Word dokumanında degisiklik yapmak zetoda //

Dim MyPath As String, MyFile As String
Dim No As Integer, x As Integer, i As Integer
Dim Msg1 As String, Msg2 As String
Application.ScreenUpdating = False
MyPath = ThisDocument.Path
MyFile = Dir(MyPath & Application.PathSeparator & "*.doc", vbDirectory)
Do While MyFile <> ""
If MyFile <> ThisDocument.Name Then
No = No + 1
Documents.Open MyPath & Application.PathSeparator & MyFile
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "ZET"
.Replacement.Text = "ZETODA"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
If .Execute Then x = x + 1
.Execute Replace:=wdReplaceAll
End With
End If
MyFile = Dir
Loop
For i = Documents.Count To 1 Step -1
If Documents(i).Name <> ThisDocument.Name Then
Documents(i).Close SaveChanges:=True
End If
Next
Application.ScreenUpdating = True
Msg1 = " Kontrol edilen dosya sayısı = " & No
Msg2 = x & " adet dosyada degistirme yapildi."
MsgBox Msg1 & vbCrLf & Msg2, vbInformation, "Rapor !"
End Sub