MS-WORD 総行数を知る / 野鳥観察　ノスリ

相変わらず、MS-WORDのマクロ手直しでずーっと頭を使っております。その間に、文書の総行数を知る必要が出てきました。試しに作成したものを一応心覚えとして書いておきます。

Private Function TotalLines() As Integer
Dim TP%, LperP%, LL%

With Selection
'文書の終わりへジャンプ
.EndKey unit:=wdStory, Extend:=wdMove
'最終ページの行数
LL = .Information(wdFirstCharacterLineNumber)
'総ページ
TP = .Information(wdNumberOfPagesInDocument)
'ページあたり行
LperP = ActiveDocument.PageSetup.LinesPage
End With
'総行数
TotalLines = LperP * (TP - 1) + LL
End Function

Sub Sample()
Dim TL%, TPara%
'総行数
TL = TotalLines
'総段落数
TPara = ActiveDocument.Paragraphs.Count

MsgBox TL & " 行/" & TPara & "段落"
End Sub

総行数と総段落数が等しければ、論理行数と表示行数が同じ、つまり、行が折り返すような段落がないことになります。

写真は薔薇の品種「カレイドスコープ」。万華鏡ですね。

-----------------------
東京港野鳥公園の続きです。海側でない観察舎、確か４号観察舎だと思いますが、そこに入ったところカメラマンたちが真剣なおももち。何だろうとは思いつつも、人に質問もせず、近くのヒヨドリとかを撮っていましたが...うっ、何か白っぽいものがとおーくの林にいる。これか？