Tôi có macro này có thể thực hiện tìm kiếm hàng loạt và thay thế trên nhiều tài liệu từ. Tôi có thể thực hiện tìm và thay thế cho ảnh (trong một tiêu đề) nhưng khi tôi triển khai nó trong mã macro của mình, nó dường như chỉ bỏ qua nó và không tìm và thay thế bất kỳ ảnh nào. Tôi không chắc tại sao đây là trường hợp vì không có lỗi. Bất kỳ lời khuyên sẽ được đánh giá rất cao. Cảm ơn!!
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