皆さん、半角を全角にしたいときは、どうしてますか？
まさか、いちいち、半角の文字を全角に打ち直してませんよね？(^0^;)
文章をコピペしてきたとき、全角と半角が混ざっている場合がありますが、
特許明細書では、カタカナなどは全角が求められているので、全角に直す必要があります。
その場合、ワードのある文字種機能が活躍！
下のように選択範囲を、好みの文字種に変換する機能があるんです！
（↑は、ワードのヘルプより引用）
しかし、いちいちマウスで文字種を変換する機能を呼び出すのがめんどくさい！
そこで、またまたマクロの登場です！
これが全角にするマクロです。
Sub 全角へ()
Dim pos As Long
Dim pos2 As Long
Dim myRange As Range
If Selection.Type = wdSelectionIP Then ‘テキストが選択されていない場合
Selection.WholeStory ‘ 全てを選択
End If
pos = Selection.Start
pos2 = Selection.End
Set myRange = ActiveDocument.Range(Start:=pos, End:=pos2) ‘ 全角にする範囲を指定
myRange.CharacterWidth = wdWidthFullWidth ‘ 選択範囲を全角にする
End Sub
このマクロでは、テキストを選択した状態でマクロを実行すると、選択した文字のうち全角に変更できる文字（半角数字、半角カタカナ、半角アルファベット）が全角に変わります。
当然、全角の文字は全角のままで、何もかわりません。
さらに、テキストを選択していない状態でマクロを実行すると、全ての文字を全角に変換します！！
なので、テキストをわざわざ全て選択する必要がなく、マクロを実行するだけで、全文を全角に変換してくれるので、楽ちんです！
文字種の変換をよく使う人は、是非お試しください！ (・ω・)／
