###word VBA 文章中の数字を全て+1する方法
wordのVBAにて、「カーソルより下に出てくる全ての数字に1を足す」という動作をさせるには、どうすればよいでしょうか?
言葉だと分かりにくいので、実際に例を記します
例
lang
1マリオは1歳 2(ここにカーソルがあるとする) 3ルイージは2歳 4クッパは3歳
vba使用後
lang
1マリオは1歳 2ルイージは3歳(この行以下の数字に+1される) 3クッパは4歳 4
「カーソルより下を検索する部分」と「数字に+1」をする部分が、私にとってネックとなっています。
何をすればいいのか、方向性も全く分からない状態です。
どなたかアドバイスいただけると助かります。
使えるか分からないけど、コードのテンプレートを記しておきたいと思います・・・
lang
1Sub pulse number() 2With Selection.Find 3 .Text = "([0-9]{1,3})" 4 .MatchFuzzy = False 5 .MatchWildcards = True 6 .Replacement.Text = "" 7 .Execute Replace:=wdReplaceAll 8End With 9Selection.Collapse Direction:=wdCollapseEnd 10End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/09/17 12:39