Bonjour,
Cela est possible mais semble assez complexe.
S'il s'agir de texte limités à un ou plusieurs paragraphes il est préférable de confectionner autant de fichier .Txt que de Textbox ou de Label à remplir.
Dans ce dernier cas une simple function irait lire le fichier texte et le renvoie dans le container voulu.
Private Function READAT(s$) 'Lit le fichier .txt qui décrit l'activité en cours
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oTxt As Scripting.TextStream
Set oFSO = New Scripting.FileSystemObject
On Error GoTo GESTERR
Set oFl = oFSO.GetFile(s)
Set oTxt = oFl.OpenAsTextStream(ForReading)
READAT = oTxt.ReadAll
oTxt.Close
Exit Function
GESTERR:
READAT = "Oups !|Activité en préparation...|0"
End Function
Si tu dois vraiment travailler sur Wrd je te renvoie à une recherche Google :
vba excel extraire du texte word
A+