ここから質問投稿すると、最大4000ポイント当たる!!!! >>

ワードで縦書きの原稿を書くとき数字は普通漢数字を使いますが、新聞記事などは算用数字が使われていることもたくさんあります。日付などがよい例です。「11月21日」というのをワードで縦書きに入力して変換すると「二十一」とか「二一」のように表記されるくらいです。新聞記事のように算用数字を半角にして「11」と「21」を縦に表記したいのですが、何かよい方法はないでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (3件)

WORDの問題ではなくIMEの変換の問題でしょう。


変換の選択肢に半角数字もあるはずですので、それを選んでください。
WORD上では、半角の数字は横向きに寝てますから、例えば「11」を選択状態にして、書式メニューの拡張書式-縦中横を行ってください。一括で以後すべての半角数字を変換するように指定することが出来ます。
    • good
    • 1
この回答へのお礼

ありがとうございました。うまくできました。

お礼日時:2005/11/21 21:37

そもそもWordは洋モノなので、日本人独特の要求にはこたえきれないところが多々あります。


縦書き関係は、ボロが出やすいところです。

どうしても、というならばWordArtで図形として
11

21

のように並べることは可能です。
算用数字は縦長長方形、漢字は正方形っぽく。
あくまでも文字の形をした絵ということで。
    • good
    • 1
この回答へのお礼

ありがとうございました。参考になりました。

お礼日時:2005/11/21 21:37

縦書きにしたい半角数字を選択し(例だと「11」をまとめて反転)、「書式>拡張書式>縦中横」を選んでください。

ご希望のように表示されると思います。
    • good
    • 0
この回答へのお礼

ありがとうございました。思うような原稿を書くことが出来ました。

お礼日時:2005/11/21 21:38

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q縦書きの数字の表記方法は?

例えば「21」を縦書きで表記する場合、「二一」と
「二十一」はどちらが正しいのでしょうか。
「10」の場合は「一〇」か「十」で悩みます。

Aベストアンサー

基本的に、どちらも間違いではない、ということになるとは思いますが、通常は
・二桁の場合は「二十一」というように、「十」を入れる。
・三桁以上の場合は「一二三」というように、「十」「百」を入れない
・ただし「千」「一万」といったような数の場合には、そのまま漢字で書く

というようにすることが多いですね。もともと日本語で書く時の本則は「百二十三」というように、「十」も「百」も入れるものです。各桁の数字だけ書く、というのは、算用数字の記載法を漢数字の記載に取り入れたための、いわば便方ですね。このほうが、算用数字に慣れた目には解りやすいし、文字数の節約になる(こういった表記は、活字印刷から始まっています。活字の場合、文字数がそのままコストに跳ね返ってきますので、新聞・出版業界では「123」を「一二三」とするような表記を採用したわけです)
漢字で(二人とか三人という意味の)「にさんにん」と書く場合、「二三人」と書いていたわけです。今でもそう書く人は少なくありません(今では「二、三人」と書く人も出てきていますが)。「23人」を漢字で書く時に「二三人」と書くと、この「二三人」が「にさんにん」のことなのか、「23人」のことなのか、曖昧になる。そのため、二桁だけは「二十三」というように「十」を入れて書こう、というのが暗黙の了解になっているわけです。

基本的に、どちらも間違いではない、ということになるとは思いますが、通常は
・二桁の場合は「二十一」というように、「十」を入れる。
・三桁以上の場合は「一二三」というように、「十」「百」を入れない
・ただし「千」「一万」といったような数の場合には、そのまま漢字で書く

というようにすることが多いですね。もともと日本語で書く時の本則は「百二十三」というように、「十」も「百」も入れるものです。各桁の数字だけ書く、というのは、算用数字の記載法を漢数字の記載に取り入れたための、いわ...続きを読む

Qワードで縦書き半角漢数字に出来ますか?

ワードで電話番号を打ち込みたいのですが、市外局番をカッコの中に半角漢数字と言うのでしょうか、上下に潰れた感じで入れたいのです。 
市外局番以降は、全角の漢数字で入力するので普通に入ります。

