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.
Nu moet ik dit elke keer opnieuw maken. Is het mogelijk om er een lus of zoiets van te maken.
Alvast bedankt.
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.