| |
▼H. C. Shinopy さん：
>8〜10桁の数字を検索し、その数字の前に改ページを
>追加するということでいいでしょうか？
>
>１．まず、テスト用の文書を用意し、下の文字列をコピーして貼り付け。
>
>12345678
>あああああああああああああ
>あああああああああああああ
>あああああああああああああ
>999999999
>あああああああああああああ
>
>２．[マクロの記録]で下記の文字列置換の手作業する。
>[検索する文字列]に「([0-9]{8,10})」、[置換後の文字列]に「^m\1」を指定する。
>[オプション]に[ワイルドカードを使用する]のチェックをONにする。
>[すべて置換]ボタンを押す。
>検索置換が終わったら、[検索と置換]ダイアログボックスを閉じて、[Del]キーを押す（すべて置換後に文書の先頭に戻るはずなので）。
>
>その結果がこれ↓。
>実際の文書で正しく動くかどうか…後は必要に応じて手直しして下さい。
>
>Sub Macro1()
>'
>' Macro1 Macro
>'
>'
> Selection.Find.ClearFormatting
> Selection.Find.Replacement.ClearFormatting
> With Selection.Find
> .Text = "([0-9]{8,10})"
> .Replacement.Text = "^m\1"
> .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
> Selection.Delete Unit:=wdCharacter, Count:=1
>End Sub
見事なご回答に感謝いたします。
何の手直しをすることなくcopy,pasteさせていただき実行させていただきました。
１９９９個の文書が一瞬のうちに処理され所望の改ページが出来上がりました。
全くの感激です。自分の力量不足を痛感し、改めまして
.Text = "([0-9]{8,10})"
.Replacement.Text = "^m\1"
.MatchWildcards = True
の使い方を勉強し直す所存です。
有難うございました。厚く御礼を申し上げます。
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
