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

		Microsoft Office Forums > Microsoft Word > Word VBA
macro to change part of the name of an existing Word file

FAQ

Thread Tools

Display Modes

09-11-2018, 04:44 PM

macropod

Windows 7 64bit macro to change part of the name of an existing Word file

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,520

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]

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