以前の記事「【コード】特許明細書の段落番号を連番にする」で、和文の特許明細書の段落番号を連続番号に変更するマクロを紹介しました。最近、お客様から、特定の開始番号に設定したいとの要望をいただきましたので作ってみました。今回紹介するマクロは、前回の記事に掲載されたマクロをベースにしていますが、オブジェクト変数を利用したり、段落番号の表記方法を変更したり若干修正してあります。このマクロでできること和文の特許明細書に対して実行します。段落番号の前に全角や半角のスペースが入っていたり、入っていなかったり。タブが入っている場合もあるかもしれません。(実行前)(開始番号を指定)全角でも半角でもかまいません。(実行後)指定した番号から番号が振り直されます。段落番号の直前に全角スペースが1つ挿入されるよう書式を統一します。マクロの解説IsNumeric関数を用いています。このインプットボックスでひらがなを入力しても元の入力画面に戻ります。17行目でString型で受けた値を、Integer型に型変換しています。この工程がなくてもVBAでは自動的に型変換しますが、このマクロでは明示しました。最初のワイルドカードを使用した置換で、段落番号の表記を統一します。“^p\1”新たに挿入する段落番号の書式を、60行目で設定します。ここで、StrConv関数を使って数字を全角にしたり、段落先頭に全角スペースを入れたり設定しています。“】”好みの書式に変更してみてください。誤りがあったため修正しました。ゼロで8ヵ国語翻訳できるナゾ(その1)とにかく、お買い得!今回も書籍紹介です。特許関連の文書の翻訳に関する書籍を選ぶときの方針の紹介です。最近何名かの方か...記事を読む【コード】キーワードの含まれる文章に下線をつけるWordマクロこの記事には改良版があります。本記事のコードに間違いが見つかりましたので修正しました。ワイルドカードの置換・検索を学びます。