Macro que ajuda a preparar textos per al TACT

Sub stopList()
'
' Macro stopList que prepara textos castellans per al TACT
'
substitueixMotTACT "a"
substitueixMotTACT "abajo"
substitueixMotTACT "absolutamente"
substitueixMotTACT "abundantemente"
substitueixMotTACT "acá"
substitueixMotTACT "acaso"
substitueixMotTACT "acerca"
substitueixMotTACT "actualmente"
substitueixMotTACT "adelante"
substitueixMotTACT "además"
substitueixMotTACT "adentro"
substitueixMotTACT "adónde"
substitueixMotTACT "afuera"
substitueixMotTACT "ahí"
substitueixMotTACT "ahora"
substitueixMotTACT "al"
substitueixMotTACT "algo"
substitueixMotTACT "algún"
substitueixMotTACT "alguna"
substitueixMotTACT "algunas"
substitueixMotTACT "alguno"
substitueixMotTACT "algunos"
substitueixMotTACT "allá"
substitueixMotTACT "allí"
substitueixMotTACT "alrededor"
substitueixMotTACT "ambas"
substitueixMotTACT "ambos"
substitueixMotTACT "ante"
substitueixMotTACT "anteayer"
substitueixMotTACT "antes"
substitueixMotTACT "aparte"
substitueixMotTACT "apenas"
substitueixMotTACT "aquel"
substitueixMotTACT "aquél"
substitueixMotTACT "aquella"
substitueixMotTACT "aquélla"
substitueixMotTACT "aquéllas"
substitueixMotTACT "aquellas"
substitueixMotTACT "aquello"
substitueixMotTACT "aquéllos"
substitueixMotTACT "aquellos"
substitueixMotTACT "aquí"
substitueixMotTACT "arriba"
substitueixMotTACT "así"
substitueixMotTACT "asimismo"
substitueixMotTACT "atrás"
substitueixMotTACT "aún"
substitueixMotTACT "aun"
substitueixMotTACT "aunque"
substitueixMotTACT "ayer"
substitueixMotTACT "bastante"
substitueixMotTACT "bastantes"
substitueixMotTACT "bien"
substitueixMotTACT "buena"
substitueixMotTACT "buenas"
substitueixMotTACT "bueno"
substitueixMotTACT "buenos"
substitueixMotTACT "cada"
substitueixMotTACT "casi"
substitueixMotTACT "cerca"
substitueixMotTACT "cierta"
substitueixMotTACT "ciertamente"
substitueixMotTACT "ciertas"
substitueixMotTACT "cierto"
substitueixMotTACT "ciertos"
substitueixMotTACT "clara"
substitueixMotTACT "claramente"
substitueixMotTACT "claras"
substitueixMotTACT "claro"
substitueixMotTACT "claros"
substitueixMotTACT "como"
substitueixMotTACT "cómo"
substitueixMotTACT "comoquiera"
substitueixMotTACT "completamente"
substitueixMotTACT "con"
substitueixMotTACT "conmigo"
substitueixMotTACT "considerablemente"
substitueixMotTACT "consigo"
substitueixMotTACT "constantemente"
substitueixMotTACT "contigo"
substitueixMotTACT "contra"
substitueixMotTACT "convenientemente"
substitueixMotTACT "cuál"
substitueixMotTACT "cual"
substitueixMotTACT "cualesquiera"
substitueixMotTACT "cualquier"
substitueixMotTACT "cualquiera"
substitueixMotTACT "cuán"
substitueixMotTACT "cuando"
substitueixMotTACT "cuándo"
substitueixMotTACT "cuánta"
substitueixMotTACT "cuántas"
substitueixMotTACT "cuanto"
substitueixMotTACT "cuánto"
substitueixMotTACT "cuántos"
substitueixMotTACT "cuya"
substitueixMotTACT "cuyas"
substitueixMotTACT "cuyo"
substitueixMotTACT "cuyos"
substitueixMotTACT "dado"
substitueixMotTACT "dar"
substitueixMotTACT "de"
substitueixMotTACT "deba"
substitueixMotTACT "debajo"
substitueixMotTACT "debe"
substitueixMotTACT "deben"
substitueixMotTACT "debido"
substitueixMotTACT "decir"
substitueixMotTACT "definitivamente"
substitueixMotTACT "dejar"
substitueixMotTACT "del"
substitueixMotTACT "delante"
substitueixMotTACT "demás"
substitueixMotTACT "demasiado"
substitueixMotTACT "dentro"
substitueixMotTACT "deprisa"
substitueixMotTACT "desde"
substitueixMotTACT "después"
substitueixMotTACT "detrás"
substitueixMotTACT "día"
substitueixMotTACT "dicha"
substitueixMotTACT "dicho"
substitueixMotTACT "difícilmente"
substitueixMotTACT "dignamente"
substitueixMotTACT "directamente"
substitueixMotTACT "distinto"
substitueixMotTACT "don"
substitueixMotTACT "doña"
substitueixMotTACT "donde"
substitueixMotTACT "dónde"
substitueixMotTACT "dondequiera"
substitueixMotTACT "durante"
substitueixMotTACT "e"
substitueixMotTACT "efectivamente"
substitueixMotTACT "él"
substitueixMotTACT "el"
substitueixMotTACT "ella"
substitueixMotTACT "ellas"
substitueixMotTACT "ello"
substitueixMotTACT "ellos"
substitueixMotTACT "en"
substitueixMotTACT "encima"
substitueixMotTACT "enfrente"
substitueixMotTACT "enseguida"
substitueixMotTACT "entonces"
substitueixMotTACT "entre"
substitueixMotTACT "entretanto"
substitueixMotTACT "es"
substitueixMotTACT "esa"
substitueixMotTACT "ésa"
substitueixMotTACT "esas"
substitueixMotTACT "ésas"
substitueixMotTACT "escasamente"
substitueixMotTACT "ese"
substitueixMotTACT "ése"
substitueixMotTACT "eso"
substitueixMotTACT "ésos"
substitueixMotTACT "esos"
substitueixMotTACT "especialmente"
substitueixMotTACT "está"
substitueixMotTACT "esta"
substitueixMotTACT "ésta"
substitueixMotTACT "estaba"
substitueixMotTACT "estar"
substitueixMotTACT "estará"
substitueixMotTACT "estaría"
substitueixMotTACT "estás"
substitueixMotTACT "éstas"
substitueixMotTACT "estas"
substitueixMotTACT "este"
substitueixMotTACT "éste"
substitueixMotTACT "esto"
substitueixMotTACT "estos"
substitueixMotTACT "éstos"
substitueixMotTACT "etc"
substitueixMotTACT "etcétera"
substitueixMotTACT "exclusivamente"
substitueixMotTACT "fácilmente"
substitueixMotTACT "finalmente"
substitueixMotTACT "francamente"
substitueixMotTACT "frecuentemente"
substitueixMotTACT "frente"
substitueixMotTACT "fuera"
substitueixMotTACT "generalmente"
substitueixMotTACT "gran"
substitueixMotTACT "grande"
substitueixMotTACT "ha"
substitueixMotTACT "haber"
substitueixMotTACT "había"
substitueixMotTACT "habiendo"
substitueixMotTACT "habrá"
substitueixMotTACT "hace"
substitueixMotTACT "hacer"
substitueixMotTACT "hacerlo"
substitueixMotTACT "hacía"
substitueixMotTACT "hacia"
substitueixMotTACT "han"
substitueixMotTACT "harto"
substitueixMotTACT "hasta"
substitueixMotTACT "hay"
substitueixMotTACT "hecho"
substitueixMotTACT "hombre"
substitueixMotTACT "hoy"
substitueixMotTACT "igualmente"
substitueixMotTACT "incluso"
substitueixMotTACT "indudablemente"
substitueixMotTACT "inevitablemente"
substitueixMotTACT "inmediatamente"
substitueixMotTACT "intensamente"
substitueixMotTACT "ir"
substitueixMotTACT "jamás"
substitueixMotTACT "junto"
substitueixMotTACT "justamente"
substitueixMotTACT "justo"
substitueixMotTACT "la"
substitueixMotTACT "las"
substitueixMotTACT "le"
substitueixMotTACT "lejos"
substitueixMotTACT "lejos"
substitueixMotTACT "les"
substitueixMotTACT "llegar"
substitueixMotTACT "lo"
substitueixMotTACT "los"
substitueixMotTACT "luego"
substitueixMotTACT "mañana"
substitueixMotTACT "más"
substitueixMotTACT "mas"
substitueixMotTACT "me"
substitueixMotTACT "mejor"
substitueixMotTACT "menos"
substitueixMotTACT "mí"
substitueixMotTACT "mi"
substitueixMotTACT "mía"
substitueixMotTACT "mías"
substitueixMotTACT "mientras"
substitueixMotTACT "mío"
substitueixMotTACT "míos"
substitueixMotTACT "mis"
substitueixMotTACT "misma"
substitueixMotTACT "mismas"
substitueixMotTACT "mismo"
substitueixMotTACT "mismos"
substitueixMotTACT "mucha"
substitueixMotTACT "muchas"
substitueixMotTACT "mucho"
substitueixMotTACT "muchos"
substitueixMotTACT "muy"
substitueixMotTACT "nada"
substitueixMotTACT "nadie"
substitueixMotTACT "naturalmente"
substitueixMotTACT "ni"
substitueixMotTACT "ningún"
substitueixMotTACT "ninguna"
substitueixMotTACT "ningunas"
substitueixMotTACT "ninguno"
substitueixMotTACT "ningunos"
substitueixMotTACT "no"
substitueixMotTACT "nos"
substitueixMotTACT "nosotras"
substitueixMotTACT "nosotros"
substitueixMotTACT "nuestra"
substitueixMotTACT "nuestras"
substitueixMotTACT "nuestro"
substitueixMotTACT "nuestros"
substitueixMotTACT "nuevamente"
substitueixMotTACT "nunca"
substitueixMotTACT "ó"
substitueixMotTACT "o"
substitueixMotTACT "obstante"
substitueixMotTACT "ojalá"
substitueixMotTACT "os"
substitueixMotTACT "otra"
substitueixMotTACT "otras"
substitueixMotTACT "otro"
substitueixMotTACT "otros"
substitueixMotTACT "para"
substitueixMotTACT "parte"
substitueixMotTACT "particularmente"
substitueixMotTACT "peor"
substitueixMotTACT "perfectamente"
substitueixMotTACT "pero"
substitueixMotTACT "personalmente"
substitueixMotTACT "poca"
substitueixMotTACT "pocas"
substitueixMotTACT "poco"
substitueixMotTACT "pocos"
substitueixMotTACT "por"
substitueixMotTACT "porque"
substitueixMotTACT "posiblemente"
substitueixMotTACT "posteriormente"
substitueixMotTACT "prácticamente"
substitueixMotTACT "previamente"
substitueixMotTACT "primer"
substitueixMotTACT "principalmente"
substitueixMotTACT "probablemente"
substitueixMotTACT "profundamente"
substitueixMotTACT "pronto"
substitueixMotTACT "puede"
substitueixMotTACT "pueden"
substitueixMotTACT "pues"
substitueixMotTACT "puramente"
substitueixMotTACT "que"
substitueixMotTACT "qué"
substitueixMotTACT "quien"
substitueixMotTACT "quién"
substitueixMotTACT "quiénes"
substitueixMotTACT "quienquiera"
substitueixMotTACT "quiera"
substitueixMotTACT "quiere"
substitueixMotTACT "quizá"
substitueixMotTACT "rápidamente"
substitueixMotTACT "realmente"
substitueixMotTACT "recién"
substitueixMotTACT "recientemente"
substitueixMotTACT "se"
substitueixMotTACT "según"
substitueixMotTACT "seguramente"
substitueixMotTACT "sencillamente"
substitueixMotTACT "señor"
substitueixMotTACT "sensiblemente"
substitueixMotTACT "ser"
substitueixMotTACT "será"
substitueixMotTACT "sería"
substitueixMotTACT "seriamente"
substitueixMotTACT "si"
substitueixMotTACT "sí"
substitueixMotTACT "siempre"
substitueixMotTACT "siete"
substitueixMotTACT "sigue"
substitueixMotTACT "simplemente"
substitueixMotTACT "sin embargo"
substitueixMotTACT "sin"
substitueixMotTACT "sino"
substitueixMotTACT "siquiera"
substitueixMotTACT "so"
substitueixMotTACT "sobre"
substitueixMotTACT "sola"
substitueixMotTACT "solas"
substitueixMotTACT "solo"
substitueixMotTACT "sólo"
substitueixMotTACT "solos"
substitueixMotTACT "son"
substitueixMotTACT "su"
substitueixMotTACT "sus"
substitueixMotTACT "suya"
substitueixMotTACT "suyas"
substitueixMotTACT "suyo"
substitueixMotTACT "suyos"
substitueixMotTACT "tal"
substitueixMotTACT "tales"
substitueixMotTACT "también"
substitueixMotTACT "tampoco"
substitueixMotTACT "tan"
substitueixMotTACT "tanta"
substitueixMotTACT "tantas"
substitueixMotTACT "tanto"
substitueixMotTACT "tantos"
substitueixMotTACT "tarde"
substitueixMotTACT "te"
substitueixMotTACT "temprano"
substitueixMotTACT "tener"
substitueixMotTACT "ti"
substitueixMotTACT "toda"
substitueixMotTACT "todas"
substitueixMotTACT "todavía"
substitueixMotTACT "todo"
substitueixMotTACT "todos"
substitueixMotTACT "totalmente"
substitueixMotTACT "tranquilamente"
substitueixMotTACT "tras"
substitueixMotTACT "través"
substitueixMotTACT "tu"
substitueixMotTACT "tú"
substitueixMotTACT "tus"
substitueixMotTACT "tuya"
substitueixMotTACT "tuyas"
substitueixMotTACT "tuyo"
substitueixMotTACT "tuyos"
substitueixMotTACT "u"
substitueixMotTACT "últimamente"
substitueixMotTACT "un"
substitueixMotTACT "una"
substitueixMotTACT "unas"
substitueixMotTACT "únicamente"
substitueixMotTACT "únicamente"
substitueixMotTACT "uno"
substitueixMotTACT "unos"
substitueixMotTACT "usted"
substitueixMotTACT "ustedes"
substitueixMotTACT "va"
substitueixMotTACT "ver"
substitueixMotTACT "verdaderamente"
substitueixMotTACT "vez"
substitueixMotTACT "volver"
substitueixMotTACT "vosotras"
substitueixMotTACT "vosotros"
substitueixMotTACT "vuelve"
substitueixMotTACT "vuestra"
substitueixMotTACT "vuestras"
substitueixMotTACT "vuestro"
substitueixMotTACT "vuestros"
substitueixMotTACT "y"
substitueixMotTACT "ya"
substitueixMotTACT "yo"
substitueix ")) ((", " "

End Sub

Sub substitueixMotTACT(arg1$)
'
' Macro que encapsulaun mot entre (( ))
'
' 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 = "((" + arg1$ + "))"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
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 qualsevol problema amb aquesta pàgina, contacteu "de_yza@upf.es"