Formació autodidàctica en mòduls d'Enginyeria lingüística aplicada a la Traducció

Macro "Absents"

Aquesta macro gestiona una llista d'assistents continguda en un requadre de text dins d'un model d'acta, el qual requadre de text estā protegit contra verificaciķ ortogrāfica per mor dels problemes generats per l'onomāstica, especialment la d'orígen forā.

Sub Absents()
'
' Absents: Macro que mou un nom d'assistents a absents
' Macro grabada el 18/10/04 por Lluís de Yzaguirre
' Suggerim associar-la a una drecera de teclat com ctrl-Ø
'
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Cut
    Selection.ParagraphFormat.TabHangingIndent 1
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Absents"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.Paste
End Sub
Aquesta macro s'aplica a cadascun dels noms continguts al document de model, preferentment en ordre alfabčtic descendent, cosa que provoca un resultat alfabčtic ascendent dels absents.

Per tal que la macro precedent sigui prāctica, cal que es pugui cridar āgilment. Aixō ho aconseguirem assignant la macro a una combinaciķ de tecles, v.g. ALT+L.
Torna a la pàgina principal! Per comentaris i observacions, poseu-vos en contacte amb Lluís de Yzaguirre

Pàgina servida per XITAMI