Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve o establece el estilo de escritura para un idioma especificado en el documento especificado. String de lectura y escritura.
Sintaxis
expresión.
ActiveWritingStyle( _LanguageID_ )
expresión requerida. Variable que representa un objeto Document.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| LanguageID | Obligatorio | Variant | El idioma que se va a establecer el estilo de escritura en el documento especificado. Puede ser una cadena o una de las siguientes constantes WdLanguageID. Es podrán que algunas de las constantes WdLanguageID no estén disponibles, según la compatibilidad con el idioma que haya seleccionado o instalado (por ejemplo, inglés, Estados Unidos). |
Observaciones
La propiedad WritingStyleList devuelve una matriz de los nombres de los estilos de escritura disponibles.
Ejemplo
En este ejemplo se establece para el documento activo el estilo de escritura utilizado por el francés, el alemán y el español. Debe tener instalados los archivos de gramática para francés, alemán y español con el fin de ejecutar este ejemplo.
With ActiveDocument
.ActiveWritingStyle(wdFrench) = "Commercial"
.ActiveWritingStyle(wdGerman) = "Technisch/Wiss"
.ActiveWritingStyle(wdEnglishUS) = "Technical"
End With
En este ejemplo, se devuelve el estilo de escritura del idioma de la selección.
Sub WhichLanguage()
Dim varLang As Variant
varLang = Selection.LanguageID
MsgBox ActiveDocument.ActiveWritingStyle(varLang)
End Sub
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.