Renommer textbox d'un doc word

Sub recherchedocword()
With Application.FileSearch
    .LookIn = "C:\Documents and Settings\ledzepfred\bureau\A TRAITER"
    .FileName = "*.doc"
    .Execute
    If .Execute() > 0 Then
        For i = 1 To .FoundFiles.Count
            Documents.Open FileName:=.FoundFiles(i)
            Call renommeobjet
            ActiveDocument.Close True
        Next
End If
End With
End Sub

Sub renommeobjet()
Dim FF As FormFields
Dim Indice, i, j, k As Long
Dim mavar As Variant
Indice = 0
i = 0
j = 0
k = 0
If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect

Set FF = ActiveDocument.FormFields
For Indice = 1 To FF.Count
  FF(Indice).Select
  Select Case FF(Indice).Type
    Case wdFieldFormTextInput
      mavar = FF(Indice).Result
      i = i + 1
      With Dialogs(wdDialogFormFieldOptions)
        .Name = "Texte" & i
        .Execute
      End With
      FF(Indice).Result = mavar
    Case wdFieldFormCheckBox
      mavar = FF(Indice).CheckBox.Value
      j = j + 1
      With Dialogs(wdDialogFormFieldOptions)
        .Name = "CaseACocher" & j
        .Execute
      End With
      FF(Indice).CheckBox.Value = mavar
    Case wdFieldFormDropDown
      mavar = FF(Indice).DropDown.Value
      k = k + 1
      With Dialogs(wdDialogFormFieldOptions)
        .Name = "Liste" & k
        .Execute
      End With
      FF(Indice).DropDown.Value = mavar
  End Select
Next Indice
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

Const FORM_TYPE As String = "Forms.TextBox.1"

Sub ConstruireTextBox()
Dim Couleur
Dim i&
Dim j&
Dim ISH As InlineShape
Dim TB    'As MSForms.TextBox
Couleur = Array("", vbBlue, vbRed, vbYellow, vbMagenta)
j& = 1
Application.ScreenUpdating = False
For i& = 1 To 30   'pour construire 30 TextBox
  With Selection
    .WholeStory
    .MoveDown
    .TypeParagraph
    .InsertParagraph
  End With
  Set ISH = Selection.InlineShapes.AddOLEControl(ClassType:=FORM_TYPE)
  Set TB = ISH.OLEFormat.Object
  TB.Value = i& & " toto"
  If j& > 4 Then j& = 1
  TB.BackColor = Couleur(j&)
  j& = j& + 1
Next i&
Application.ScreenUpdating = True
End Sub

Sub LireValeurTextBox()
Dim ISH As InlineShape
Dim TB As MSForms.TextBox
For Each ISH In ActiveDocument.InlineShapes
  On Error Resume Next
  If ISH.OLEFormat.ClassType = FORM_TYPE Then
    If Err = 0 Then
      Set TB = ISH.OLEFormat.Object
      If TB.Value <> "" Then
        Debug.Print TB.Value
      Else
        Debug.Print "n.a"
      End If
    Else
      Err.Clear
    End If
End If
Next ISH
End Sub