質問: word98で漢文を書く方法。 word98を使用しているのですが、漢文を書く場合の書き方について質問 させていただきます。 原稿用紙のように縦書きにして書くようにページ設定して書きますが、漢文の 『レ点』や『一・ニ点』のような返り点の書き方がどうしてもわかりません。 『漢文の返り点』というものをwordで書く書き方をご存知の方がおりましたら、教えてくださらないでしょうか。 何か特別な設定などあるのでしょうか。 よろしくお願いいたします。
回答: wordvbaはどんなものか、研究のつもりで作ってみました。(初めてなので少し不安!) 縦書き文書を想定しています。初期入力時に約束事があります。(入力ルール) (1)初期入力時の送りがなには、全角カタカナまたは全角ひらがなを使用します。 これを全角カタカナの上付き文字にします。 (2)レ点等は、半角文字で入力します。マクロで全角の下付き文字にします。 レ → r または r で入力 一 → 1 で入力 二 → 2 で入力 三 → 3 で入力 上 → j または j で入力 中 → c または c で入力 下 → g または g で入力 (3)下付き、上付き文字のフォントサイズは好みのサイズを指定します。 (4)変換したい文書を選んでtest01を実行します。ご参考に。(word97で作成) ↓ここから(vbe画面で、標準モジュールを挿入して貼り付けます) const myfontsize = 14 '下付き、上付き文字のフォントサイズ sub test01() dim rg as range '選択した漢文 dim ct as integer '文字カウンタ dim pot as integer '返り点等の位置 set rg = selection.range for ct = 1 to rg.characters.count with rg.characters(ct) pot = instr("rr123jjccgg", strconv(.text, vbnarrow)) '送りがなを上付きにする if "ぁ" <= .text and .text <= "ヶ" then .text = strconv(.text, vbkatakana + vbwide) .font.size = myfontsize .font.superscript = true '返り点等をを下付きにする elseif pot > 0 then .text = mid("レレ一二三上上中中下下", pot, 1) .font.size = myfontsize .font.subscript = true end if end with next end sub