每个文档第4页 图片1 批量 替换图片2 报错 怎么解

rendiule01

Sub ReplaceImage()
    Dim myPath As String
    Dim myFile As String
    Dim myDoc As Document
    Dim myPage As Page
    Dim myShape As Shape
   
    '设置要替换的图片文件名和路径
    Dim oldImageName As String
    Dim newImageName As String
    oldImageName = "1.jpg"
    newImageName = "2.jpg"
   
    '设置要处理的文件夹路径
    myPath = "C:\Users\123\Documents\"
   
    '循环处理文件夹中的每个Word文档
    myFile = Dir(myPath & "*.doc")
    Do While Len(myFile) > 0
        Set myDoc = Documents.Open(FileName:=myPath & myFile)
        
        '获取第三页并遍历其中的所有形状
        Set myPage = myDoc.Content.Application.ActiveDocument.Sections(1).Range.Pages(4)
        For Each myShape In myPage.Shapes
            
            '如果形状是图片并且文件名与要替换的图片相同，则替换为新图片
            If myShape.Type = msoPicture And myShape.LinkFormat.SourceFullName Like "*" & oldImageName Then
                myShape.LinkFormat.SourceFullName = myPath & newImageName
            End If
        Next myShape
        
        '保存并关闭文档
        myDoc.Save
        myDoc.Close
        
        '处理下一个文件
        myFile = Dir
    Loop
End Sub

Documents.zip (1.97 MB, 下载次数: 4)

2023-3-15 09:03 上传

点击文件名下载附件

batmanbbs

首先没有page这个方法，其次，图形只能采用遍历整个文档的方式，因此：
删除： Set myPage = myDoc.Content.Application.ActiveDocument.Sections(1).Range.Pages(4)
For Each myShape In myPage.Shapes 修改  For Each myShape In ActiveDocument.Shapes