Make your own free website on Tripod.com

NewMacros - 1

 

Sub AltShiftAdash()

'

' AltShiftAdash Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="$"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftAdot()

'

' AltShiftAdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="+"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftBdot()

'

' AltShiftBdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="/"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftDdot()

'

' AltShiftDdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="4"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftEdash()

'

' AltShiftEdash Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="6"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftGdash()

'

' AltShiftGdash Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="="

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftAu()

'

' AltShiftAu Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="%"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftAv()

 

NewMacros - 2

 

'

' AltShiftAv Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="&"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShfitAtilde()

'

' AltShfitAtilde Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="'"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftAdotdash()

'

' AltShiftAdotdash Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="-"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftCcedilla()

'

' AltShiftCcedilla Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="0"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftCv()

'

' AltShiftCv Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="1"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftCi()

'

' AltShiftCi Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="3"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftEu()

'

' AltShiftEu Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="7"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftEv()

'

 

NewMacros - 3

 

' AltShiftEv Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="8"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftEcedilla()

'

' AltShiftEcedilla Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="9"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftEi()

'

' AltShiftEi Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="<"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftGu()

'

' AltShiftGu Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:=">"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftGv()

'

' AltShiftGv Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="@"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub ayn()

'

' ayn Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="#"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub hamza()

'

' hamza Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:=""""

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftAcirc()

'

' AltShiftAcirc Macro

 

NewMacros - 4

 

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="*"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftCaigu()

'

' AltShiftCaigu Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="2"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftDaigu()

'

' AltShiftDaigu Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="5"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftGtopdot()

'

' AltShiftGtopdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="["

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftHdot()

'

' AltShiftHdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="\"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftIdash()

'

' AltShiftIdash Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="^"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftIcirc()

'

' AltShiftIcirc Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftIdot()

'

' AltShiftIdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

 

NewMacros - 5

 

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="`"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftKcedilla()

'

' AltShiftKcedilla Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="{"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftKdot()

'

' AltShiftKdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="|"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftLdot()

'

' AltShiftLdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="}"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftLslash()

'

' AltShiftLslash Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="~"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftMdot()

'

' AltShiftMdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftNdash()

'

' AltShiftNdash Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftNaigu()

'

' AltShiftNaigu Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

 

NewMacros - 6

 

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:=ChrW(8222)

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftNtilde()

'

' AltShiftNtilde Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftNdot()

'

' AltShiftNdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftNtopdot()

'

' AltShiftNtopdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftOdash()

'

' AltShiftOdash Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftQtopdot()

'

' AltShiftQtopdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftRaigu()

'

' AltShiftRaigu Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftRdot()

'

' AltShiftRdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

 

NewMacros - 7

 

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftSdot()

'

' AltShiftSdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="`"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftSv()

'

' AltShiftSv Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="'"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftSaigu()

'

' AltShiftSaigu Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:=ChrW(8220)

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftScedilla()

'

' AltShiftScedilla Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:=ChrW(8221)

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftTdot()

'

' AltShiftTdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftTaigu()

'

' AltShiftTaigu Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftUdash()

'

' AltShiftUdash Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

 

NewMacros - 8

 

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftUaigu()

'

' AltShiftUaigu Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftUu()

'

' AltShiftUu Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftVdot()

'

' AltShiftVdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftWtopdot()

'

' AltShiftWtopdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftYdoubledot()

'

' AltShiftYdoubledot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="_"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftYcirconflex()

'

' AltShiftYcirconflex Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="!"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftZtopdot()

'

' AltShiftZtopdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="c"

    Selection.Font.Name = "Baskerville MT for Brill 00"

 

NewMacros - 9

 

End Sub

Sub AltShiftZdot()

'

' AltShiftZdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="#"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftZv()

'

' AltShiftZv Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="Y"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftItopdot()

'

' AltShiftItopdot Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="`"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltShiftHhalfpipe()

'

' AltShiftHhalfpipe Macro

' Macro opgenomen op 25-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="]"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltAdash()

'

' AltAdash Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="S"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltAu()

'

' AltAu Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="""

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltAv()

'

