Подкорректировать макрос для удаления/вставки названия таблиц

Sub Удалить_название_таблицы_1()
'
' Удалить_название_таблицы_1 Макрос
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Название объекта") ' фильтр для поиска в определенном стиле
    With Selection.Find
        .Text = "Таблица*[А-Я]" ' выделяю до заглавной буквы Наименования
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend ' шифт влево, дабы снять выделение с _ _заглавной буквы 
    Selection.Delete Unit:=wdCharacter, Count:=1
 Do
        Selection.Find.Execute
        If Selection.Find.Found <> True Then Exit Do
        Selection.Delete
    Loop
End Sub

Sub Вставка_название_таблица()
'
' Вставка_название_таблица Макрос
'
'
    With CaptionLabels("Таблица")
        .NumberStyle = wdCaptionNumberStyleArabic
        .IncludeChapterNumber = True
        .ChapterStyleLevel = 1
        .Separator = wdSeparatorPeriod
    End With
    Selection.InsertCaption Label:="Таблица", TitleAutoText:="InsertCaption1", _
         Title:="", Position:=wdCaptionPositionAbove, ExcludeLabel:=0
    Selection.TypeText Text:=" "
End Sub