Macro autoexecutable

Sub AutoNew()
'
' Macro enregistrada per Lluís de Yzaguirre i Maura
' Institut de Lingüística Aplicada
' Universitat "Pompeu Fabra"
'
       resposta1$ = InputBox("Entra el dia en xifres", "Dia")
       resposta2$ = InputBox("Entra el mes", "Mes")
       resposta3$ = InputBox("Entra l'hora en xifres", "Hora")
       resposta4$ = InputBox("Tema", "Tema", "Precs i preguntes")

substitueix "$1", resposta1$
substitueix "$2", resposta2$
substitueix "$3", resposta3$
substitueix "$4", resposta4$

End Sub
Sub substitueix(arg1$, arg2$)
'
' Macro enregistrada per Lluís de Yzaguirre i Maura
' Institut de Lingüística Aplicada
' Universitat "Pompeu Fabra"
'

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = arg1$
        .Replacement.Text = arg2$
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Per comentaris i observacions, poseu-vos en contacte amb Lluís de Yzaguirre

Pàgina servida per