Tecnologia al servei de la correcció

Macro "Verifica_mots"

Aquesta macro elimina d'un document tots els mots reconeguts pel verificador. Pot servir per incloure els restants després al diccionari d'usuari. Si ho fem a partir d'un llistat terminològic, ens potenciarà la verificació en contextos de llenguatges d'especialitat. 

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

Dim m$, n$
Dim f, j As Integer
Dim resultat As Integer

MsgBox ("Aquest procés pot durar bàrbarament" + Chr(13) + "Per cancel·lar-lo, fes CTRL-Pausa")

Selection.WholeStory
Selection.LanguageID = wdCatalan
Selection.Range.Case = wdLowerCase
Selection.Font.Italic = False
Selection.Font.Bold = False
Selection.Font.Underline = wdUnderlineNone
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
Selection.MoveLeft Unit:=wdCharacter, Count:=1

substitueix " ", "^p"
substitueix ".^p", "^p"
substitueix ",", ""
substitueix ";", ""
substitueix "(", ""
substitueix ")", ""
substitueix ":", ""
substitueix "?", ""
substitueix "!", ""
substitueix "/", ""
substitueix "[", ""
substitueix "]", ""
substitueix "{", ""
substitueix "}", ""
substitueix "^p^p", "^p"
substitueix "d'", ""
substitueix "l'", ""
substitueix "s'", ""
substitueix "t'", ""
substitueix "m'", ""
substitueix "n'", ""
substitueix "n'", ""

j = 0
k = ActiveDocument.Words.Count
Do While (k > j)
    j = j + 1
    m$ = ActiveDocument.Words(j)
    If ((Len(m$) > 0) And (m$ <> " ")) Then
        resultat = ActiveDocument.Words(j).SpellingErrors.Count
        If (resultat < 1) Then
            ActiveDocument.Words(j).Text = " "
            k = k - 1
            j = j - 1
        End If
    End If
Loop
trim
End Sub
Per tal que aquesta macro funcioni, en necessiteu d'altres que trobareu aquí

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

Pàgina servida per XITAMI