LETTERTYPEVERVANGEN

2

Rubriek 2 moet de naam van de macro bevatten die in MiRaS.DOT aanwezig is en zorgt voor het vervangen van de lettertypes. Een voorbeeld van zo'n macro is:

     Sub GCSScriptLettertypevervangen(lsFontTo As String, liFontToBaseSize As Integer)

         For liX = 7 To 20
               liFontToSize = liX     
               If liX = 12 Then         
                    liFontToSize = liFontToBaseSize     
               End If     

               Selection.Find.ClearFormatting     
               With Selection.Find.Font
                    .Name = "Times New Roman"         
                    .Size = liX     
               End With     
               Selection.Find.Replacement.ClearFormatting     
               With Selection.Find.Replacement.Font        
                    .Name = lsFontTo         
                    .Size = liFontToSize     
               End With     
               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
        Next liX
    End Sub

Deze moet toegevoegd zijn aan uw MIRAS.DOT bestand!

3