Как добавить заголовки таблиц в MS Word с помощью макросов?

Question

Дорогой, все, что я пытаюсь внести в подписи к 100 существующим существующим таблицам в MS Word, и чтобы избежать этого утомительного процесса, я надеялся использовать встроенную функциональность VB Macro.

Например, если моя таблица находится внутри содержимого документа в разделе:

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