HenkMartinus
Gebruiker
- Lid geworden
- 25 apr 2007
- Berichten
- 36
Graag hulp!!
Ik wil in een tekstbestand alle tekst met behulp van een macro wijzigen in:
Lettertype Standaard (Times New Romen 12)
Daarvoor wordt in een macro het volgende gedaan (dit werkt):
Selection.WholeStory
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 12
Selection.HomeKey Unit:=wdStory
Nu wil ik deze macro wijzigen zodat de volgende lettertype’s worden overgeslagen:
Logo1 (Times New Romen 10 vet) en
Logo adres (Times New Romen 8) en
Logo voetnoot (Times New Romen 9)
Hoe moet dan die If Then? instructie er uitzien?
Als ik deze 4 lettertypes in een macro plaats krijg ik het volgende:
Sub Macro1()
'
Selection.TypeText Text:="Standaard"
Selection.TypeParagraph
Selection.Style = ActiveDocument.Styles("Logo1")
Selection.TypeText Text:="Logo1"
Selection.TypeParagraph
Selection.Style = ActiveDocument.Styles("Logo adres")
Selection.TypeText Text:="Logo adres"
Selection.TypeParagraph
Selection.Style = ActiveDocument.Styles("Voetnoot")
Selection.TypeText Text:="Voetnoot"
End Sub
Ik wil in een tekstbestand alle tekst met behulp van een macro wijzigen in:
Lettertype Standaard (Times New Romen 12)
Daarvoor wordt in een macro het volgende gedaan (dit werkt):
Selection.WholeStory
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 12
Selection.HomeKey Unit:=wdStory
Nu wil ik deze macro wijzigen zodat de volgende lettertype’s worden overgeslagen:
Logo1 (Times New Romen 10 vet) en
Logo adres (Times New Romen 8) en
Logo voetnoot (Times New Romen 9)
Hoe moet dan die If Then? instructie er uitzien?
Als ik deze 4 lettertypes in een macro plaats krijg ik het volgende:
Sub Macro1()
'
Selection.TypeText Text:="Standaard"
Selection.TypeParagraph
Selection.Style = ActiveDocument.Styles("Logo1")
Selection.TypeText Text:="Logo1"
Selection.TypeParagraph
Selection.Style = ActiveDocument.Styles("Logo adres")
Selection.TypeText Text:="Logo adres"
Selection.TypeParagraph
Selection.Style = ActiveDocument.Styles("Voetnoot")
Selection.TypeText Text:="Voetnoot"
End Sub