Autres Affecter doc Word à Body

[FOUQUET Yves]

Bonjour,
Dans la construction d'un mailing sous VBA je voudrais affecter à .Body un texte issu d'un fichier Word.
Exemple:

texte_Word = "Bonjour les amis,
je vous souhaite une bonne journée"

Ce texte étant un fichier Word (entete_messag.docs) modifiable, dans un dossier.

.Body = texte_Word

Existe t-il une procédure pour cela ?

Merci de votre aide

 

[job75]

Bonsoir,

Récupérer un texte placé dans un signet Word ne pose pas de problème.

Il y a de nombreux exemples sur ce forum.

A+

 

[FOUQUET Yves]

Voilà ma solution glanée sur sites:

'--- Pour lire le fichier Entete_messag.txt du dossier \courriers --------------------
Public Function LireFichierTexte(ByVal MonFichier As String) As String
  
    On Error GoTo LireFichierTexteErreur
    Dim IndexFichier As Integer
    IndexFichier = FreeFile()
    Open MonFichier For Binary Access Read As #IndexFichier
    LireFichierTexte = Space$(LOF(IndexFichier))
    Get #IndexFichier, , LireFichierTexte
    Close #IndexFichier
    Exit Function
    
LireFichierTexteErreur:
Close #IndexFichier
LireFichierTexte = ""
End Function

'--- appelle la fonction "LireFichierTexte" -------------
       ContenuFichier = LireFichierTexte(UserForm1.chemin7 & "\" & "Entete_messag.Txt")
       .Body = ContenuFichier