happy

Question

ワード2019について質問です。

縦書きで俳句を100句入力しています。1句ごとに改行して入力し、1~100まで句の上に番号を振りたいと思っています。

俳句は縦書きにして文頭の数字のみ、1，2・・・100と横書きにしたいのですが、そのような場合はどうしたよいのでしょうか？

一つ一つを縦中横で変換するのは大変すぎてもっと効率よくできる方法はありますか？

1~9まではテンキーでも可能でしたが、10以降「10」の形にできません。

よろしくおねがいします。

Answer 1

この度は本当にご丁寧な返答を頂き、感謝しております。

上記方法にて早速作業してみたいと思います。

マイクロソフトのカスタマーセンターよりご丁寧な回答に、感激致しました。

Answer 2

手順は下記の通りとなります．尚，私はhappymarchさんがどの様にWordに俳句を入力なさっているか直接見た訳ではないので，どの様に俳句を入力なさっているかは推測してコードを書いております．従って，コードが予期しない動作をする可能性もあり得ますので，下記手順①に示します通り，今回の作業のためにファイルのコピーを予め作成し，オリジナルのファイルを確保しておいた上で，作成したコピーに対して操作を行って下さい．

①俳句が記載されているファイルのコピーを作成します．更に，必要に応じてコピーしたファイルの名前を変更します．

　　

　　

　　

　　

②手順①で作成したコピーを開きます．

　　

③「Alt」キーを押しながら「F11」キーを押してVisual Basic Editor (VBE)を開きます．

　　

④手順③で開いたVBEの左上にある「プロジェクトエクスプローラ」に表示されている「Project (ファイル名)」を右クリックします．

　　

⑤表示されたコンテキストメニューの「挿入」を選択し，サブメニューの「標準モジュール」を選択します．

　　

⑥プロジェクトエクスプローラの「Project (ファイル名)」の下に「標準モジュール」が追加され，更にその下に「Module1」が追加されるので，「Module1」をダブルクリックします．

　　

⑦ウィンドウ中央の部分にコードを書くスペースが表示されます．もし，「Option Explicit」と記載されている場合は削除します．

　　

　　

⑧私が前回の回答で記載したVBAコード（「Option Explicit」から「End Sup」まで）をコピーし，手順⑦で開いたコードを書くスペースにペーストします．

　　

　　

　　

⑨赤字の部分，すなわち

ThisDocument.Range(lPosition, lPosition + lLength).HorizontalInVertical = _ 

wdHorizontalInVerticalFitInLine

の部分がが上手く貼り付かない為，「HorizontalInVertical = _  」と「wdHorizontalInVerticalFitInLine」の間にカーソルを移動させ，「Enter」キーを押して改行して下さい．

　　

ちなみに，アンダーバーを削除し，且つ，１行で記述することも出来ます（アンダーバーを削除せずに１行で記述することは出来ません）．

　　

⑩ウィンドウ上部にある再生ボタンを押します．

　　

⑪再生ボタンの色がグレーから再生ボタンが元の色（緑色）に戻ったことを確認します（処理対象の量やPCの性能によっては速過ぎて再生ボタンが緑色から一旦グレーになり，緑色に戻る過程がが見えず，ずっと緑色のままであったかの様にに見える場合もあります）．

　　

　　

⑫ウィンドウ右上の×ボタンでVBEを閉じます．

　　

⑬Wordのウィンドウで，目的通り　通し番号部分が縦中横になっていることを確認します．

　　

⑭上書き保存のボタンを押します．

　　

⑮下図に示す様な警告が出るので「はい」ボタンを押して上書き保存します（１回限りの処理の為にマクロを使用したので，マクロを破棄し，縦中横の通し番号が付いた俳句のみを保存します）．

　　

以上です．

Answer 3

早速丁寧なご回答をありがとうございました。

大変申し訳ないのですが、ワード超初心者のため、VBAコードの入力方法がわかりません。

googleなどで調べたのですが、よくわかりませんでした。

お手数なのですが、入力方法を教えて頂けると助かります。

Answer 4

Wordのマクロを使うのが速いと思います．参考までに私の考えたVBAコードを以下に記載しておきます．

Option Explicit

Public Sub SampleProgram()

    Dim objRegExp As Object

    Dim prTarget As Paragraph

    Dim szText As String

    Dim lLength As Long

    Dim lPosition As Long

    Set objRegExp = CreateObject("VBScript.RegExp")

    With objRegExp

        .MultiLine = False

        .Global = True

        .Pattern = "^(\d+).+$"

        lPosition = 0&

        For Each prTarget In ThisDocument.Paragraphs

            szText = prTarget.Range.Text

            If .Test(szText) Then

                lLength = Len(.Execute(szText).Item(0&).SubMatches.Item(0&))

                ThisDocument.Range(lPosition, lPosition + lLength).HorizontalInVertical = _                                                             wdHorizontalInVerticalFitInLine

            End If

            lPosition = lPosition + Len(szText)

        Next prTarget

    End With

End Sub

Answer 5

こんにちは

その内容だと自動で振るのは難しいかと思います。

書式のテンプレートなどを作成するのはどうでしょうか。