Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

250 / 886

←次へ　｜　前へ→


	【652】Re:文の最後はどのようにして見つけるの？

りる - 09/10/11(日) 16:16 -


	引用なし

	パスワード

やっちゃんさん、こんにちわ。

>ワードのマクロは経験があまりなく、エクセル感覚で作成していますのでわかりにくいかもしれませんが。
文の最後は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

1,370 hits

▼

【651】文の最後はどのようにして見つけるの？ やっちゃん 09/10/2(金) 14:49