いつもお世話になってます。

質問

いつもお世話になってます。
早速質問なのですが、現在ワードで論文を作成しているのですが、論文の中身自体は順調なのですがフォーマットが非常にうるさく、一カ所一カ所修正していくのが大変なのでワードVBAで一気に修正したいと思っているのですが、いかんせんコードが掛けない・・・（そもそもやろうとおもうなと言わないで下さい・・・(´；ω；｀)　）
色々役に立つし、VBAを勉強しようとも思ったのですが、いかんせん提出までに時間がない！
ということで是非もしお時間がある方がいればコードを教えていただ期待と思い質問させていただきました。
以下行いたいマクロです

・半角数字のフォントを全てCenturyに変える。
・（）を数字のみ囲う場合は（）も半角Centuryに変える。

以上2つが行えるマクロのコードを教えていただければと思います。
よろしくお願いします。

回答No.1

conanthe · ベストアンサー

マクロでなくても、ワードの置換機能を使えばできます。

(1)Ctrl＋Hキーを押し、置換ダイアログを出す。
(2)「検索する文字列」に「([0-9])」と入力
(3)「置換後の文字列」に「\1」と入力
(4)「オプション」ボタンをクリック
(5)「ワイルドカードを使用する」にチェック
(6)「置換後の文字列」ボックスをクリック
(7)「書式」ボタンをクリック
(8)「フォント」をクリック
(9)「英数字用のフォント」を「Century」にする。
(10)「OK」をクリック
(11)「すべて置換」をクリック

そのままダイアログを閉じずに、、

(12)「検索する文字列」に「（([0-9]{1,})）」と入力
(13)「置換後の文字列」に「(\1)」と入力
(14)「すべて置換」をクリック

全角と半角の違いが重要ですので、検索・置換文字列はこの回答からコピーすることをお勧めします。

お礼

ありがとうございます。早速試してみます！