He encontrado este artículo en
http://www.lawebdelprogramador.com/foros/Power_Builder/764974-PowerBuilder_con_Word.html
Y como me ha sido de mucha ayuda, me he permitido traerlo por si un día lo quitan
Saludos
| Asunto: | PowerBuilder con Word |
| Autor: | Miguel Zurita R. (2 intervenciones) |
| Fecha: | 28/02/2007 14:22:05 |
A toda la gente que intenta trabajar con Word
ahi va eso
esto esta probado con PB 8 y word 2003
OLEObject ole_object
integer li_result, li_n,NbrRows
string ls_nombre , str
long i_handle
str = "New Text"
ole_object = CREATE OleObject
li_result = ole_object.ConnectToNewObject("word.application")
IF li_result <> 0 THEN
DESTROY ole_object
MessageBox("OLE Error", "No puede conectarse a Word " &
+ "Código: " &
+ String(li_result))
SetPointer(Arrow!)
RETURN
END IF
//Abrir el documento
ole_object.documents.open("C:\Prueba.doc")
ole_object.visible=true
//Para crear un documento nuevo basado en Normal.dot
//OLE_OBJECT.Documents.Add()
//Tamaño papel
//Tabloid=1, Letter=2, Legal=4, Executive=5,A3=6, A5=9, etc.
ole_object.ActiveDocument.pagesetup.Papersize= 7 // A4
//Orientación
ole_object.ActiveDocument.pagesetup.Orientation= 1 // Portrait
//Márgenes
ole_object.ActiveDocument.pagesetup.LeftMargin=ole_object.CentimetersToPoints( 2.5)
ole_object.ActiveDocument.pagesetup.RightMargin=ole_object.CentimetersToPoints( 2)
ole_object.ActiveDocument.pagesetup.TopMargin=ole_object.CentimetersToPoints( 2.5)
ole_object.ActiveDocument.pagesetup.BottomMargin=ole_object.CentimetersToPoints( 2)
//Insert algún texto en un nuevo párrafo
ole_object.Selection.Font.Name = "Verdana"
ole_object.Selection.Font.Bold = TRUE
ole_object.Selection.Font.Italic = TRUE
ole_object.Selection.Font.Underline = TRUE
ole_object.Selection.Font.Color =rgb(255,0,0)
ole_object.Selection.Font.Size = 16
ole_object.Selection.TypeParagraph()
ole_object.selection.ParagraphFormat.Alignment = 1
ole_object.Selection.TypeText( "TITULO" + '~r~n')
ole_object.Selection.Font.Size = 10
ole_object.selection.ParagraphFormat.Alignment = 2
ole_object.Selection.TypeText( 'Dia : ' + string(today() , 'yyyy/mm/dd?') + '~r~n')
ole_object.Selection.typetext("~n")
ole_object.selection.ParagraphFormat.Alignment = 3
ole_object.Selection.typetext("prueba")
ole_object.Selection.typetext("~n")
ole_object.Selection.TypeParagraph()
//Selecciona la parte indicada
//ole_object.selection.MoveLeft(1,8,1)
//ole_object.selection.TypeBackspace()
//ole_object.selection.goto(true,0,0,str)
// inserta un marcador
ole_object.ActiveDocument.bookmarks.add("bookmark_name")
ole_object.ActiveDocument.Bookmarks.item("bookmark_name").Select
ole_object.Selection.typetext("Hola Mundo!")
// ir a la linea ...
// ole_object.selection.GoToNext(0)
//abre el cuadro de gramatica
//ole_object.ActiveDocument.CheckGrammar()
//abre el cuadro de Ortografia
//ole_object.ActiveDocument.CheckSpelling()
// Insertar texto en el marcador llamado Final
//GUARDAR EL DOCEMENTO ACTIVO COMO ...
//ole_object.ActiveDocument.SaveAs("C:\plantilla_word2.doc")
//ole_object.quit(0)
ole_object.disconnectobject( )
destroy ole_object
///*******************************************************************************
//ole_object.selection.Information[12]
//ole_object.selection.MoveLeft(1,5,1)
//ole_object.selection.TypeBackspace()
//ole_object.ActiveDocument.CheckSpelling()
//ole_object.Selection.Font.Italic = TRUE
//ole_object.Selection.Font.bold = TRUE
//ole_object.Selection.Font.Name = "Arial"
//ole_object.Selection.Font.Size = 24
//ole_object.Selection.Words[1].Italic = True
//ole_object.ActiveDocument.Paragraphs[1].Range.Font = "Arial"
//ole_object.selection.GoTo(TRUE,0,0,"state")
//ole_object.selection.GoToNext(3)
//ole_object.Selection.Find.Forward = True
//ole_object.Selection.ClearFormatting
//ole_object.Selection.MatchWholeWord = True
//ole_object.Selection.MatchCase = False
//ole_object.Selection.Wrap = wdFindContinue
//ole_object.Selection.Execute("PowerBuilder")
//
///*******************************************************************************
//i_handle = OpenChannel("Word","System")
//IF i_handle > 0 THEN
//messagebox('Atención','Word Pro Abierto',exclamation!)
//CloseChannel(i_handle)
//ELSE
// MESSAGEBOX("Titulo","NADA DE NADA")
//return 0
//END IF
//
