Visual Basic - Justificar texto en word

Life is soft - evento anual de software empresarial
 
Vista:

Justificar texto en word

Publicado por Jose (26 intervenciones) el 29/09/2005 17:34:46
Hola, necesito crear con V-B un documento de Word y que el texto esté justificado, así como algunas palabras en negrita.

Muchas gracias por vuestro tiempo.

Un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Justificar texto en word

Publicado por Gustavo (181 intervenciones) el 29/09/2005 21:59:25
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar