wordvbaに関しての質問です。

質問

wordvbaに関しての質問です。
Selection.CollapseEndの使い方について教えてください。
任意の文字を選択範囲の最後に加えて、選択範囲に加えようとしましたが、
選択範囲内に罫線(Table)がある時とない時では、結果が異なります。
選択範囲内に罫線があっても、同じ結果を得る方法を教えていただけないでしょうか。
うまくお伝えできないかもしれませんが、よろしくお願いします。
Sub Test()
Dim RngLen As Long
With Selection
RngLen = .Characters.Count
.Collapse wdCollapseEnd
.InsertAfter "abc"
.Collapse wdCollapseEnd
.MoveLeft unit:=wdCharacter, Count:=RngLen + Len("abc"), Extend:=wdExtend
End With
End Sub
テキストとワードの範囲指定が表現できないのカギカッコで範囲指定部分を示します。
範囲指定の最後に罫線がない場合、次の範囲指定で上記のプログラムを実行すると、
---
「123
　456
　789」
　　↓
---
「123
　456
　789
　abc」
しかし範囲指定の最後に罫線tableがあると（□□で代用します）、範囲が拡大されます。
---
「123
　456
　789
　□□」
　　↓
「---
123
　456
　789
□□
abc」

回答No.1

Wendy02 · ベストアンサー

うまく出来るかどうかは、こちらが、環境(罫線　+文字列）がきちんと把握しているということが条件ですからうまくいかないこともあります。以前、同じような質問で、他の回答者から、文句を付けられたことがありますが、それは、私が想定していたものと違うからに他なりません。だから、こちらが技術的にどうこうということではありません。

なお、Selection は、改行コードを含めているか、いないかによっても、挙動が変わりますので、それをチェックするようにしました。

'//
Sub LineFindInsert()
　Dim i As Long
　Const sTXT As String = "abc"
　With Selection
　　If InStr(Right(.Text, 2), vbCr) > 0 Then
　　　i = -1
　　Else
　　　i = 0
　　End If
　　.MoveEnd Unit:=wdCharacter, Count:=i
　　.InsertAfter String(1, vbCrLf) & sTXT
　　.MoveLeft Unit:=wdCharacter, Count:=0, Extend:=wdExtend
　End With
End Sub

お礼

ありがとうございました。このOkWaveは回答がいつも結構早いものですから、今回は全然反応がなくて途方にくれていました。
早速、実験すると大成功です。本当にありがとうございました。
今後ともよろしくお願いします。