Word VBA質問箱 IV

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

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


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

76 / 886

←次へ　｜　前へ→


	【835】Re:各ページ各行それぞれ違う文字列の挿入

亀マスター - 18/2/6(火) 19:41 -


	引用なし

	パスワード

カーソル位置がページ最終行かどうかについては、それを直接判定する方法はないようです（私ではわからない＆探しても見つけられなかった）

ですので、私ならどうするかですが、

１．現在のカーソル位置が何行目の何文字目かを記録
２．カーソルを次の行へ移動（最終ページの場合は動かない）
３．移動前と移動後の行番号を比較して、移動後の方が大きければ（同じページ内の次の行に移動している）最終行でない、同じか小さければ最終行と判定
４．元の位置にカーソルを戻す

という感じです。

何行目、何文字目というのは、
Selection.Information(wdFirstCharacterLineNumber)
Selection.Information(wdFirstCharacterColumnNumber)
で取得できます。

具体的なコードですが、こんなものでどうでしょう。

Dim tempLine As Long
Dim tempColumn As Long

tempLine = Selection.Information(wdFirstCharacterLineNumber)
tempColumn = Selection.Information(wdFirstCharacterColumnNumber)

Selection.Move wdLine, 1

Select Case Selection.Information(wdFirstCharacterLineNumber)
　　Case Is < tempLine
　　　　Selection.Move wdLine, -1
　　　　Selection.Move wdCharacter, tempColumn - 1
　　　　※最終行だった場合の処理※
　　Case tempLine
　　　　Selection.HomeKey
　　　　Selection.Move wdCharacter, tempColumn - 1
　　　　※最終行だった場合の処理※
　　Case Else
　　　　Selection.Move wdLine, -1
　　　　Selection.Move wdCharacter, tempColumn - 1
　　　　※最終行でなかった場合の処理※
End Select

301 hits

▼

【829】各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/2(金) 10:58