Deleted text

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

dsc - 04 Nov 2004 13:18 GMT

Is there any way to test if text is market as deleted by track changes when
doing a "replace all" from a VBA macro?

Thanks for any assistance.

Reply to this Message

Helmut Weber - 06 Nov 2004 15:13 GMT

Hi,
how about this one?
Public Function HasDeletions(oDcm As Document) As Boolean
Dim oRvs As Revision
HasDeletions = False
If oDcm.Revisions.Count > 0 Then
For Each oRvs In oDcm.Revisions
If oRvs.Type = wdRevisionDelete Then
HasDeletions = True
Exit Function
End If
Next
End If
End Function
'---
Sub Test651()
MsgBox HasDeletions(ActiveDocument)
End Sub
---
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

Reply to this Message

Rate this thread: