Question

VBA问题，如何判断word文本的最后一个字符？或换行符？

Answer 1

Sub CheckSelction()
With Selection
If .Type = wdSelectionIP Then
If .Start = 0 Then
MsgBox "光标位于文档首"
ElseIf .Start = ActiveDocument.Content.End - 1 Then
MsgBox "光标位于文档末"
ElseIf .Characters(1) = Chr(13) Then
MsgBox "光标位于段尾"
ElseIf .Start = .Paragraphs(1).Range.Start Then
MsgBox "光标位于段首"
ElseIf .Information(wdFirstCharacterColumnNumber) = 1 Then
MsgBox "光标位于行首"
ElseIf .Characters(1).Information(wdFirstCharacterColumnNumber) = 1 Then
MsgBox "光标位于行末"
Else
MsgBox "光标位段落中"
End If
End If
End With
End Sub