Changement de styles dans une macro word [Résolu]

dam278 39 Messages postés vendredi 11 juillet 2008Date d'inscription 2 juin 2009 Dernière intervention - 25 juil. 2008 à 10:18 - Dernière réponse : dam278 39 Messages postés vendredi 11 juillet 2008Date d'inscription 2 juin 2009 Dernière intervention
- 28 juil. 2008 à 11:43
Bonjour,

je suis en train de reéaliser une application en VB, qui a pour finalité de generer un doc word. J'ai un probleme au moment de creer les titres

j'ecris :

    Dim objWord As Word.Application

    objWord.Documents.Add Template:= _
    "C:\Documents and Settings\gvachon\Application Data\Microsoft\Modèles\En tete proposition.dot" _
    , NewTemplate:=False, DocumentType:=0
    objWord.Activate
    ActiveDocument.UpdateStylesOnOpen = True

    objWord.Selection.Style = ActiveDocument.Styles("Titre 1;Section;Tempo Heading 1;H1;PA Chapter;heading a;Module             Header;h1;L1;Prophead level 1;Prophead 1;Heading 1k;ICL Title;l1;list;•normal;Lev 1;lev1;Section heading;Forward;new             page/chapter;Chapter Headline;Thema;Section Heading;Heading A;Heading1;t1;I")

et l'appli me renvoie une erreur : la mehode styles de l'objet selection a echoué

qu'est ce que je fais a l'envers plz

merci

Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
H2Fooko 8 Messages postés lundi 6 août 2007Date d'inscription 22 juillet 2012 Dernière intervention - 26 juil. 2008 à 11:19
3
Merci
Tes styles de titres possèdent des "Alias" en effet après "Titre 1" par exemple on trouve des alias séparés par des points virgule ';'. Un alias est un autre nom qui permet de nommer autrement un style prédéfini de MS Word.
Par définition un style prédéfini ne peut être effacé ou renommé brutalement.
MS Word ne renomme pas ses styles prédéfinis il créée des Alias à la place.

Je te conseille donc (sans l'avoir testé) :

objWord.Selection.Style = ActiveDocument.Styles("Titre 1")

sans les Alias.
Je viens de poster une macro permettant d'effacer systématiquement les Alias:
http://www.vbfrance.com/codes/GESTION-STYLES-MS-WORD-2003_47414.aspx

Bon courage
H2Fooko

Merci H2Fooko 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 76 internautes ce mois-ci

Commenter la réponse de H2Fooko
dam278 39 Messages postés vendredi 11 juillet 2008Date d'inscription 2 juin 2009 Dernière intervention - 28 juil. 2008 à 11:43
0
Merci
ca marche du tonnerre !! J'ai du changer aussi activedocument pour docword parce que sinon il ne le reconaissais pas, et grace a ton conseil ca marche merci tu me sors du gouffre

merci encore

guillaume

Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler
Commenter la réponse de dam278

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.