Ｗｏｒｄ９８で漢文を書く方法。

質問

Ｗｏｒｄ９８を使用しているのですが、漢文を書く場合の書き方について質問
させていただきます。
　原稿用紙のように縦書きにして書くようにページ設定して書きますが、漢文の
『レ点』や『一・ニ点』のような返り点の書き方がどうしてもわかりません。
　『漢文の返り点』というものをＷｏｒｄで書く書き方をご存知の方がおりましたら、教えてくださらないでしょうか。
　何か特別な設定などあるのでしょうか。
　よろしくお願いいたします。

回答No.6

nishi6

WordVBAはどんなものか、研究のつもりで作ってみました。（初めてなので少し不安！）
縦書き文書を想定しています。初期入力時に約束事があります。（入力ルール）

（１）初期入力時の送りがなには、全角カタカナまたは全角ひらがなを使用します。
　　　これを全角カタカナの上付き文字にします。

（２）レ点等は、半角文字で入力します。マクロで全角の下付き文字にします。
　　　レ　→　R　または　r　で入力
　　　一　→　1　　　　　　 で入力
　　　二　→　2　　　　　　 で入力
　　　三　→　3　　　　　　 で入力
　　　上　→　J　または　j　で入力
　　　中　→　C　または　c　で入力
　　　下　→　G　または　g　で入力

（３）下付き、上付き文字のフォントサイズは好みのサイズを指定します。
（４）変換したい文書を選んで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

お礼

わざわざプログラムを書いてさりありがとうございました。
参考にさせていただきます。