【最大10000ポイント】当たる!!質問投稿キャンペーン!

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

^g^p

^g ^p

にしたいわけです><

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

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

このQ&Aに関連する最新のQ&A

A 回答 (1件)

私の環境は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
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング