[VBA] word

[Remco]

Ik heb een invulformulier voor een brief waarin men de namen en adressen in kwijt kan. Na de OK knop, wordt alles op de juiste plek neergezet.

Echter,
Nu moet onder het adres een regeltje worden toegevoegd, het afzendadres.
Maar dit regeltje moet in een kleiner lettertype.

Ik heb de volgende code:

code:

Private Sub CommandButton1_Click()
    UserForm1.Hide
    
    If NaamBedrijf <> "" Then
        Selection.TypeText Text:=NaamBedrijf
    End If
    If TAV <> "" Then
        Selection.TypeParagraph
        Selection.TypeText Text:="T.a.v. " & TAV
    End If
    If Adres <> "" Then
        Selection.TypeParagraph
        Selection.TypeText Text:=Adres
    End If
    If Postcode <> "" Or Plaats <> "" Then
        Selection.TypeParagraph
        Selection.TypeText Text:=Postcode & " " & Plaats
    End If

Hoe kan ik onder het if-statement van de postcode en de plaats een text laten toevoegen in een kleiner lettertype.
zoiets als:

code:

font.name="Tahoma"
font.size="6"
selection.typeparagraph
selection.typetext text:="afzender adres"
'nu weer groter maken
font.name="Tahoma"
font.size="8"

Ik heb binnen word gezocht op font size etc... Maar ik krijg heel veel terug, maar ik kan hierin niet vinden wat ik zoek.

[Verwijderd]

Probeer eens 'selection.Range.Font.Size = 8'

[Remco]

Tnx, het werkt.
het is trouwens:

code:

    Selection.Font.Name = "MS Mincho"
    Selection.Font.Size = 8

Maar met zoeken op font of size o.i.d. zie je de bomen het bos niet meer.
Toen kwam ik na nog meer zoeken op een site waar iemand d.m.v. een macro de broncode achterhaald.
Dus macrootje, en hup....

[ Voor 48% gewijzigd door Remco op 17-01-2003 14:52 ]

[Verwijderd]

Ik werk nooit met selection, gebruik altijd Range.
Vandaar de fout ...