How to rename the word doc with the name mentioned in the body of the document

macropod · #25 11-24-2014, 04:21 AM

The code references 'TreatyStatement' because that's what you provided in your sample document and didn't indicate that it was variable. Accordingly, the simplest solution is to change:

Code:

      strNewNm = .SelectContentControlsByTitle("TreatyStatement/OurReference1")(1).Range.Text _
          & "_" & .SelectContentControlsByTitle("TreatyStatement/OurReference2")(1).Range.Text _
          & "." & Split(.Name, ".")(UBound(Split(.Name, ".")))

to:

Code:

      With .Tables(1).Cell(2, 2).Tables(1).Cell(3, 2).Range
        strNewNm = .ContentControls(1).Range.Text _
          & "_" & .ContentControls(2).Range.Text
      End With
      strNewNm = strNewNm & "." & Split(.Name, ".")(UBound(Split(.Name, ".")))

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to rename multiple Word file with same suffix	ozil61	Word VBA	2	05-06-2014 07:36 AM
How to specify Document Title from the body of my Document	SymphonyTomorrow	Word	9	08-05-2013 05:31 PM
Rename Document & Save	d4okeefe	Word VBA	4	05-23-2013 09:35 AM
How to import Word Style Headings and body text into Excel	antztaylor	Excel	5	11-08-2012 09:54 PM
Advancing Paragraph Numbers in Merge Document Body	Wyskers	Mail Merge	1	11-30-2011 04:46 AM