Команда выполняется только 1 раз

Set wordapp = CreateObject("word.Application")
wordapp.Visible = True
Set wb2 = wordapp.Documents.Open("C:\prot\rez.docx")
wb2.Application.ScreenUpdating = False
 
ThisWorkbook.Activate
ThisWorkbook.Sheets(2).Select
ThisWorkbook.Sheets(2).Range("A1:H" & s * 2 + 5).Select
Selection.Copy
'копирую таблицу из excel
wb2.Application.Activate
wb2.Application.Selection.MoveDown Unit:=wdLine, Count:=2
wb2.Application.Selection.PasteAndFormat (wdFormatOriginalFormatting)
'wb2.Application.Selection.SelectAll
'=========================ôîðìàòèðîâàíèå òàáëèöû================================
wb2.Application.EnableEvents = True
 wb2.Application.Activate
 wb2.Application.Selection.MoveUp Unit:=wdLine, Count:=3
  wb2.Application.Selection.Tables(1).Select
    With wb2.Application.Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(-0.2)
         .RightIndent = CentimetersToPoints(-0.2)
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
    End With
    DoEvents
    
 wb2.Application.Selection.Tables(1).Rows.SetLeftIndent LeftIndent:=-1.7, RulerStyle:= _
        wdAdjustNone
 wb2.Application.Selection.Tables(1).PreferredWidth = CentimetersToPoints(27.81)
 wb2.Application.Selection.Find.ClearFormatting
    wb2.Application.Selection.Find.Replacement.ClearFormatting
    With wb2.Application.Selection.Find
        .Text = "."
        .Replacement.Text = ","
        .Forward = True
        .Wrap = wdFindAsk
        '.Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    wb2.Application.Selection.Find.Execute Replace:=wdReplaceAll
    wb2.Application.Selection.Find.Execute Replace:=wdReplaceAll
    
 
wb2.Application.Selection.WholeStory
wb2.Application.Selection.Copy
ThisWorkbook.Activate
wb2.Close False