VBA: 在 ms-Word 中删除浮动图像的边框

Question

我有这段代码可以为我的 Word 文档中的所有图像添加边框。作为浮动形状的内联形状。工作正常。所有图像都有边框。但是我第一页的图片（比如Logo）也有边框。

谁能帮我提供删除首页浮动图片边框的代码？还是特定的形状？

谢谢。凯姆

Answer 1

Selection.Information(wdActivePageEnd) 命令可以为您提供当前页码，在您的情况下，您需要做的就是将当前选择点或工作范围设置为文档的顶部...和现在你知道你在第 1 页了。

第二个挑战是选择或将工作范围设置为仅第一页。我使用内置书签“\Page”。

第三个挑战是识别形状的类型，为此您使用 Shape.Type 属性。如果您要处理图像，请记住它们可以嵌入或链接，因此您必须使用两种属性类型。

最后，在您的问题中，您问的是如何删除边框。好吧，IMO，你不必删除它们，你只需隐藏它们。

这是示例代码，您可以研究并了解如何与现有代码集成。

Sub RemoveBorders()
Dim rng As Word.Range, shp As Word.Shape
Set rng = ActiveDocument.Content
rng.Collapse Word.WdCollapseDirection.wdCollapseStart
Set rng = ActiveDocument.Bookmarks("\Page").Range
For Each shp In rng.ShapeRange
    If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then
        shp.Line.Visible = False
    End If
Next
End Sub

VBA: 在 ms-Word 中删除浮动图像的边框

VBA: delete borders from floating images in ms-Word

vba

ms-word

shapes