Word VBA質問箱 IV

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

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


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

212 / 886

←次へ　｜　前へ→


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

H. C. Shinopy - 10/6/18(金) 9:22 -


	引用なし

	パスワード

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

1,182 hits

▼

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