[VBA-Excel]Texte formaté vers word

Fermé
alpair Messages postés 1 Date d'inscription jeudi 1 mars 2007 Statut Membre Dernière intervention 1 mars 2007 - 1 mars 2007 à 11:47
 Dartagnan123 - 31 déc. 2010 à 15:50
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
A voir également:

1 réponse

Bonjour,

Le code est bon, il faut juste sélectionner le texte avant d'appliquer les changements
(identique à l'action manuelle dans Word: si tu change la définition de la police, celà n'affecte pas le texte situé juste après le curseur.).

A+
2
Dartagnan123
31 déc. 2010 à 15:50
Bonjour,

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
0