Aベストアンサー

潰したい文字を選択して、「文字の拡大縮小」アイコンで、倍率を選択すればできます。
「書式設定」ツールバー、「下線」アイコンの右にあります。

QWordの縦書きの差し込み印刷で数字を正しく表示させる方法

WordにExcelで作成したデータの差し込み印刷をしています。
この度、封筒に縦書きで住所を印刷することになりました。
エクセルから普通にデータを差し込むと数字が縦向きにならず横になってしまいます。
これを向きを縦にして印刷する方法があれば教えてください。

Aベストアンサー

回答番号:No.1です。
回答間違いでした。

こちらで
差込印刷で縦書き&漢数字に
http://www.relief.jp/itnote/archives/001624.php

Q差込印刷で算用数字を縦表示にしたい

エクセルに入っている1~20までの数字のデータを
ワードに差込印刷し縦書き表示にしたいのですが、
数字が90度傾いてしまいます。

たとえば



15


のように縦書きにするにはどうしたらいいでしょうか?

ちなみに数字を差込後ワード→ホーム→拡張書式→縦中横では
できませんでした。

ご存じの方がいらっしゃいましたら教えてください。
よろしくお願いします。

Aベストアンサー

2番です。

環境が整いましたので、「テキストボックス」でやってみました。(図参照)

あとは、テキストボックスの外枠の線を「色なし」にしてやればいいと思います。

Qエクセルで縦書きに設定した時に、数字は横書きにしたい。

エクセルで、セルを縦書きに設定した場合に、全角、半角問わず数字だけは横書きにしたいんですが出来ますか??教えてくださいm(_ _)m

Aベストアンサー

セル単位で簡単に設定する方法はありません。文字単位で設定する必要があり、すこし面倒ですが、それでもよければ....

(1)対象セルの「セルの書式設定」-「配置」タブで「方向」を(「縦書き」ではなく)「-90」度に設定する

(2)対象セルを編集状態にして、数字以外の文字列を選択してから「フォント」欄のフォント名の先頭に「@」をキー入力する(例:「MS Pゴシック」→「@MS Pゴシック」)

(3)数字以外の文字列すべてに(2)の操作を繰り返す

以上で、縦書きセルの中で、数字だけが横書き状態となります。

QWordで、1ページを丸ごと削除するには?

1ページしか必要ないのに、真っ白な2ページ目がその下に表示されてしまった場合、この余分な2ページ目を一括削除(消去)する為に、何かいい方法があるでしょうか?

Aベストアンサー

<表示されてしまった場合>
これはそれなりに理由があるわけで、改ページや改行によって、次のページにまで入力が及んでいる時にそうなります。
特に罫線で表を作成し、ページの下一杯まで罫線を引いたときなどには、よくなる現象です。

さて、メニューの「表示」で段落記号にチェックが入っていないと、改行や改ページなどの入力情報が見えず、白紙のページを全て選択→削除してもそのままということが良くあります。
1 改行マークが白紙のページの先頭に入っていれば、それをBackSpaceで消してやる。
2 罫線を使っている場合は、それでも効果がない場合がありますが、その時は行数を増やしてやる。
などの方法があります。

Qワードで算用数字を漢数字に変換するマクロについて

お世話になっております。

・ワードで算用数字を漢数字に変換する方法又はマクロを探しています。
・希望例: 22→二二、 100→一〇〇等
・以下のマクロを実行しましたが、全く反応がありません。
(マクロについてはずぶの素人です)

Option Explicit
Sub KanToNum()
Dim num As Integer, kan() As Variant
kan() = Array("〇", "一", "二", "三", "四", "五", "六", "七", "八", "九")
For num = 0 To 9
With ActiveDocument.Content.Find
.Text = kan(num)
.MatchByte = False
.Replacement.Text = num
.Execute Replace:=wdReplaceAll
End With
Next num
End Sub

マクロの修正を含めアドバイスをお願いします。
よろしくお願いします。

