Dim objWord As Object
Dim FileStart
Dim FileNew
Dim objSelection As Object

Set objWord = CreateObject("Word.Application")

    FileSt = ThisWorkbook.Path & "\Шаблоны\ваш шаблон.dotm"
    FileNew = Replace_symbols(Sheets("путик файлам").Cells(5, 2).Value)
    FileFolder = Replace_symbols(Sheets("путик файлам").Cells(3, 3).Value)
    'FileNew, FileFolder в моем случае берутся из ячеек, но кто же запрещает пути другим способом задать.
    Set objDoc = objWord.Documents.Open(FileSt)
    Set objSelection = objDoc.Content

      objWord.Visible = True
      objWord.Activate
' меняем номер страницы

objDoc.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = 10 'естественно 10 меняем либо на нужный номер либо на переменную, либо на значение ячейки смотря по задаче.

Sub Перезапись_формул_при_изменении_листа()
Dim Rng As Range, c, LastRow As Long
    Set Rng = Worksheets(1).UsedRange
    Set c = Rng.Find("ИТОГО:", LookIn:=xlValues)
    If Not c Is Nothing Then
        With c
            firstAddress = .Address
            i = 0
            Do
            Строка = c.Row
            Столбец = c.Column
      Лист2.Cells(Строка, Столбец + 1).FormulaLocal = "=СУММ(G" & строка1 + 1 & ":G" & Строка2 - 1 & ")"
      Лист2.Cells(Строка, Столбец + 2).FormulaLocal = "=СУММ(H" & строка1 + 1 & ":H" & Строка2 - 1 & ")"
      Лист2.Cells(Строка, Столбец + 3).FormulaLocal = "=СУММ(I" & строка1 + 1 & ":I" & Строка2 - 1 & ")"
      Лист2.Cells(Строка, Столбец + 4).FormulaLocal = "=СУММ(J" & строка1 + 1 & ":J" & Строка2 - 1 & ")"
      Лист2.Cells(Строка, Столбец + 5).FormulaLocal = "=СУММ(K" & строка1 + 1 & ":K" & Строка2 - 1 & ")"
      Лист2.Cells(Строка, Столбец + 6).FormulaLocal = "=СУММ(L" & строка1 + 1 & ":L" & Строка2 - 1 & ")"

                Set c = Rng.FindNext(c)
            Loop While Not c Is Nothing And .Address <> firstAddress
        End With
    End If
    LastRow = Cells(Rows.Count, 6).End(xlUp).Row
      If Cells(LastRow, Столбец).Value = "ВСЕГО:" Then Exit Sub
        лист1.Cells(LastRow + 1, Столбец).Value = "ВСЕГО:"
      Лист2.Cells(LastRow + 1, Столбец + 1).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";G1:G" & lLastRow & ")"
      Лист2.Cells(LastRow + 1, Столбец + 2).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";H1:H" & lLastRow & ")"
      Лист2.Cells(LastRow + 1, Столбец + 3).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";I1:I" & lLastRow & ")"
      Лист2.Cells(LastRow + 1, Столбец + 4).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";J1:J" & lLastRow & ")"
      Лист2.Cells(LastRow + 1, Столбец + 5).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";K1:K" & lLastRow & ")"
      Лист2.Cells(LastRow + 1, Столбец + 6).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";L1:L" & lLastRow & ")"
End Sub

Public intNom_pol As Integer
Public douKo As Double
Public objNompol1 As Object
Public objNompol2 As Object
' переменные задаются OptionButton. в объектных переменных текстбоксы.
Private Sub CommandButton1_Click()
Dim lonSumm As Long, lonMin As Long
lonSumm = (Val(objNompol1.Value) + Val(objNompol2.Value)) / 2
lonMin = Val(objNompol1.Value) - Val(objNompol2.Value)
douKo = CDbl(Format(Abs(lonMin / lonSumm * 100), "#,#0.0"))
Лист1.ComboBox4.Value = dabKo
End Sub

Private Sub OptionButton7_Click()
Rows(2).Hidden = False
Rows(6).Hidden = True
OptionButton1.Visible = 1
OptionButton2.Visible = 1
OptionButton3.Visible = 1
OptionButton4.Visible = 1
OptionButton5.Visible = 1
OptionButton6.Visible = 1
End Sub

Private Sub OptionButton8_Click()
Rows(2).Hidden = True
Rows(6).Hidden = False
OptionButton1.Visible = 0
OptionButton2.Visible = 0
OptionButton3.Visible = 0
OptionButton4.Visible = 0
OptionButton5.Visible = 0
OptionButton6.Visible = 0

End Sub

Private Sub Worksheet_Activate()
Dim s&
aCountry = Лист4.ListObjects("Заводы").DataBodyRange.Columns(3).Value


ComboBox1.MatchEntry = fmMatchEntryNone
With Лист1
    s = .Cells(Rows.Count, 2).End(xlUp).Row
   ComboBox1.List = aCountry
End With
End Sub

Private Sub Workbook_Open()
 Dim wsSh As Object
    For Each wsSh In Me.Sheets
        Protect_for_User_Non_for_VBA wsSh
    Next wsSh
End Sub
Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet)
    wsSh.Protect Password:="1234", UserInterfaceOnly:=True 'при копировании убедится что стоит русская раскладка
End Sub