Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

211 / 886

←次へ　｜　前へ→


	【698】Re:数値列タイトルを検出しページ更新

mimikoqa - 10/6/18(金) 11:17 -


	引用なし

	パスワード

▼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
の使い方を勉強し直す所存です。
有難うございました。厚く御礼を申し上げます。

1,246 hits

▼

【694】数値列タイトルを検出しページ更新 mimikoqa 10/6/16(水) 14:59