Aベストアンサー

>・ワードで算用数字を漢数字に変換する方法又はマクロを探しています。
たぶん、#1さんの引用先のコードは、マクロを探しているという目的なら十分かもしれません。ただし、その作者の方は、こうしたまな板の上に上げられることが望んではいないでしょうけれども、一度、点検したほうがよいのではないか、と思います。Word VBAは、情報が少ないので、自画自賛になり易いです。それは、私も含めてですが。

マクロを勉強しているということで、ご質問で出されたコードの問題点はどこにあるのか、ということでしたら、少し、コメントさせていただきます。

なお、
>(マクロについてはずぶの素人です)
ここでは、Word VBAは、大勢の方も素人だと思います。少し分かるようになると、誰も自信をもって教えているわけです。ただ、掲示板では、あまり根拠のない指摘とExcel VBAのコードをそのまま転用することだけは遠慮してもらいたい所です。

あくまでも、質問上のことですから、書かせてもらいますが、マクロの修正の前に、そのコードは、何かの見本があるでしょうか?みなさん、Word VBAでは同じようなスタイルになるような気がします。Excel VBAの影響でしょうか?Excel VBAのようには書かないほうがよいと思います。
大きくわけて2点あります。

 ActiveDocument.Content.

対象オブジェクトが違っています。置換は文字を対象としているのに、Rangeを対象にしているようです。もし、文字を対象にするなら、Selection を使うか、ActiveDocument.Content なら、一旦、Select してから、Selection で置換したほうがよいです。

次に、
 .Text = kan(num)
 .MatchByte = False
 .Replacement.Text = num
 .Execute Replace:=wdReplaceAll

Word VBAは、Find メソッドは、そんなに省略してはいけないのです。省略することがよいとExcel VBAでは間違って覚える人もいますが、Word VBAでは違います。Wordは、なるべくプロパティは省略しないほうがよいです。それをすると、昨日動いていたマクロが、今日は動かないということが出てきます。

私なら、簡単なことだけれども、格好が悪くても、オーソドックスな書き方をします。それが無難なのです。今回は、少し削りましたが、プロパティ全部を書いてもよいと思います。思わぬことがあるので、私は、最初、省略しないことにしています。

'//
Sub Kan2Num()
 Dim num As Integer
 Dim kan() As Variant
 kan() = Array("〇", "一", "二", "三", "四", "五", "六", "七", "八", "九")
 
 For num = 0 To 9
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find
   .Text = num
   .Replacement.Text = kan(num)
   .Forward = True
   .Wrap = wdFindContinue
   .MatchWholeWord = False
   .MatchByte = False
   .MatchWildcards = False
   .MatchFuzzy = True
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
 Next
End Sub

>・ワードで算用数字を漢数字に変換する方法又はマクロを探しています。
たぶん、#1さんの引用先のコードは、マクロを探しているという目的なら十分かもしれません。ただし、その作者の方は、こうしたまな板の上に上げられることが望んではいないでしょうけれども、一度、点検したほうがよいのではないか、と思います。Word VBAは、情報が少ないので、自画自賛になり易いです。それは、私も含めてですが。

マクロを勉強しているということで、ご質問で出されたコードの問題点はどこにあるのか、ということでした...続きを読む

Q算用数字(半角)から漢数字への変換(エクセル2000)

ワード2000で差し込み印刷をしたいと思っています。
しかし、2000ではエクセルから住所録を読み込む場合、
算用数字を読み込むと横で表示されてしまいます。
そこでエクセル2000で算用数字を漢数字に変換しなければなりません。
算用数字を漢数字に変換するのに簡単な方法はないですか?

私が考えている方法は、1~9の数字を検索して
漢数字に変換していく方法です。
住所の列だけを対象に一括で変換することはできないのでしょうか?
全ての範囲を対象とすると一括変換できるのですが、
郵便番号は算用数字のままでいいので、
変換する必要がないのです。

質問が分かりにくいかもしれないですが、
宜しくお願いします。

Aベストアンサー

