RE:Justificar texto en word
hola colega Q quieres ?
abrir word incertar texto justificado y poner cadenas en negritas ?
mira para abrir word es :
'primero debes referenciar a word
Dim Hoja As Word.Document
Dim ApWord As Word.Application
Dim docword As Word.Document
Set ApWord = CreateObject("Word.Application")
'Método CreateObject y Application, con esto creamos el objeto
'para trabajar con la applicacion
Set Hoja = ApWord.Documents.Add
'agregamos un nuevo documento
' o una hoja
' Y PARA ESCRIBIR USA ESTO
With ApWord.Selection
.ParagraphFormat.Alignment = wdAlignParagraphCenter '__Alinear al centro
.Font.Size = 20 '______________________________________Tamaño de la letra
.Font.Color = wdColorDarkBlue '________________________Color de la letra
.Font.Bold = True '____________________________________En false para desactivar negritas
.Font.Italic = True '__________________________________En false para desactivar cursiva
.Font.Underline = True '_______________________________En false para desactivar subrayado
.TypeText "Gustavo García" '___________________________Texto siempre entre comillas
.TypeParagraph '_______________________________________Salto de linea
.TypeParagraph '_______________________________________Salto de linea
.Font.Bold = False '___________________________________En false para desactivar negritas
.Font.Italic = False '_________________________________En false para desactivar cursiva
.Font.Underline = False '______________________________En false para desactivar subrayado
.Font.Color = wdColorGold '____________________________Color de la letra
.ParagraphFormat.Alignment = wdAlignParagraphJustify '_Justificar
'para alinear a la izquierda o derecha solo utiliza cambia el fin de la instuccion
'segun el lado a que quieras justificar por Left o Rigth
end with
ApWord.Visible = True 'Hacemos visible la applicacion