Insertion de champ par VBA et accolades des champs imbriqués

Question

Bonjour,

Je souhaiterais insérer un champ type wdFieldIf ou wdFieldExpression mais je rencontre un problème. Lorsque j'écris le texte du champ (voir ci-dessous), l'accolade de début et de fin sont créées et interprétées automatiquement et correctement par VBA, mais celles à l'intérieur (autour de PAGE et NUMPAGES) ne le sont pas, elles sont créées comme des caractères standards et ne sont pas interprétés.

Voici mon code VBA :

ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldIf, Text:="{PAGE} = {NUMPAGES} ""dernière page""", PreserveFormatting:=True

Comment faire un Ctrl+F9 dans le code VBA pour que les accolades de PAGE et NUMPAGES soient prises en compte ?

Cordialement,

David

Answer 1

Je viens de recevoir une solution qui semble bien marcher après un premier essai. Je vais l'adapter et l'intégrer dans mon code.

Voici la solution proposée :

Dim oRng As Range
Set oRng = Selection.Range
With oRng
        .Fields.Add Range:=oRng, Type:=wdFieldIf, Text:="{PAGE} = {NUMPAGES} {AUTOTEXT}", PreserveFormatting:=False
        .Collapse 1
        .MoveEndUntil "}"
        .End = .End + 1
        .MoveStartUntil "{"
        .Text = ""
        .Fields.Add Range:=oRng, Type:=wdFieldPage, PreserveFormatting:=False
        
        .Collapse 0
        .MoveEndUntil "}"
        .End = .End + 1
        .MoveStartUntil "{"
        .Text = ""
        .Fields.Add Range:=oRng, Type:=wdFieldNumPages, PreserveFormatting:=False
           
        .Collapse 0
        .MoveEndUntil "}"
        .End = .End + 1
        .MoveStartUntil "{"
        .Text = ""
        .Fields.Add Range:=oRng, Type:=wdFieldAutoText, Text:="PDPVF1", PreserveFormatting:=False
                
        .Fields.Update

    End With

Answer 2

Merci beaucoup pour votre retour !

Je vais me pencher à nouveau sur l'insertion d'un AUTOTEXT via un BUILDINGBOCK, cela marchait mais je trouvais cette solution assez contraignante pour les mises à jour.

Je vais regarder la deuxième proposition indiquée dans le document https://wordmvp.com/FAQs/MacrosVBA/NestedFieldsWithVBA.htm

Cordialament,

David

Answer 3

Bonjour,

Voir

https://wordmvp.com/FAQs/MacrosVBA/NestedFieldsWithVBA.htm