Visual Basic para Aplicaciones - de vb a word

Life is soft - evento anual de software empresarial
 
Vista:

de vb a word

Publicado por Gerardo Duran Aguilar (1 intervención) el 10/12/2004 14:27:40
hola, les explio lo q necesito, tengo un formulario desde el cual desde un boton "exportar a word" envio todo el contendio de un textbox (q tiene mas de 25 lineas) a un documento word, hasta ahi todo bien, lo q quiero es q ese mismo contenido este con alineacion JUSTIFICADA, cuando abro el documento de word el texto esta desalineado, uso el siguiente codigo para enviar el texto, solo falta q se guarde con alineacion JUSTIFICADA, les estoy agradecido

Dim MSWord As New Word.Application
Dim Documento As Word.Document
Dim Parrafo As Paragraph
Set Documento = MSWord.Documents.Open("c:\resolucion.doc")
Set Parrafo = Documento.Paragraphs.Add
Parrafo.Range.InsertAfter txtcuerpo.Text <-- tiene mas de 25 lineas
MSWord.Visible = False
nombre = txtproveido & ".doc"
MSWord.Documents(1).SaveAs "C:\" + nombre
MSWord.Documents.Close
MSWord.Quit
MsgBox "El archivo se guardo como " + nombre, vbInformation, "Nombre de archivo"
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:de vb a word

Publicado por Petter.pe (77 intervenciones) el 10/12/2004 19:23:40
Puedes añadir:
Parrafo.Format.Alignment = wdAlignParagraphJustify
y cambiar InsertAfter por InsertBefore
Quedando tu el código de la siguiente manera:

Dim MSWord As New Word.Application
Dim Documento As Word.Document
Dim Parrafo As Paragraph
Set Documento = MSWord.Documents.Open("c:\resolucion.doc")
Set Parrafo = Documento.Paragraphs.Add
Parrafo.Format.Alignment = wdAlignParagraphJustify ' <--AGREGADO

Parrafo.Range.InsertBefore txtcuerpo.Text '<-- MODIFICADO
MSWord.Visible = False
nombre = txtproveido & ".doc"
MSWord.Documents(1).SaveAs "C:\" + nombre
MSWord.Documents.Close
MSWord.Quit
MsgBox "El archivo se guardo como " + nombre, vbInformation, "Nombre de archivo"
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