Элементы управления на листе документа Word

  For x = 1 To 542
    Лист1.OLEObjects(x).Object.Caption = ""
  Next x

Sub P2()
Dim Поле As Word.Field
With ActiveDocument
    For Each Поле In .Fields
        If InStr(Поле.Code, "CONTROL Forms.Label.1") > 0 Then
            Поле.Result.Text = ""
        End If
    Next Поле
End With
End Sub

With DocWord
With .Tables(1)
.Cell(1, 1).Range.Text = FIR_.Text
.Cell(2, 1).Range.Text = LIZ_.Text
.Cell(3, 1).Range.Text = ULIZ_.Text
.Cell(4, 1).Range.Text = GOR_.Text
.Cell(3, 2).Range.Text = "Tel." & TEL_.Text
.Cell(4, 2).Range.Text = "E-mail:" & MYL_.Text
S = Split(SOST_.Text, " ")
J = LCase(Left(S(0), 1) & Left(S(1), 1))
.Cell(1, 5).Range.Text = SEG_.Text & "/" & J
End With
End With

 For x = 10 To 43
   Лист1.OLEObjects(x).Object.Caption = UCase(Mid(f.textbox1.Text, i, 1))
   i = i + 1
 Next x

Sub P2()
Dim i As Long
With ActiveDocument
    For i = 1 To 2
        If InStr(.Fields(i).Code, "CONTROL Forms.Label.1") > 0 Then
            .Fields(i).Result.Text = ""
        End If
    Next i
End With
End Sub