选择word文档中的所有图像

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:="" 

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

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 

如果我们确切地知道你在做什么，这将有所帮助。