Thread: [Solved] macro to change part of the name of an existing Word file
View Single Post
 
Old 09-11-2018, 04:44 PM
macropod's Avatar
macropod macropod is online now Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,342
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Try:
Code:
Sub ThirdPartyDocsScrubLockSaveClose()
With ActiveDocument
  .RemoveDocumentInformation (wdRDIDocumentProperties)
  .RemoveDocumentInformation (wdRDIDocumentServerProperties)
  .RemoveDocumentInformation (wdRDIContentType)
  .Protect Password:="12345", NoReset:=False, Type:=wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=True
  .SaveAs2 FileName:=Replace(.FullName, "(IU)", "(CR)"), AddToRecentFiles:=False
  .Close False
End With
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote