Макрос для Word

Для "родной" Wordовской таблицы
Установить курсор в ячейку с названием.
Sub Macros()
On Error Resume Next
Dim CellsAmount As Cells
Dim fileName As String
Set CellsAmount = Application.Selection.Cells
   If CellsAmount Is Nothing Then
       MsgBox "Не выделено ни одной ячейки"
       Exit Sub
   ElseIf CellsAmount.Count > 1 Then
       MsgBox "Выделено более одной ячейки"
       Exit Sub
   End If
fileName = ActiveDocument.Tables(1).Cell(CellsAmount(1).RowIndex, _
CellsAmount(1).ColumnIndex).Range.Text
fileName = Left(fileName, Len(fileName) - 2)
   With Application.FileDialog(msoFileDialogSaveAs)
       .InitialFileName = fileName
           If .Show = -1 Then
               ActiveDocument.SaveAs (.InitialFileName)
           End If
   End With
End Sub