' AltAv Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="c"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

 

NewMacros - 10

 

Sub AltAtilde()

'

' AltAtilde Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="a"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltAdot()

'

' AltAdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="-"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltAdotdash()

'

' AltAdotdash Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="R"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltBdot()

'

' AltBdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="."

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltCcedilla()

'

' AltCcedilla Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="+"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltCv()

'

' AltCv Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="'"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltCaigu()

'

' AltCaigu Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="u"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltCi()

 

NewMacros - 11

 

'

' AltCi Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="q"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltDdot()

'

' AltDdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="."

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltDaigu()

'

' AltDaigu Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:=","

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltDslash()

'

' AltDslash Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="o"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltDslashdot()

'

' AltDslashdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:=">"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltEdash()

'

' AltEdash Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="?"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltEu()

'

' AltEu Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="A"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltEv()

'

 

NewMacros - 12

 

' AltEv Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="A"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltEcedilla()

'

' AltEcedilla Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="A"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltEi()

'

' AltEi Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="A"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltGdash()

'

' AltGdash Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="A"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltGu()

'

' AltGu Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="A"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltGv()

'

' AltGv Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="A"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltGtopdot()

'

' AltGtopdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="C"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltHdot()

'

' AltHdot Macro

 

NewMacros - 13

 

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="E"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltHhalfpipe()

'

' AltHhalfpipe Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="E"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltIdash()

'

' AltIdash Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="E"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltIcirc()

'

' AltIcirc Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="E"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltInodot()

'

' AltInodot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="I"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltKcedilla()

'

' AltKcedilla Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="I"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltKdot()

'

' AltKdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="I"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltLdot()

'

' AltLdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

 

NewMacros - 14

 

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="I"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltLslash()

'

' AltLslash Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="N"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltMdot()

'

' AltMdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="O"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltNdash()

'

' AltNdash Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="O"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltNaigu()

'

' AltNaigu Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="O"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltNtilde()

'

' AltNtilde Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="O"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltNdot()

'

' AltNdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="O"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltNtopdot()

'

' AltNtopdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

 

NewMacros - 15

 

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="0"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltOdash()

'

' AltOdash Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="U"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltQtopdot()

'

' AltQtopdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="U"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltRaigu()

'

' AltRaigu Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="U"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltRdot()

'

' AltRdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="U"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltSdot()

'

' AltSdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="B"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltSv()

'

' AltSv Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="a"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltSaigu()

'

' AltSaigu Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

 

NewMacros - 16

 

    Selection.TypeText Text:="a"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltScedilla()

'

' AltScedilla Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="a"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltTdot()

'

' AltTdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="a"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltTaigu()

'

' AltTaigu Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="a"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltUdash()

'

' AltUdash Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="a"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltUaigu()

'

' AltUaigu Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="a"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltUu()

'

' AltUu Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="c"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltVdot()

'

' AltVdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="e"

 

NewMacros - 17

 

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltWtopdot()

'

' AltWtopdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="e"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltYdoubledot()

'

' AltYdoubledot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="e"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltYcirconflex()

'

' AltYcirconflex Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="e"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltZv()

'

' AltZv Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="i"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltZdot()

'

' AltZdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="i"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltZtopdot()

'

' AltZtopdot Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="i"

    Selection.Font.Name = "Baskerville MT for Brill 00"

End Sub

Sub AltAcirc()

'

' AltAcirc Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Font.Name = "Baskerville MT for Brill 01"

    Selection.TypeText Text:="<"

    Selection.Font.Name = "Baskerville MT for Brill 00"

 

NewMacros - 18

 

End Sub

Sub AutoSearchReplaceDash()

'

' AutoSearchReplaceDash Macro

' Macro opgenomen op 28-2-00 door Aernold van Gosliga

'

    Selection.Find.ClearFormatting

    Selection.Find.Font.Name = "Baskerville MT for Brill 01"

    Selection.Find.Replacement.ClearFormatting

    Selection.Find.Replacement.Font.Name = "Baskerville MT for Brill 00"

    With Selection.Find

        .Text = "-"

        .Replacement.Text = "-"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = True

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

End Sub