Sub 批量修改表格() Dim tempTable As Table Application.ScreenUpdating = False If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护，此时不能选中多个表格!" Exit Sub End If ActiveDocument.DeleteAllEditableRanges wdEditorEveryone For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges wdEditorEveryone ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Application.ScreenUpdating = True 将这个代码改为全选word里面的图片的下面一行文字的代码

下面的代码可以实现选择 Word 文档中所有图片下面的一行文字：

Sub SelectPicturesText()
    Dim pic As InlineShape
    Dim rng As Range
    
    Set rng = ActiveDocument.Range
    
    For Each pic In ActiveDocument.InlineShapes
        If pic.Type = wdInlineShapePicture Then
            rng.Collapse wdCollapseEnd
            rng.Move wdParagraph, 1
            rng.MoveEndUntil Chr(13)
            rng.Select
        End If
    Next pic
End Sub

这个代码会遍历文档中的所有 InlineShape 对象，如果这个对象是一个图片，则会将选择区域移到它下面的一行文字并选中。注意，这个代码只会选择下面的一行文字，如果你需要选择更多的内容，可以使用 MoveEnd 方法来扩展选择区域。