
Macro Corrector de Ortografía en Formulario de Word
Publicado por Alejandro (1 intervención) el 18/09/2024 21:42:34
Hola a todos, por favor si me pueden ayudar con esta Macro que corrige ortografía y gramática en un formulario de word, quedaré muy agradecido, no soy programador pero si buscador de soluciones.
Tengo un formulario de Word con campos editables y listas desplegables y protegido con contraseña para garantizar que no modifiquen el texto fijo ni el formato, debido a que es usado por varias personas, el problema es que al ejecutarse lo hace en todo el documento (Texto fijo, y campos de formulario) y necesito modificarlo para que lo haga solo en un campo editable del formulario (por ejemplo en el campo con marcador denominado "Texto22") ejecutándose al salir de ese campo. Alguien me puede dar una mano por favor?
Sub FormsSpellCheck()
' If document is protected, Unprotect it.
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="12345"
End If
' Set the language for the document.
Selection.WholeStory
Selection.LanguageID = wdSpanish
Selection.NoProofing = False
' Perform Spelling/Grammar check.
If Options.CheckGrammarWithSpelling = True Then
ActiveDocument.CheckGrammar
Else
ActiveDocument.CheckSpelling
End If
' ReProtect the document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End If
End Sub
Tengo un formulario de Word con campos editables y listas desplegables y protegido con contraseña para garantizar que no modifiquen el texto fijo ni el formato, debido a que es usado por varias personas, el problema es que al ejecutarse lo hace en todo el documento (Texto fijo, y campos de formulario) y necesito modificarlo para que lo haga solo en un campo editable del formulario (por ejemplo en el campo con marcador denominado "Texto22") ejecutándose al salir de ese campo. Alguien me puede dar una mano por favor?
Sub FormsSpellCheck()
' If document is protected, Unprotect it.
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="12345"
End If
' Set the language for the document.
Selection.WholeStory
Selection.LanguageID = wdSpanish
Selection.NoProofing = False
' Perform Spelling/Grammar check.
If Options.CheckGrammarWithSpelling = True Then
ActiveDocument.CheckGrammar
Else
ActiveDocument.CheckSpelling
End If
' ReProtect the document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End If
End Sub
Valora esta pregunta


0