Macro para Outlook 2016
AUTOR PREGUNTA #1
Estoy intentando crear un macro para ajustar el párrafo, pero me da un error de objeto. Mi proyecto es:
Public Sub Formato()
Dim thisObject As Object
Set thisObject = Nothing
With Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
Selection.ParagraphFormat.SpaceBefore = 12
Selection.ParagraphFormat.LeftIndent = 1
End With
End Sub
-
1 personas más tuvieron esta duda Yo también
Esto también te interesa!
PREGUNTAS SIMILARES
#2
Si estás intentando ajustar el formato de un párrafo en un correo de Outlook usando un macro de VBA, el enfoque puede ser un poco diferente al que has estado intentando, debido a que Outlook maneja los correos electrónicos en HTML, no como objetivos de word.
Esto seria codigo de empiece para lo que quieres amigo:
Sub CrearCorreoConFormato()
Dim olApp As Object
Dim NuevoCorreo As Object
Set olApp = CreateObject("Outlook.Application")
Set NuevoCorreo = olApp.CreateItem(0)
' Define el formato HTML para el correo
Dim cuerpoCorreo As String
cuerpoCorreo = "<p style='text-align:justify; margin-left:1em;'> Este es tu texto. </p>"
With NuevoCorreo
.Subject = "Asunto del correo"
.BodyFormat = olFormatHTML
.HTMLBody = cuerpoCorreo
.Display
End With
Set NuevoCorreo = Nothing
Set olApp = Nothing
End Sub
Este código crea un nuevo correo electrónico en Outlook y establece el cuerpo del correo como HTML. Dentro de la etiqueta <p> (párrafo) en HTML, puedes definir la alineación del texto (text-align:justify) y la sangría a la izquierda (margin-left:1em). Reemplaza " Este es tu texto. " con el texto que quieras usar.
Personaliza este codigo como creas oportuno.
