• ベストアンサー

Wordで文字種変換(全角→半角)のマクロ

imogasiの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

範囲選択が行われて無いか、不適当では無いですか。Selection.・・からマクロが始まっているとか。 Selection.WholeStory(全文選択の意味ですが。)をマクロの最初に入れてみて実行してどうなりますか。 エクセルのようにセルと番地が明確な仕組みでなくて、ワードは範囲選択が色々ありプログラムの制御は難しい場合も多いので、人間側の操作に範囲選択を残さざるをえないこともあろう。

tomomo20
質問者

お礼

imogasi様 ご解答ありがとうございました。 私の記録したマクロのコードを見ましたら Sub hankaku() Selection.WholeStory WordBasic.FormatChangeCaseFareast Type:=0 End Sub となっており、imogasi様のおっしゃるようにSelection.WholeStoryは最初にきているのですが、実行しても何もおきない状態となっております。 やはり手動でテキストを全選択し、メニューの「書式」→「文字種の変換」→「全角/半角オプション」で「半角に変換する」しかないのでしょうか。。 ワードはなかなかプログラムの制御は難しいのですね。勉強になりました。ありがとうございます。

関連するQ&A

  • ワードで数字の全角を半角に(カタカナは全角のままで)変換するには?

    ワードに100ページの文章があります。全角数字が散在しています。全角数字を半角に直したく、半角操作をかけるとカタカナも半角に変換されてしまいます。数字だけ変換されるようにするには、どのようにしたらいいのでしょうか。ワードの、書式メニュー→文字種の変換→半角、で操作をおこないました。

  • Wordマクロでテキストボックス内を含み英数半角・カタカナ全角変換する方法

    Word2003でメイン文書(テキストボックスが多い)とヘッダー/フッタ付き文書(比較的ページ数が多い)で、(1)英数全角文字と一部の全角記号(「,」と「-」と「.」)を半角に、(2)半角カタカナを全角に変換しています。 現在の作業方法は、検索のオプションで「ワイルドカード」を使用したパターン検索を行い、それぞれ「メイン文書」「メイン文書内テキストボックス」「ヘッダー/フッター」領域を検索し、「文字種の変換」で上記(1)(2)の変換をしています。 この作業を「マクロの記録」を使って、マクロを作成し、効率化しようと色々と試しましたが、マクロの知識がまったくないせいか、それとも「記録」機能の限界なのか「エラー」がでて、うまくいきませんでした。 そこで、このサイトで「QNo.1479314」(2005年6月)で二人の方がマクロを紹介していたので、試用させていただきましたが、通常の文書内は問題ないのですが、テキストボックス内、ヘッダー/フッター内は変換されないようでこまりはてています。 上記(1)、(2)の一括変換(英数文字は一部の記号を含む)がテキストボックスを含んで(ヘッダー/フッターは除いても可)できるマクロを教えていただけると、大助かりなのですが・・・・。 よろしくお願いします。

  • Wordの文字を全角→半角に一括変換したい。

    Wordの文章の中に、全角文字と半角文字が混在しているので、一括して全角文字を半角文字に変換できないでしょうか? Excelではマクロがあり、便利なのですがWordでもあればいいなと思い。質問しました。 お知恵を拝借できればうれしいです。 (参考)Excelのマクロ http://www.morgan.co.jp/kiso/6excel-5.htm

  • ワードで選択範囲の半角数字を全角にするマクロ

    ワード2007です。選択範囲の半角数字を全角にするマクロ、あるいは選択範囲の全角数字を半角にするマクロを教えてください。エクセルだったら作れたのですが、ワードではうまくいきません。全文に関して変換するのではなく、選択部分だけ変換を一発でして、止まってほしいのです。

  • 【(半角数字)】を【(全角数字)】に一括変換するワードマクロはありませ

    【(半角数字)】を【(全角数字)】に一括変換するワードマクロはありませんか? 特許翻訳をしています。 文章中の英数字が半角指定されているのですが、例外として段落番号など【】内にある数字は全角指定です。 手作業で全角に変換していますが、該当箇所がとても多くて手間がかかります。 一気に変換できるワードマクロはありませんか? 具体的には、例えば【0046】を【0046】にしたいのです。 【】内の数字は基本的には4桁です。 よろしくお願いします。

  • ワードで、全角のアルファベットと記号を半角にするマクロを使用したいので

    ワードで、全角のアルファベットと記号を半角にするマクロを使用したいのですが、「~」だけは「~」と変換させずに全角のままにする必要があります。[!-~]で指定すると「~」も変換されてしまいます。どのように範囲を指定したらよいのでしょうか。

  • 半角カナは全角カナに、全角英数字は半角英数字に、一気に置換したい

    「半角カナは全角カナに、全角英数字は半角英数字に、一気に置換したい」と考えた時、同じ様な質問とそれに対する回答は沢山有るのですが、意外に満足出来るやり方が見つからず、大変困っています。 大きな制約条件(これが難題...)として、会社が管理するWindows機なので、使って良いのはWordとExcelだけだという問題が有ります(便利なユーティリティーソフトを見つけても、インストール出来ない)。WordとExcelのマクロは、辛うじて、使用可です。 WWWでWordでのマクロの作例を探し当て、これは良いかなと思ったら、小文字の全角英数字が全部大文字の半角英数字になってしまい、これは駄目でした。 また、Wordの「文字種の変換」を試用してみると、「半角」を指定してテキスト全体を選択して変換した場合、全角英数字が半角英数字になるのは良いのですが、全角カナが半角カナになってしまい、これも非常に不都合でした。 尚、主なターゲットは、ワークシートとかではなくて長文のテキストなので、色々な回答例で「Excelの関数を使えば良い」と書かれている説明を読むと、ちょっと不便だなと感じました。 Wordでのマクロで、完璧なものが有れば、OKなのだと思うのですが、自分には未だそれを作る能力が有りません(これを機に、勉強したいと思っています)。良い解決策や、マクロが有れば、是非お教え下さい。

  • WORDで、全角と半角を一括変換するとき

    Wordで作成した文書にある全角のカタカナ・ローマ字を 半角に、またその逆に変換する作業を一括で実行できる 方法があれば、教えてください。 よろしくお願いします。

  • Wordで半角を全角に置換した部分を色づけしたい

    Word2000を使用しています。 文章中に半角と全角文字が混在しているので、半角文字を全角に統一したいと思います。「文字種の変換」で半角を全角に変換できますが、変換した部分を 着色してわかるようにすることはできないのでしょうか。 例えば、 「千代田区1-2-3 abcホール」を 「千代田区1-2-3 abcホール」 と変換したい。(『1-2-3 abcホール』の部分を着色) 個々の文字は「置換」で文字を指定すれば、「書式」で色をつけることができるのはわかったのですが、いちいち、文字を指定するのは大変です。いろいろ試したのですが、やはりこれはできないのでしょうか。

  • 半角・全角の変換できない

    キーボードの左上の「全角・半角変換」キーを押しても、A(直接入力) か 下線とA(半角英数)が交互に変わるだけです。以前のようにタスクバーに「あ」になりません。 タスクバーの「A]をクリックいしてプルダウンメニューの選択でひらがなに転換はできます。  「全角・半角変換」キーを押してひらがな(全角)、英数字(半角)を切り替えるにはどうしたらよいか教えてください。よろしくお願いします。