如何使用宏在MS Word中添加表格标题？

Question

尊敬的所有人，我试图将字幕修改为MS Word中现有的100个表格，并避免这个单调乏味的过程，我希望能够使用内置的VB宏功能。

例如，如果我的表是文档里面的内容中的部分：
1.1目标

我想表格标题与“简介修改

1. 简介 - 目标。因此，如果表格标题已经是“表1-1”我希望它改为：

   表1-1介绍目标

   宏运行后，这可能吗？怎么样？

   谢谢！

Answer 1

下面的脚本是一个批处理过程，它对文件夹中的所有Word文件执行查找/替换例程。

Sub FindReplaceAll() 
    Dim MyDialog As FileDialog, GetStr(1 To 100) As String 
'100 files is the maximum applying this code 
    On Error Resume Next 
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) 
With MyDialog 
     .Filters.Clear 
     .AllowMultiSelect = True 
     i = 1 
     If .Show = -1 Then 
      For Each stiSelectedItem In .SelectedItems 
       GetStr(i) = stiSelectedItem 
       i = i + 1 
      Next 
      i = i - 1 
     End If 
     Application.ScreenUpdating = False 
     For j = 1 To i Step 1 
Set Doc = Documents.Open(FileName:=GetStr(j), Visible:=True) 
Windows(GetStr(j)).Activate 
      Selection.Find.ClearFormatting 
      Selection.Find.Replacement.ClearFormatting 
      With Selection.Find 
       .Text = "Marriott International" 'Find What 
       .Replacement.Text = "Marriott" 'Replace With 
       .Forward = True 
       .Wrap = wdFindAsk 
       .Format = False 
       .MatchCase = False 
       .MatchWholeWord = False 
       .MatchByte = True 
       .MatchWildcards = False 
       .MatchSoundsLike = False 
       .MatchAllWordForms = False 
      End With 
      Selection.Find.Execute Replace:=wdReplaceAll 
Application.Run macroname:="NEWMACROS" 
ActiveDocument.Save 
      ActiveWindow.Close 
     Next 
     Application.ScreenUpdating = True 
    End With 
    MsgBox "operation end, please view", vbInformation 
End Sub 

'这个想法来自这里。

'https://www.extendoffice.com/documents/word/1002-word-replace-multiple-files.html