मेरे पास यह मैक्रो है जो एक बड़े अक्षर को खोजने और उसे बदलने में सक्षम है। मैं चित्रों को खोजने और बदलने में सक्षम हूं (हेडर के भीतर), लेकिन जब मैंने इसे अपने मैक्रो कोड में लागू किया तो लगता है कि इसे अनदेखा करना और किसी भी चित्र को ढूंढना और बदलना नहीं है। मैं इस बात से अनिश्चित हूं कि कोई त्रुटि नहीं होने के कारण ऐसा क्यों है। कोई भी युक्ति सराहनीय होगी। धन्यवाद!!
Sub FindandReplaceTextPic()
Dim Directory As String
Dim FType As String
Dim FName As String
Directory = "C:\Users\pieria\Desktop\TempPics"
FType = "*.docx"
ChDir Directory
FName = Dir(FType)
' for each file you find, run this loop
Do While FName <> ""
' open the file
Documents.Open FileName:=Directory & "\" & FName
' search and replace the company name
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "CompanyA"
.MatchCase = True
.Replacement.Text = "CompanyB"
End With
Selection.Find.Execute Replace:=wdReplaceAll
'search and replace picture from clipboard
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^g"
.Replacement.Text = "^c"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
' save and close the current document
ActiveDocument.Close wdSaveChanges
' look for next matching file
FName = Dir
Loop
End Sub