Wordで文字種変換（全角→半角）のマクロ

#1の回答者です。 #2ののお礼に出てくる記録マクロを見る限り、WordBasic が出てきているようですが、全ドキュメントを半角に変換するというのは、まずありえないと思います。 ただ、.FormatChangeCaseFareast　は記録マクロに出てくるのかは知りませんが、そういうコマンドMSDNで（WordBasicでは関数）存在は確認していますが、コマンドとしては動かないはずですから、.FormatChangeCaseに、以下の引数を使うはずです。 5が半角 6が全角 後は、コマンドボタンに以下のマクロを登録すれば良いのではありませんか？ 変換したい部分をマウスで選択して、ボタンをクリックすればよいと思います。 Sub hankaku() 　　 WordBasic.FormatChangeCase Type:=5 End Sub もともと、何を半角にするという対象が明らかにされていませんので、#1で書いたマクロ自体は、無意味かもしれません。対象が決まっていないものに対しては、マウス選択すればよいわけで、おっしゃるように、コマンドを短縮する目的なら、既存のツールボタンをツールバーに貼りつけてもよいと思います。 ツール--ユーザー設定--コマンド--分類の中の「すべてのコマンド」 コマンドの中の「FormatChangeCase」を選択して、ツールボタンにドラッグすればよいです。他ダイアログまでは出せるようになります。 なお、Mac Office 2004は、VBAは使えるはずですが、 >コードの最初の1行目「Sub ReplaceFontWidh()」の部分が黄色になっています。 というエラーはこちらでは、分かりません。たぶん、VBAは、正しくVBAが動く状態ではないように思われますので、こちらでは、最初からの設定のような気がしますが、それはこちらでは不可能です。 #1のコードには問題ないはずですが、エラーの発生する可能性を見つけましたので、それは提示しておきます。 　.MatchFuzzy = False '←MatchWildcarsの前にをいれたほうがよいです。 　.MatchWildcards = True　 基本的には、ThisDocument モジュールか、そのDocument の標準モジュールに登録することを想定されています。Normal.dot に登録する場合は、ファイルが書き換えられるようになっているか、チェックしたほうがよいはずです。