[求助]一个奇怪的问题

ybird

请问各位大虾：

在“修订”功能启动后，如果删除了某些内容，如何知道删除的内容的起始行列和页码？谢谢！

守柔

只做了一个简单的示例,供参考:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-2 10:16:57 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [标准模块-NewMacros]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim StartRange As Range, EndRange As Range, MyRange As Range, StartPos As Long, EndPos As Long If ActiveDocument.Revisions.Count = 0 Then Exit Sub Set MyRange = ActiveDocument.Revisions(1).Range With MyRange If ActiveDocument.Revisions(1).Type = wdRevisionDelete Then Set StartRange = ActiveDocument.Range(.Start, .Start) Set EndRange = ActiveDocument.Range(.End + .Start - 2, .End + .Start - 2) 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 '----------------------

ybird

谢谢!

其实上次我问了关于selection的问题后就知道该如何处理这个问题了,只是在论坛无法删除自己的提问。很抱歉让版主费心。