macro to change part of the name of an existing Word file

justinmo · #1 09-11-2018, 03:43 PM

I currently use the following macro to scrub, password protect, and save Word files. Each filename contains the text "(IU)". I would like to amend the macro so that it will also replace "(IU)" with "(CR)" in the filename, before saving it.

Sub ThirdPartyDocsScrubLockSaveClose()
'
' ThirdPartyDocsScrubLockSaveClose Macro
'
'

ActiveDocument.RemoveDocumentInformation (wdRDIDocumentProperties)
ActiveDocument.RemoveDocumentInformation (wdRDIDocumentServerProperties)
ActiveDocument.RemoveDocumentInformation (wdRDIContentType)
ActiveDocument.Protect Password:="12345", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=True
CommandBars("Restrict Editing").Visible = False
ActiveDocument.Save
ActiveDocument.Close
End Sub

macropod · #2 09-11-2018, 04:44 PM

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

justinmo · #3 09-11-2018, 06:08 PM

That worked. Thank you very much.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Inserting Only Part of File Name in Word	ClaireLivings	Word	1	04-14-2016 08:08 AM
how to make navigation part closed when we open our existing MS word document	Deniz	Word	1	02-28-2016 09:01 AM
Change color of existing borders for an existing table	JayUSA	PowerPoint	1	01-21-2016 04:21 PM
Change one page number in existing TOC Word 2013	MK-NY	Word	2	04-03-2014 03:59 AM
hey guys, need to edit a certain part of a word file but its greyed out	winter83	Word	0	08-17-2010 07:04 PM