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

**Prof. Dr. Sinsi** · 09-09-2012

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

09-09-2012	#1
Prof. Dr. Sinsi	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 ApplicationScreenUpdating = False MyPath = ThisDocumentPath MyFile = Dir(MyPath & ApplicationPathSeparator & "*doc", vbDirectory) Do While MyFile <> "" If MyFile <> ThisDocumentName Then No = No + 1 DocumentsOpen MyPath & ApplicationPathSeparator & MyFile With SelectionFind ClearFormatting ReplacementClearFormatting Text = "ZET" ReplacementText = "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 = DocumentsCount To 1 Step -1 If Documents(i)Name <> ThisDocumentName Then Documents(i)Close SaveChanges:=True End If Next ApplicationScreenUpdating = True Msg1 = " Kontrol edilen dosya sayısı = " & No Msg2 = x & " adet dosyada degistirme yapildi" MsgBox Msg1 & vbCrLf & Msg2, vbInformation, "Rapor !" End Sub