vba取消word图片下划线

若要使用 VBA 取消 Word 文档中图片下方的下划线，您可以尝试以下代码：

Sub RemovePictureUnderline()
    Dim pic As InlineShape
    
    For Each pic In ActiveDocument.InlineShapes
        pic.Range.Underline = wdUnderlineNone
    Next pic
End Sub

将此代码粘贴到 Word 的 VBA 编辑器中（按下 Alt + F11 可打开），然后运行该宏即可取消文档中所有图片下方的下划线。

请注意，这段代码将取消文档中所有内嵌图片的下划线。如果您只想取消特定图片的下划线，可以在循环中添加适当的条件判断语句。

相关问题

word vba取消选择

要取消 Word VBA 中的当前选择，请使用以下代码：

Selection.Collapse Direction:=wdCollapseEnd

这将折叠当前选择并将插入点移动到选择末尾的位置，从而取消选择。

word vba取消首行缩进

可以使用以下代码取消 Word 文档中选定段落的首行缩进：

Selection.ParagraphFormat.FirstLineIndent = 0

如果要取消整篇文档的首行缩进，可以使用以下代码：

ActiveDocument.Content.ParagraphFormat.FirstLineIndent = 0

请注意，这将取消整篇文档中所有段落的首行缩进。如果您只想取消某些段落的首行缩进，请先选定这些段落，然后运行第一个代码示例。