kapalı word dosyasında bul değiştir

[arşivist1]

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

 

[arşivist1]

ilgilenebilir misiniz?

 

[Korhan Ayhan]

Forumda mesajınıza eklediğiniz kodları düz yazı biçiminde eklemişsiniz. Bu da mesajınızın okunmaz hale getirmiş.

Mesajınıza kod eklerken "#" şeklinde bir sembol göreceksiniz. Ona tıklayıp açılan tag içine kodlarınızı yazarsanız daha okunaklı ve düzenli görünecektir.

İlk mesajınızı buna göre düzenler misiniz?

 

[leumruk]

Merhaba,
İsteğinize göre excel dosyası üzerinden bir kodlama hazırladım. Örnek dosyayı ilgili klasöre kopyalayıp, dosya içindeki butona tıklayınız.

Private Sub CommandButton1_Click()
Label3.Visible = True
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.Selection.Find.ClearFormatting
    WD.Selection.Find.Replacement.ClearFormatting
    With WD.Selection.Find
        .Text = TextBox1.Text
        .Replacement.Text = TextBox2.Text
        .Forward = True
        .Wrap = 1
    End With
    WD.Selection.Find.Execute Replace:=2

WD.ActiveDocument.Close True
Dosya = Dir
Loop

WD.Application.Quit
Label3.Visible = False
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[arşivist1]

leumruk,

çok teşekkür ederim istediğimden daha kullanışlı yapmışsın

açtığım diğer konulara bi bakman mümkün mü? bir iki tanesinde çözüme ulaşımadım.

 

[nane]

Sn leumruk ben çalıştıramadım.
Hiçbir değişiklik yapmadı.

teşekkürler
Yb®

 

[arşivist1]

Sn leumruk ben çalıştıramadım.
Hiçbir değişiklik yapmadı.

teşekkürler
Yb®

ben çalıştırdım istediğimden güzel olmuş
arkadaşa tekrar teşekkür ederim.

makro ayarlarınızın düşük olduğunu varsayıyorum

ben, indirdiğim excel i değişiklik yapmak istediğim word dosyalarının bulunduğu klasöre koydum.

ordan açtım.

sonrası basit bir bul ve değiştir oldu
bir şaşkınlığım,
değişiklik yaptığı tüm word dosyalarını açtı değiştirdi sonra kapattı.
saniyeler sürdü

 

[sasa2424]

Hort yapıyorum ama kusura bakmayın bu kodları kullanıyorum ama benim sorunum antetli üst yazı ve alt yazı var buralarda değişiklik yapmıyor bi yardım edermisiniz

 

[leumruk]

Merhaba,
Linki inceleyin: http://www.excel.web.tr/f51/kapaly-word-dosyalarynda-alt-bilgi-degi-tirmek-t131756.html