保護中: 〈miya〉シン報連相
〈Illustrator〉箇条書き
〈InDesign〉グリッドが変なときは、親ページを適用する。
〈Word〉VBAマクロの使い方（勉強中のメモです）
アルファベットを全角に変換したくて、VBAマクロに挑戦中です。
Visual Basicをクリック↓
「標準モジュール」を選び↓
白い空欄にコードをコピー。
左上のマークをクリックします。
試しに、
「【１行マクロ】半角←→全角文字変換 | 特許翻訳 A to Z」を参考に
Sub zenkaku()
ActiveDocument.Range.CharacterWidth = wdWidthFullWidth
End Sub
をコピペしました。
実行したら↓
本一冊分のすべてのアルファベットが全角になりました。
大成功！
でも、これだとダメだと思うんですよね〜。
「Excel VBAの変数を宣言する方法：Dim | UX MILK」を読んでみたいけど、理解できず。
ここまで〜
一度は諦めたのですが、下の記事を見つけて
「VBAでカタカナ（または数字・英字・記号）のみを全角（または半角）にする – VBAの勉強を始めてみた」のコードをコピペしましたが、
コンパイルエラーと言われてしまいました。
あ、そうか、選択範囲を指定していないからか、と思ったんだけど
文字を選択しても、コンパイルエラーです。
どうして？
〈Word〉サンプル原稿
縦組み用サンプル原稿
(((半角)))→（全角）
<>＜＞→〈〉
“”→〝〟
半角の!と?は→全角の！と？に
全角の！？は→半角の!?
/→／
%→％
&→＆
半角の+-=は→全角の＋−＝
行頭のスペース全角１つ^P^W→^P
行頭のスペース全角２つ
行頭のスペース全角３つ
行頭のスペース半角１つ^P^W→^P
行頭のスペース半角２つ
行頭のスペース半角３つ
目視
/ & % – .
半角ABCDEFGHIJKLMNOPQRSTUVWXYZ
半角abcdefghijklmnopqrstuvwxyz
全角ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ
全角ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ
〈Word〉作成したマクロを全文書対象のテンプレートにする（構成内容変更）
これが正しいかどうかはわからないのですが、いろいろ試した結果です。
構成内容変更をクリックし↓
コピー元の「NewMacros」を削除し↓
NewMacrosをコピーします。
よくわかりませんが、これでオリジナルのマクロを使うことができました。
オリジナルのマクロは、下の検索と置換です。
(半角)→（全角）
<>＜＞→〈〉
“”→〝〟
半角の!と?は→全角の！と？に
全角の！？は→半角の!?
/→／
%→％
&→＆
半角の+-=は→全角の＋−＝
行頭のスペース全角１つを削除する ^P^W→^P
行頭のスペース全角２つを削除する
行頭のスペース全角３つを削除する
_行頭のスペース半角１つを削除する^P^W→^P
__行頭のスペース半角２つを削除する
___行頭のスペース半角３つを削除する
〈Windows〉等幅フォントとプロポーショナルフォントの見分け方
「MSP ゴシック」のように、
フォント名に［P］が付されるフォントはプロポーショナルフォントです
https://www.y-shinno.com/characters-one-line-word/
知りませんでした。
練習問題
- 40字かける5行
- ノンブル
- 行頭のスペースを削除
- （縦組みの書籍）すべての数字は全角に（InDesignで二桁を半角にします）
- すべての英語は全角に（編集中に、半角に変換します）
- 本文（段落あり）スタイル作成→適用
- 箇条書きスタイル作成（１字ぶら下げ）→適用
- 大見出しスタイル（20pt／G／オレンジ色／前後２行アキ）を作成→適用（空色の文字に）
- 中見出しスタイル（16pt／G／赤色／前後１行アキ）を作成→適用（青色の文字に）
- 小見出しスタイル（本文と同じpt／G／茶色／前１行アキ）を作成→適用（紫色の文字に）
- 強調文字スタイル（赤色）作成→適用（黄色い文字に）
- アキ行を削除
〈Word〉段落と箇条書き
赤い字の箇所を見てください。
段落なし↓
段落あり（1行目のみ1字下げ）※通常の本文です↓
段落なし（全体1字下げ）↓
段落なし（全体２字下げ）
段落なし（全体３字下げ）
箇条書き（1行目以外、1字下げ）↓
