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

gmayor · #16 11-21-2014, 03:55 AM

If that is a representative view of your nested tables then

Code:

Dim oTable As Table
Dim oTable2 As Table
Dim oCell As Range
Const strPath As String = "" 'Put the folder path here e.g. "C:\Path\"

    Set oTable = ActiveDocument.Tables(1)
    Set oTable2 = oTable.Range.Cells(4).Tables(1)
    Set oCell = oTable2.Range.Cells(6).Range
    oCell.End = oCell.End - 1
   ActiveDocument.SaveAs Filename:=strPath & Replace(oCell.Text, "/", "") & ".docx"

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