
〈Illustrator〉箇条書き

正規表現は見よう見まね
アルファベットを全角に変換したくて、VBAマクロに挑戦中です。
Visual Basicをクリック↓
「標準モジュール」を選び↓
白い空欄にコードをコピー。
左上のマークをクリックします。
試しに、
「【1行マクロ】半角←→全角文字変換 | 特許翻訳 A to Z」を参考に
Sub zenkaku()
ActiveDocument.Range.CharacterWidth = wdWidthFullWidth
End Sub
をコピペしました。
実行したら↓
本一冊分のすべてのアルファベットが全角になりました。
大成功!
でも、これだとダメだと思うんですよね〜。
「Excel VBAの変数を宣言する方法:Dim | UX MILK」を読んでみたいけど、理解できず。
ここまで〜
一度は諦めたのですが、下の記事を見つけて
「VBAでカタカナ(または数字・英字・記号)のみを全角(または半角)にする – VBAの勉強を始めてみた」のコードをコピペしましたが、
コンパイルエラーと言われてしまいました。
あ、そうか、選択範囲を指定していないからか、と思ったんだけど
文字を選択しても、コンパイルエラーです。
どうして?
縦組み用サンプル原稿
(((半角)))→(全角)
<><>→〈〉
“”→〝〟
半角の!と?は→全角の!と?に
全角の!?は→半角の!?
/→/
%→%
&→&
半角の+-=は→全角の+−=
行頭のスペース全角1つ^P^W→^P
行頭のスペース全角2つ
行頭のスペース全角3つ
行頭のスペース半角1つ^P^W→^P
行頭のスペース半角2つ
行頭のスペース半角3つ
目視
/ & % – .
半角ABCDEFGHIJKLMNOPQRSTUVWXYZ
半角abcdefghijklmnopqrstuvwxyz
全角ABCDEFGHIJKLMNOPQRSTUVWXYZ
全角abcdefghijklmnopqrstuvwxyz
これが正しいかどうかはわからないのですが、いろいろ試した結果です。
構成内容変更をクリックし↓
コピー元の「NewMacros」を削除し↓
NewMacrosをコピーします。
よくわかりませんが、これでオリジナルのマクロを使うことができました。
オリジナルのマクロは、下の検索と置換です。
(半角)→(全角)
<><>→〈〉
“”→〝〟
半角の!と?は→全角の!と?に
全角の!?は→半角の!?
/→/
%→%
&→&
半角の+-=は→全角の+−=
行頭のスペース全角1つを削除する ^P^W→^P
行頭のスペース全角2つを削除する
行頭のスペース全角3つを削除する
_行頭のスペース半角1つを削除する^P^W→^P
__行頭のスペース半角2つを削除する
___行頭のスペース半角3つを削除する
「MSP ゴシック」のように、
フォント名に[P]が付されるフォントはプロポーショナルフォントです
https://www.y-shinno.com/characters-one-line-word/
知りませんでした。
赤い字の箇所を見てください。
段落なし↓
段落あり(1行目のみ1字下げ)※通常の本文です↓
段落なし(全体1字下げ)↓
段落なし(全体2字下げ)
段落なし(全体3字下げ)
箇条書き(1行目以外、1字下げ)↓