1 votes

Insertion par lots de plusieurs champs de fusion de courrier

J'ai un document de fusion de courrier connecté à un fichier Excel avec environ 200 colonnes et quelques centaines de lignes. Je dois configurer mon document de fusion de courrier de la manière suivante :

[code]      [type]     [amount]
[code1]     [type1]    [amount1]
[code2]     [type2]    [amount2]

etc., jusqu'à la 200e réitération du champ. Sans entrer dans tous les détails de la raison pour laquelle j'ai besoin de cela, c'est une façon super sale et rapide d'obtenir les données que nous voulons fusionner et éventuellement une façon plus élégante sera trouvée.

Ma question est la suivante : comment puis-je insérer rapidement les champs sans sélectionner littéralement insérer le champ plusieurs centaines de fois ? L'idéal serait de lui donner une liste des champs et de lui demander de les insérer tous, c'est-à-dire de configurer les trois colonnes dans Excel avec les noms des champs, puis de copier et coller cela dans Word, sauf que Word ne les reconnaît pas comme des champs réels, et verra << texte >> comme du texte pur plutôt qu'un champ réel.

0voto

BruceWayne Points 2595

Comment cela fonctionne-t-il ? Il s'agit d'une macro, que vous devez ajouter à un module de votre document.

Sub add_hundreds_of_refs()
Dim myDoc As Document
Set myDoc = ActiveDocument
Dim i As Long

With myDoc
    .MailMerge.Fields.Add Range:=Selection.Range, Name:="Code"
    .MailMerge.Fields.Add Range:=Selection.Range, Name:="Type"
    .MailMerge.Fields.Add Range:=Selection.Range, Name:="Amount"
    Selection.TypeParagraph
    For i = 1 To 200
        .MailMerge.Fields.Add Range:=Selection.Range, Name:="Code" & i
        .MailMerge.Fields.Add Range:=Selection.Range, Name:="Type" & i
        .MailMerge.Fields.Add Range:=Selection.Range, Name:="Amount" & i
        Selection.TypeParagraph
    Next i
End With
End Sub

enter image description here

SistemesEz.com

SystemesEZ est une communauté de sysadmins où vous pouvez résoudre vos problèmes et vos doutes. Vous pouvez consulter les questions des autres sysadmins, poser vos propres questions ou résoudre celles des autres.

Powered by:

X