???
>> 私が考えている方法は、1~9の数字を検索して
>> 漢数字に変換していく方法です。

これでできるでしょう。
例えばB列が住所であるなら,
B列を選択して,そのままの状態で,
「編集」→「置換」で
検索する文字列 1
置換後の文字列 一
「すべて置換」をクリック。

マクロを使う方法もありますが,大量のExcelファイルを短時間で処理する場合には良いかもしれませんが,
ほんの数ファイルのExcelファイルだとこれの方が早い気がします。

QWord 文字を打つと直後の文字が消えていく

いつもお世話になっています。
Word2000を使っているものです。
ある文書を修正しているのですが,文章中に字を打ち込むと後ろの字が消えてしまいます。
分かりにくいですが,
「これを修正します。」
という文章の「これを」と「修正します。」の間に「これから」という単語を入れたときに,その場所にカーソルを合わせて「これから」と打つと,
「これをこれからす。」
となってしまいます。
他の文書では平気です。
何か解決する方法があれば教えて下さい。

Aベストアンサー

入力モードが「挿入」(普通の入力)から、「上書き」になってしまっているのだと思われます。
キーボードに[Insert]というキーがあると思いますので、1度押してみてください。

Q差込印刷 縦書きで和暦(漢数字)表示にしたい

エクセルに入力されている西暦をワードに差し込みたいのですが、
西暦を和暦(漢数字)表示にして、なおかつ縦書きにしたいのですが
うまくいきません。

エクセルの日付が2014/8/6の場合

(1)ワードで文字の方向を縦書きに指定
(2)フィールドコートを
{ MERGEFIELD 日付 \@”ggge年M月d日”\v}

とすると









と表示されてしまいます。

どのようにしたら










と表示できるでしょうか?
よろしくお願いします。

Aベストアンサー

質問の日付形式だと、二通りの解釈ができます。

その1 和暦で\vスイッチは使わない場合

{ MERGEFIELD 日付 \@ "ggge年M月d日"} 
これを実行結果にすると「平成26年8月6日」になりますね。

和暦を漢数字にしたいだけなら、日付スイッチを書き換えます。

{ MERGEFIELD 日付 \@ "gggE年O月A日"}
これを実行結果にすると「平成二十六年八月六日」になります。
これなら縦書きでも問題なく表示できます。
http://www.relief.jp/itnote/archives/002375.php


その2 漢数字の西暦を表示する場合

{ MERGEFIELD 日付 \@ yyyy}で西暦の年(4ケタの数値のみ)にします。
これに漢数字にするスイッチの\* dbnum1を追加し、外側に年を記載。 

{ MERGEFIELD 日付 \@ yyyy \* dbnum1 }年
これを実行結果にすると、「二〇一四年」になります。
この後ろに{ MERGEFIELD 日付 \@ "O月A日" }を追加します。

{ MERGEFIELD 日付 \@ yyyy \* dbnum1 }年{ MERGEFIELD 日付 \@ "O月A日" }
これを実行結果にすると、「二〇一四年八月六日」となります。

差し込み印刷での縦書き用のスイッチ \v は、差し込んだデータ全体を
縦書きにしてくれますが、日付スイッチなどの他のスイッチとの併用は
できません。そのため、西暦のみ数値として取り出して、漢数字にする
スイッチをつけ、年は外側に配置させています。

質問の日付形式だと、二通りの解釈ができます。

その1 和暦で\vスイッチは使わない場合

{ MERGEFIELD 日付 \@ "ggge年M月d日"} 
これを実行結果にすると「平成26年8月6日」になりますね。

和暦を漢数字にしたいだけなら、日付スイッチを書き換えます。

{ MERGEFIELD 日付 \@ "gggE年O月A日"}
これを実行結果にすると「平成二十六年八月六日」になります。
これなら縦書きでも問題なく表示できます。
http://www.relief.jp/itnote/archives/002375.php


その2 漢数字の西暦を表示する場合

{ MERGEFIELD ...続きを読む


人気Q&Aランキング