Macro netejadora de HRT

Sub retorn2sí1no()
'
' macro retorn2sí1no
'
' Macro enregistrada per Lluís de Yzaguirre i Maura
' Institut de Lingüística Aplicada
' Universitat "Pompeu Fabra"
'
     
substitueix "^p^p", "^m" ' canvia 2 retorns per salt de pàgina
substitueix "^p", " "    ' canvia retorn per espai
substitueix "^m", "^p^p" ' restitueix dos retorns

trim ' elimina espais repetits
trim
trim

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

substitueix "     ", " "
substitueix "    ", " "
substitueix "   ", " "
substitueix "  ", " "

End Sub
Sub substitueix(arg1$, arg2$)
'
' Macro substitueix X per Y
'
' 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