- Katılım
- 6 Mart 2008
- Mesajlar
- 282
- Excel Vers. ve Dili
- 2021 Türkçe
aşağıda word için hazırlanmış olan (lemruk) bul değiştir makrom var.
fakat ben bu işlemi aynı anda birçok kelime için yapmak istiyorum.
yani;
a1 ---> b1
a2 ---> b2
a3 ---> b3
a4 ---> b4
...
a15 ---> b15
olacak şekilde.
fakat ben bu işlemi aynı anda birçok kelime için yapmak istiyorum.
yani;
a1 ---> b1
a2 ---> b2
a3 ---> b3
a4 ---> b4
...
a15 ---> b15
olacak şekilde.
Kod:
Sub uc()
Set WD = CreateObject("word.Application")
WD.Visible = True
yol = ThisWorkbook.Path & subfolder
Dosya = Dir(yol & "\Tohum_yetistirici_Belgesi.doc*")
Do While Dosya <> ""
WD.Application.Documents.Open yol & "\" & Dosya
WD.Selection.Find.ClearFormatting
WD.Selection.Find.Replacement.ClearFormatting
With WD.Selection.Find
.Text = Range("a1").Text
.Replacement.Text = Range("b1").Text
.Forward = True
.Wrap = 1
End With
WD.Selection.Find.Execute Replace:=2
WD.ActiveDocument.Close True
Dosya = Dir
Loop
WD.Application.Quit
End Sub