word2007のマクロで

質問

ファイル上のいたるところに画像ファイルが挿入されているのですが、段落末にある画像ファイルのみを検索してその画像ファイルの右隣に全角スペースをおく。

^g^p
↓
^g　^p

にしたいわけです＞＜

こんなマクロは可能でしょうか？画像ファイルの右隣に全角スペースを置くのは画像ファイルを段落末にしないための措置です。

置き換えの記録ではできませんよね？

回答No.1

enunokokoro

私の環境はWord2002なので、Word2007での検証ができませんが
こちら↓のような記録マクロで対応できませんか？

Sub Macro1()
'
'ワイルドカードを使って図形＋段落記号を検索・置換
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(^g)^13"
.Replacement.Text = "\1　^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

マクロを使わなくても、[置換]ダイアログで[ワイルドカード]の
チェックを付けることで対応できると思いますよ。
　[検索する文字列]　(^g)^13
　[置換後の文字列]　\1　^p