Thread: [Solved] Find & Replace Unique word
View Single Post
 
Old 05-12-2017, 11:21 AM
dwirony dwirony is offline Windows 7 64bit Office 2003
Advanced Beginner
  
Join Date: Oct 2016
Posts: 49
dwirony will become famous soon enough
Default Track changes
So you want to add lock protection + track changes to the code? Add this:

Code:
ActiveDocument.Protect Password:="password", NoReset:=False, Type:= _
wdAllowOnlyRevisions, UseIRM:=False, EnforceStyleLock:=True
Full macro:

Code:
Sub TrackChanges()
 
'replace password with whatever you want
 
    ActiveDocument.Protect Password:="password", NoReset:=False, Type:= _
        wdAllowOnlyRevisions, UseIRM:=False, EnforceStyleLock:=True
End Sub