wordで段組み２段で連番で行番号振ると変になる！

質問

word2016で入力したリストが１ページに収まらなかったので
ページを２段組にしました。そこに行番号を入力しようとして

行番号を連番にしてやってみたところ画像のようになり、
２段目の段組みの方の番号がつぶれるというか表示されなくなります。

どのように設定すれば直りますか？
アドバイスよろしくおねがいします。(｀・ω・´)

回答No.3

imogasi · ベストアンサー

無駄な気もするが、言ってみる。
ワードの構成のしくみの誤解にあるようだ。
これを解説しているワードの市販本も少ないようだ。
以下コードはWEBで拾ったものです。
VBAを勉強すると、ワードの設計の考えが、少し見えてくるように思っている。
ーー
https://www.relief.jp/docs/word-vba-get-text-each-line.html
＞行の場合、DocumentオブジェクトからLinesコレクションを簡単に取得することはできません。行というのは段落や文と異なり、単なる見た目ですから、Windowオブジェクトから階層を辿って取得する必要があるのです。
ーー
行番号は、VBAでは下記のLineNumberingです。
行に番号を、視覚的に、機械的に振るもの。
Sub test01()
Set myDoc = ActiveDocument 'Documents("MyDocument.doc")
With myDoc.PageSetup.LineNumbering
.Active = True
.StartingNumber = 1
.CountBy = 1
.RestartMode = wdRestartContinuous
End With
End Sub
ーー
Sub 語句で検索()
Const SRCH = "方法"　’<--例としての語句
Dim rng As Range
Set rng = ActiveDocument.Range(0, 0)
rng.Find.Text = SRCH
Do While rng.Find.Execute = True
MsgBox _
rng.Information(wdActiveEndAdjustedPageNumber) & vbTab & _
rng.Information(wdFirstCharacterLineNumber)
Loop
End Sub
のように、語句のあり場所（行的に）は、Information(wdFirstCharacterLineNumber)で捉えられます。
ーー
一方段落の番号は,
段落が変わるごとに、文先頭に番号が振られ、番号数は１増えて行きます。
後で振る場合は。
Sub test03()
For Each prg In ActiveDocument.Paragraphs
prg.Range.ListFormat.ApplyNumberDefault
Next
End Sub
段落は、ワードシステムにとっては、意味のある区切りを、入力者が、いれていてくれるものという前提での仕組みです。
　日本では、特に初心者は、改行のためにENTERを使うことが多いため、その点で、段落意識も少なく、ズレていないかなと思う。

お礼

回答ありがとうございます。参考にさせていただきます。