| |
やっちゃん さん、こんにちわ。
>ワードのマクロは経験があまりなく、エクセル感覚で作成していますのでわかりにくいかもしれませんが。
文の最後はDocumentのEndで取得できますが、エクセル感覚で行くならLinesを使用したほうが感覚的につかみやすいかと思い、印刷ビュー（と単ページ限定）ですが、試してみました。
Sub Test()
Dim tp, objR As Rectangle, LL As Long, Lmax As Long
'表示→印刷レイアウト
With Application.ActiveWindow
tp = .View.Type '元のビュー
If tp <> wdPrintView Then .View.Type = wdPrintView
Set objR = .Panes(1).Pages(1).Rectangles.Item(1)
End With
'
Lmax = objR.Lines.Count
'下からループして、改行コードではないところを探す
For LL = Lmax To 1 Step -1
With objR.Lines.Item(LL).Range
If Len(.Text) > 1 Then '改行のみの行以外を探す
.Select '行選択
Selection.Collapse Direction:=wdCollapseStart '選択解除
Exit For
End If
End With
Next
'戻す
With Application.ActiveWindow
If tp <> .View.Type Then .View.Type = tp '元のビュー
End With
End Sub
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
- 09/10/2(金) 14:49 -
