METTRE EN FORME DU TEXTE WORD DEPUIS EXCEL EN VBA
mimiZanzan
Messages postés
301
Date d'inscription
lundi 27 février 2006
Statut
Membre
Dernière intervention
17 décembre 2017
-
30 mars 2011 à 16:57
mimiZanzan Messages postés 301 Date d'inscription lundi 27 février 2006 Statut Membre Dernière intervention 17 décembre 2017 - 31 mars 2011 à 01:35
mimiZanzan Messages postés 301 Date d'inscription lundi 27 février 2006 Statut Membre Dernière intervention 17 décembre 2017 - 31 mars 2011 à 01:35
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/53002-mettre-en-forme-du-texte-word-depuis-excel-en-vba
https://codes-sources.commentcamarche.net/source/53002-mettre-en-forme-du-texte-word-depuis-excel-en-vba
31 mars 2011 à 01:35
Excuse, c'est la référence Microsoft Word 11.0 (ou 12.0) qu'il faut ajouter!
31 mars 2011 à 01:33
Evidemment, j'avais oublié l'objet wordapp puique tu appelles Word de Excel...
Une petite remarque: il est encore plus simple de traiter Word sous Excel avec une seule ligne:
Dim worddoc As New Word.Application
A condition d'ajouter la référence à "Microsoft 11.0 (ou 12.0) Object Library" avec le menu VBA Outil/Références de Excel.
L'avantage, c'est que tu disposes directement des propriétés et méthodes liées à worddoc. (en tapant un point à la fin).
Ravi de t'avoir aidé.
Cdt
31 mars 2011 à 00:27
bon tu m'as éclairé dans la solution de mon projet et j'ai maintenant la solution.
Donc j'ai repris la partie du bout de programmation que tu m'as donné,
Selection.Font.StrikeThrough = True
en le mettant directement cela ne fonctionnait toujours pas il manquait
wordapp.Selection.Font.StrikeThrough = True
ce bout de code met en forme la partie du signet sous Word en texte barré,
ensuite j'insère mon texte venant d'une textbox...
wordapp.activedocument.bookmarks("un").Range.Text = Usfguepe.OptionButton6.Caption
et voilà le tour est joué
je te remercie beaucoup tu m'as bien aidé MIMIZANZAN...
30 mars 2011 à 16:57
Je ne suis pas expert en VBA Word, mais je viens d'essayer ceci qui marche dans Word et qui devrait te convenir:
wordapp.ActiveDocument.Bookmarks(deux").Select
Selection.Font.StrikeThrough = True
Mais ca me parait trop simple...
Cdt