Archief plaatsen in elke brief

Status
Niet open voor verdere reacties.

Kramer

Gebruiker
Lid geworden
12 jun 2002
Berichten
447
Hallo Forumleden.

Ik maak een samenvoegbrief deze word afdrukt op briefpapier. Maar van elk brief moet ik ook een archief exemplaar hebben. Nu heb ik rechtsboven in mijn brief een * geplaatst. Nu laat ik hem daarnaar zoeken, en wordt er automatisch ARCHIEF vet 14 punten met een kader erom heen geplaatst.

Nu komt het probleem hoe kan ik hem laten zoeken naar alle * in mijn samenvoegbrief. De ene keer zijn het 2, de andere keer zijn het er 40.

Dit is de code die ik heb om het naar de * is te zoeken.
Code:
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "*"
    End With
    Selection.Find.Execute

    Selection.Font.Bold = wdToggle
    Selection.Font.Size = "14"
    Selection.TypeText Text:="ARCHIEF"
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    With Selection.Borders(wdBorderTop)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderLeft)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderRight)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With

Nu moet ik dit elke keer opnieuw maken. Is het mogelijk om er een lus of zoiets van te maken.

Alvast bedankt.
 
Dat kan simpeler:

Zet in de koptekst een veld met een voorwaarde {IF}
Zet in dat veld een documentvariabele.
Zorg ervoor dat afhankelijk van de waarde van de documentvariabele het woord archief in de koptekst wel/niet wordt getoond.
Zie de bijlage voor een uitgewerkt voorbeeld.
 

Bijlagen

Laatst bewerkt:
Dat kan simpeler:

Zet in de koptekst een veld met een voorwaarde {IF}
Zet in dat veld een documentvariabele.
Zorg ervoor dat afhaneklijk van de waarde van de documentvariabele het woord archief in de koptekst wel/niet wordt getoond.
Zie de bijlage voor een uitgewerkt voorbeeld.

Bedankt, maar die is niet wat ik wil. De code die ik had toegevoegd is namelijk maar een klein gedeelte van de hele macro.

Vanaf het moment dat de samenvoegbrief is gemaakt word er 1 macro gestart die. eerst alles of enkelzijdig of dubbelzijdig print op briefpapier. Daarna moet op elke brief een het Archief worden geplaatst en opnieuw moet worden geprint op blanco.
 
Ik denk dat de portée van mijn suggestie je is ontgaan.
 
Dat denk ik ook

Ik denk dat de portée van mijn suggestie je is ontgaan.

Dat denk ik ook, maar nadat ik er nog een beter naar gekeken heb snap ik hem.

Alleen denk ik is dit een stuk lastiger om in mijn sjabloon te verwerken.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan