ms-word - 选择word文档中的所有图片

Question

关闭。这个问题是off-topic .它目前不接受答案。












想改善这个问题吗？ Update the question所以它是 on-topic对于堆栈溢出。

8年前关闭。




Improve this question




我需要在 Word 文档中进行一些格式更改。为此，我需要选择文档中的所有图像。

有人可以为我提供一个宏/选项来选择 Word 文档中的所有图像吗(我使用的是 MS Office 2007)。

Answer 1

我不相信有一种简单的方法可以一次选择所有图像，除非它们都是 与文字一致 .如果是，那么您可以使用以下示例循环它们以进行格式更改:

Dim iShape As InlineShape

For Each iShape In ActiveDocument.InlineShapes
    With iShape
        .Width = InchesToPoints(2)
        .Height = InchesToPoints(1.5)
    End With
Next iShape

我不确定您是否要格式化图片或图片周围的一些文本，但您可以做任何一个(或两者)。

如果图片不全 与文字一致 ，那么您可能想要围绕以下内容构建一些内容，从而将您移至下一个图形:

Selection.GoTo What:=wdGoToGraphic, Which:=wdGoToNext, Count:=1, Name:=""

与此代码的不同之处在于它将光标放在下一个图形的前面，但实际上并没有选择它，因此您需要添加到它。如果你想遍历整个文档，这里有一些代码可以做到这一点。它将找到每个图形并在它之前键入单词“Test”...直到它找不到更多图形为止。

Selection.HomeKey unit:=wdStory
Do Until ActiveDocument.Bookmarks("\Sel") = ActiveDocument.Bookmarks("\EndOfDoc")
    Selection.GoTo What:=wdGoToGraphic, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.MoveRight unit:=wdWord, Count:=1, Extend:=True
        If Selection.Type = 7 Then
            Selection.Collapse wdCollapseStart
            Selection.TypeText Text:="TEST"
            Selection.MoveRight unit:=wdWord, Count:=1, Extend:=False
        Else
            Exit Sub
        End If
Loop

如果我们确切地知道您要做什么，那将会有所帮助。