7

Word 文書で書式設定を変更する必要があります。ドキュメント内のすべての画像を選択する必要があります。

Word文書内のすべての画像を選択するためだけにマクロ/オプションを提供してもらえますか(私はMS Office 2007を使用しています)。

4

1 に答える 1

3

すべての画像がIn Line with Textでない限り、すべての画像を一度に選択する簡単な方法はないと思います。そうである場合は、次の例を使用して、それらをループしてフォーマットの変更を行うことができます。

Dim iShape As InlineShape

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

写真や写真の周りのテキストをフォーマットするかどうかはわかりませんが、どちらか (または両方) を行うことができます。

画像がすべてIn Line with Textではない場合は、次の図に移動するために何かを作成する必要があります。

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

あなたが何をしようとしているのか正確にわかっていれば助かります。

于 2012-12-15T01:24:09.177 に答える