Microsoft Office Forums - View Single Post - [Solved] How to rename the word doc with the name mentioned in the body of the document

gmayor · 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"