Speciel skrifttype forsvinder ved afspilning af makro

Der er ikke sikkert, du gør noget galt. Det sker jævnligt, at en indspillet makro ikke gør det forventede, når makroen afspilles. Hvis du poster den makro, du har indspillet, er det lettere at hjælpe dig. Der skal måske rettes noget i den.

Her er min makro:


Sub mvh()
'
' mvh Makro
' Makro indspillet 13-02-2009 af Jørgen Vestergaard
'
    Selection.Font.Color = wdColorBlue
    Selection.TypeText Text:="stjerne tour de grindsted"
    Selection.TypeParagraph
    Selection.Font.Color = wdColorDarkRed
    Selection.TypeText Text:="Kurt Nørgaard Nielsen"
    Selection.TypeParagraph
    Selection.Font.Color = wdColorBlack
    Selection.TypeText Text:="Åhavevej 48"
    Selection.TypeParagraph
    Selection.TypeText Text:="7200 Grindsted"
    Selection.TypeParagraph
    Selection.TypeText Text:="Tlf. 75321195"
    Selection.TypeParagraph
    Selection.Font.Color = wdColorBlue
    Selection.TypeText Text:="mail@stjernetour.dk"
End Sub

STJERNE TOUR DE GRINDSTED  - Algerian  str.14 (blå)
Kurt Nørgaard Nielsen      - Matura MT script str 12 (brun)
Åhavevej 48                - Ariel str 12 (sort)
DK - 7200  Grindsted      - Ariel str 12 (sort)
Tlf. 75 32 11 95          - Ariel str 12 (sort)
mail@stjernetour.dk        - Ariel str 12 (blå)

I den makro, du har optaget, er det ikke nogen kode, som sætter skrifttypen (font). Nedenfor finder du en omskrevet version, som skriver teksten, sådan som du har specificeret den. Skrifttypen "Matura MT script" er tilsyneladende ikke en standard skrifttype (findes ikke hos mig hverken i 2003 eller 2007):

Sub OmskrevetMakro()

    With Selection
        With .Font
            .name = "Algerian"
            .Size = 14
            .Color = wdColorBlue
        End With
        'indsæt tekst med store bogstaver, vbCr sætter afsnitstegn
        .TypeText Text:=UCase("stjerne tour de grindsted") & vbCr
       
        With .Font
            .name = "Matura MT script"
            .Size = 12
            .Color = wdColorDarkRed
        End With
        'indsæt tekst og afsnitstegn
        .TypeText Text:="Kurt Nørgaard Nielsen" & vbCr
       
        With .Font
            .name = "Ariel"
            .Size = 12
            .Color = wdColorBlack
        End With
        'indsæt næste tre linjer
        .TypeText Text:="Åhavevej 48" & vbCr & _
                "Tlf. 75321195" & vbCr & _
                "7200 Grindsted" & vbCr
       
        .Font.Color = wdColorBlue
        .TypeText Text:="mail@stjernetour.dk"
    End With
End Sub

Tak for hjælpen!