[VBA-Excel]Texte formaté vers word
alpair
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Dartagnan123 -
Dartagnan123 -
Bonjour à tous,
Je pilote un document Word depuis Excel en VBA. Je souhaite écrire un texte avec la mise en forme (gras + Italique) à l'emplacement d'un signet Word mais je n'arrive qu'à écrire un texte brut.
J'ai tenté de passer par le presse-papier mais ça plante.
Voici mon petit bout de code :
Dim MonText As String
MonText = "Top le forum de CCM"
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("word.application")
Set wordDoc = wordApp.Documents.Open("C:\Test.doc)
'----------- Ce qui fontionne ----- :-) ---------
wordDoc.Bookmarks("ICI").Range.Text = MonText
'----------- Ce qui ne fonctionne pas :-( ------
With wordDoc.Bookmarks("ICI")
.Range.Font.Size = 20
.Range.Bold = wdToggle
.Range.Italic = wdToggle
.Range.Text = MonText
End With
Cela fait 2 jours que je me casse la tête à surfer sur les forums ce qui est instructif mais malheureusement sans résultat.
Un p'tit coup de pouce ?
Merci
Je pilote un document Word depuis Excel en VBA. Je souhaite écrire un texte avec la mise en forme (gras + Italique) à l'emplacement d'un signet Word mais je n'arrive qu'à écrire un texte brut.
J'ai tenté de passer par le presse-papier mais ça plante.
Voici mon petit bout de code :
Dim MonText As String
MonText = "Top le forum de CCM"
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("word.application")
Set wordDoc = wordApp.Documents.Open("C:\Test.doc)
'----------- Ce qui fontionne ----- :-) ---------
wordDoc.Bookmarks("ICI").Range.Text = MonText
'----------- Ce qui ne fonctionne pas :-( ------
With wordDoc.Bookmarks("ICI")
.Range.Font.Size = 20
.Range.Bold = wdToggle
.Range.Italic = wdToggle
.Range.Text = MonText
End With
Cela fait 2 jours que je me casse la tête à surfer sur les forums ce qui est instructif mais malheureusement sans résultat.
Un p'tit coup de pouce ?
Merci
A voir également:
- [VBA-Excel]Texte formaté vers word
- Word et excel gratuit - Guide
- Word 2013 - Télécharger - Traitement de texte
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Tableau word - Guide
Je travaille à partie de VBA Excel 2003 sur un document Word.
Savez-vous comment réaliser la sélection du texte à partir de VBA Excel sur un document word en vue de modifier le format Gras juste sur une partie d'une phrase (par exemple un mot) ?
Merci