理解Selection

ningyong58

http://club.excelhome.net/thread-89768-1-1.html
守柔大侠的解释程序
Sub Example1()
  Dim StartRange As Range, EndRange As Range
  With Selection
    If .Type = wdSelectionIP Then
      MsgBox "您没有选中文本!", vbOKOnly + vbInformation:
      Exit Sub
    End If
    Set StartRange = ActiveDocument.Range(.Start, .Start)
    Set EndRange = ActiveDocument.Range(.End, .End)
    If VBA.Right(.Text, 1) = Chr(13) Then
       Set EndRange = ActiveDocument.Range(.End - 1, .End - 1)
       MsgBox "您选定区域的起始页码为" & StartRange.Information(wdActiveEndPageNumber) & vbCrLf _
       & "您选定区域的起始行号为" & StartRange.Information(wdFirstCharacterLineNumber) & vbCrLf _
       & "您选定区域的起始列数为" & StartRange.Information(wdFirstCharacterColumnNumber) & vbCrLf _
       & "您选定区域的结束页码为" & EndRange.Information(wdActiveEndPageNumber) & vbCrLf _
       & "您选定区域的结束行号为" & EndRange.Information(wdFirstCharacterLineNumber) & vbCrLf _
       & "您选定区域的结束列数为" & EndRange.Information(wdFirstCharacterColumnNumber), vbInformation
    End If
  End With
End Sub

得出结果为
您选定区域的起始页码为6
您选定区域的起始行号为22
您选定区域的起始列数为14
您选定区域的结束页码为6
您选定区域的结束行号为23
您选定区域的结束列数为12     64

ningyong58

http://msdn.microsoft.com/en-us/library/bb257726.aspx
Selection Object Members
Word Developer Reference


Represents the current selection in a window or pane. A selection represents either a selected (or highlighted) area in the document, or it represents the insertion point if nothing in the document is selected. There can be only one Selection object per document window pane, and only one Selection object in the entire application can be active.

选择当前窗口屏幕，让选择区高亮，如果在文件中没有被选中，则表示为插入点。

[ 本帖最后由 ningyong58 于 2010-1-23 07:08 编辑 ]