如题所述
第1个回答 推荐于2016-11-03
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本回答被提问者采纳
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本回答被提问者采纳