〈Word〉VBAマクロの使い方(勉強中のメモです)

アルファベットを全角に変換したくて、VBAマクロに挑戦中です。

Visual Basicをクリック↓

「標準モジュール」を選び↓

白い空欄にコードをコピー。

左上のマークをクリックします。

試しに、

【1行マクロ】半角←→全角文字変換 | 特許翻訳 A to Z」を参考に

Sub zenkaku()
ActiveDocument.Range.CharacterWidth = wdWidthFullWidth
End Sub

をコピペしました。

実行したら↓

本一冊分のすべてのアルファベットが全角になりました。

大成功!

でも、これだとダメだと思うんですよね〜。

Excel VBAの変数を宣言する方法:Dim | UX MILK」を読んでみたいけど、理解できず。

ここまで〜


一度は諦めたのですが、下の記事を見つけて

コンパイルエラーと言われてしまいました。

あ、そうか、選択範囲を指定していないからか、と思ったんだけど

文字を選択しても、コンパイルエラーです。

どうして?

〈Word〉サンプル原稿

縦組み用サンプル原稿

(((半角)))→(全角)

<><>→〈〉

“”→〝〟

半角の!と?は→全角の!と?に

全角の!?は→半角の!?

/→/

%→%

&→&

半角の+-=は→全角の+−=

 行頭のスペース全角1つ^P^W→^P

  行頭のスペース全角2つ

   行頭のスペース全角3つ

 行頭のスペース半角1つ^P^W→^P

  行頭のスペース半角2つ

   行頭のスペース半角3つ

 目視

/ & % – .


半角ABCDEFGHIJKLMNOPQRSTUVWXYZ

半角abcdefghijklmnopqrstuvwxyz

全角ABCDEFGHIJKLMNOPQRSTUVWXYZ

全角abcdefghijklmnopqrstuvwxyz

〈Word〉作成したマクロを全文書対象のテンプレートにする(構成内容変更)

これが正しいかどうかはわからないのですが、いろいろ試した結果です。

構成内容変更をクリックし↓

コピー元の「NewMacros」を削除し↓

NewMacrosをコピーします。

よくわかりませんが、これでオリジナルのマクロを使うことができました。


オリジナルのマクロは、下の検索と置換です。

(半角)→(全角)
<><>→〈〉
“”→〝〟
半角の!と?は→全角の!と?に
全角の!?は→半角の!?
/→/
%→%
&→&
半角の+-=は→全角の+−=
 行頭のスペース全角1つを削除する ^P^W→^P
  行頭のスペース全角2つを削除する
   行頭のスペース全角3つを削除する
_行頭のスペース半角1つを削除する^P^W→^P
__行頭のスペース半角2つを削除する
___行頭のスペース半角3つを削除する
 

練習問題

  1. 40字かける5行
  2. ノンブル
  3. 行頭のスペースを削除
  4. (縦組みの書籍)すべての数字は全角に(InDesignで二桁を半角にします)
  5. すべての英語は全角に(編集中に、半角に変換します)
  6. 本文(段落あり)スタイル作成→適用
  7. 箇条書きスタイル作成(1字ぶら下げ)→適用
  8. 大見出しスタイル(20pt/G/オレンジ色/前後2行アキ)を作成→適用(空色の文字に)
  9. 中見出しスタイル(16pt/G/赤色/前後1行アキ)を作成→適用(青色の文字に)
  10. 小見出しスタイル(本文と同じpt/G/茶色/前1行アキ)を作成→適用(紫色の文字に)
  11. 強調文字スタイル(赤色)作成→適用(黄色い文字に)
  12. アキ行を削除

〈Word〉段落と箇条書き

赤い字の箇所を見てください。

段落なし↓

段落あり(1行目のみ1字下げ)※通常の本文です↓

段落なし(全体1字下げ)↓

段落なし(全体2字下げ)

段落なし(全体3字下げ)

箇条書き(1行目以外、1字下げ)↓