Word 2007 vba - Les styles ne sont pas appliqués via la macro

Question

J'ai un code de macro qui crée essentiellement quelques tables, puis tape du texte dans certains d'entre eux, puis place quelques espaces réservés de texte. Le problème apparaît lorsque j'essaie d'appliquer des styles au texte. Au début, je pensais que seuls les espaces réservés ne sont pas affectés par le code. Mais il semble que le texte régulier, sélectionné par la macro n'est pas aussi bien appliqué.

Le code ressemble fondamentalement ceci:

Selection.TypeText Text:="Entreprisecost:" 
Selection.MoveRight Unit:=wdCell 
Set cc = Selection.Range.ContentControls.Add(wdContentControlText) 
cc.SetPlaceholderText Text:="Description of the cost" 
cc.DefaultTextStyle = "EnterpriseStyle" 
Selection.Style = ActiveDocument.Styles("EnterpriseStyle") 

Remarquez comment je définir le style à la fois l'espace réservé et la sélection.

Ensuite, j'ai essayé d'enregistrer une macro simple où je sélectionne la ligne entière, puis j'applique le style à la sélection. Cela fonctionne quand je suis en train d'enregistrer. Mais cela ne fonctionne pas quand je cours la macro. C'est étrange:

Selection.MoveUp Unit:=wdLine, Count:=5, Extend:=wdExtend 
Selection.Style = ActiveDocument.Styles("ExperienceStyle") 

Pourquoi cela se produit-il? Mes paramètres de sécurité macro sont définis sur le support par défaut, mais je choisis bien sûr d'activer les macros une fois le modèle ouvert. Cela se produit lorsque j'ouvre le modèle lui-même et lorsque je double-clique dessus pour créer un nouveau document basé sur le modèle. Des idées?

Editer: Chaque partie de la macro fonctionne, en plus d'appliquer des styles. Le code qui applique le style est exécuté, le texte ne change pas. Et quand je sélectionne le texte pour vérifier dans quel style il se trouve, je peux voir que le style est appliqué. Mais ce n'est pas en même temps. Étrange, si je sélectionne le texte, puis réapplique manuellement le style, ce qui signifie, en cliquant sur le même style qui est déjà sélectionné, puis je vois que le style est vraiment appliqué. C'est comme si le style était défini sans qu'il soit réellement appliqué.

Answer 1

D'abord, vous devez nous aider avec le code et mettre en place. Je suppose que vous avez au moins un tableau six par deux avec la sélection dans la cellule 6,1 (bas, cellule gauche). Deuxièmement, ne nous faites pas deviner quelles sont les variables; utilisez les instructions Dim. Troisièmement, nous n'avons pas vos styles, donc je les ai changés en standards Normal.dot. Cela dit, votre code fonctionne très bien comme ci-dessous. La seule mauvaise chose que je peux voir est que vous avez utilisé ExperienceStyle dans la première partie et EnterpriseStyle dans la première partie. Vous obtiendriez une erreur si l'un n'existait pas.

Public Sub Test() 
    Selection.TypeText Text:="Entreprisecost:" 
    Selection.MoveRight Unit:=wdCell 

    Dim cc As ContentControl 
    Set cc = Selection.Range.ContentControls.Add(wdContentControlText) 
    cc.SetPlaceholderText Text:="Description of the cost" 
    cc.DefaultTextStyle = "Title" 
    Selection.Style = ActiveDocument.Styles("Title") 
    Selection.Style = ActiveDocument.Styles("Strong") 'Proof the style is being changed. 

    Selection.MoveUp Unit:=wdLine, Count:=5, Extend:=wdExtend 
    Selection.Style = ActiveDocument.Styles("Strong") 
End Sub 

Answer 2

Je pense que votre problème est que vous n'effacez pas le format avant d'appliquer un nouveau style. Essayez de faire cela et dites-nous si cela fonctionne