Sub TestWord()
Dim shpA As Shape, shpB As Shape, vStr1$, vStr2$, i%, X
ActiveDocument.Shapes.SelectAll
Selection.Delete
Set shpA = ActiveDocument.Shapes.AddTextbox(1, 85, 95#, 100, 100) 'TextBox
shpA.Visible = True: shpA.Left = 35
shpA.TextFrame.TextRange.Text = "TEST"
MsgBox shpA.TextFrame.TextRange.Text 'affiche contenu TextBox
Set shpA = Nothing
Set shpB = ActiveDocument.Shapes.AddLabel(1, 35, 10, 75, 75) 'Label
shpB.Visible = True: shpB.Left = 70
shpB.TextFrame.TextRange.Text = Application.UserName
MsgBox shpB.TextFrame.TextRange.Text ' affiche contenu Label
Set shpB = Nothing
With ActiveDocument
X = .Shapes.Count
MsgBox X & " forme(s) sur le document actif."
For i = 1 To X
MsgBox "NOM Forme " & i & ": " & .Shapes(X).Name, vbInformation
Next
vStr1 = .Shapes(1).TextFrame.TextRange.Text 'contenu Shape1 dans une variable
vStr2 = .Shapes(2).TextFrame.TextRange.Text ''contenu Shape2 dans une variable
End With
MsgBox UCase(vStr1), vbInformation, "VARIABLE 1"
MsgBox LCase(vStr2), vbInformation, "VARIABLE 2"
End Sub