[求助]对selection的帮助

ybird

请问版主和各位大虾：

在selection.information中可以得到所选内容所处的起始行列以及结束的页码，是否可以知道所选内容的开始页码和结束位置的行列值呢？

谢谢！

ykhy

既然这样，那么当选中内容为一个字符时，开始=结尾、结尾=开始。编程中使用这种极端情况并不少见，比如判断是否为空文档：

IF 开始=结尾 AND 结尾=开始 THEN MSGBOX "空文档"

ybird

感谢2楼的回复。不过要说明：

1 selection的内容不为空，同时至少大于一个字符，甚至需要跨页。

2 即使选中的内容为一个字符，那么开始<>结尾。

守柔

你以SELECTION为关键字,搜索一下回复贴子.很多贴子中,都有相似的答案.

简单地说,就是将一段SELECTION对象分解为两个RANGE对象,一个为SELECTIO对象的始点,一个为SELECTION的终点,然后分别使用RANGE对象的INFORMATION属性,获得所在页的页码和所在行的位置.

除非SELECTION.TYPE属性为wdSelectionIP(即为一个插入点),否则,END始终大于START.

如果你对以上问题,还不能理解,我再做个实例

ybird

感谢版主的提示，如能再提供一个实例，将不胜感谢！

ybird

是否设置一个range=activedocument.range(start:=selection.start,end:=selection.start+1)

另一个range=activedocument.range(start:=selection.end-1,end:=selection.end)

然后通过information来得到？

守柔

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-1 16:32:54 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim StartRange As Range, EndRange As Range With Selection If .Type = wdSelectionIP Then MsgBox "您没有选中文本!", vbOKOnly + vbInformation: Exit Sub 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 With End Sub '----------------------

ybird

谢谢版主！！！