; http://www.gonduana.com/cambiar-el-idioma-en-word-texto-corrido-cuadros-de-texto/

Sub CambiarIdiomaCajasDeTextoWord()
Dim forma As Shape
Dim cadena As String
Dim contador As Integer
Dim HoraInicio As Double, HoraFinal As Double

    'Guarda la hora de inicio de la macro VBA en la variable "HoraInicio"
    HoraInicio = Timer

    'Puesta a cer de la variable contador
    contador = 0
    'Desmarcar la casilla "Detectar idioma automáticamente"
    Application.CheckLanguage = False

    For Each forma In ActiveDocument.Shapes
        If forma.Type = msoTextBox Then
            forma.Select
            Selection.LanguageID = 3082

            'Marcar la casilla "No revisar la ortografía ni la gramática"
            Selection.NoProofing = False

            'Incrementar el contador de cuadros texto
            contador = contador + 1
        End If
    Next forma

    'Guarda la hora final de la macro VBA en la variable "HoraFinal"
    HoraFinal = Timer

    'Cadena de texto que nos mostrará al final
    'con el tiempo que ha tardado
    'y el número de cuadros de texto cambiados de idioma
    cadena = "Terminado el cambio de idioma." & Chr(10) & Chr(10) _
    & "Ejecutado en: " & HoraFinal - HoraInicio & " segundos" _
    & Chr(10) & Chr(10) _
    & "Cuadros de texto cambiados: " & contador

    MsgBox (cadena)
End Sub