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 = "Ağustos" .Replacement.Text = "Eylül" .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
internetten şöyle bir kod buldum
ama çalıştıramdım
bir klasördeki tüm word dosyalarında belli bir kelimeyi değiştirmek istiyorum
ağustos kelimesini
eylül kelimesi ile mesela
teşekkür ederim
internetten şöyle bir kod buldum
ama çalıştıramdım
bir klasördeki tüm word dosyalarında belli bir kelimeyi değiştirmek istiyorum
ağustos kelimesini
eylül kelimesi ile mesela
teşekkür ederim