Power Builder - PowerBuilder con Word

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
//

Hola a todos,
me podrían ayudar eh recuperado un doc word de la db sql server en un blob en power builder, eh intento transformar este blob otra vez a word y salvar en el disco, pero nada que ver..

No se como hacerlo soy principiante con blobs.

Saludos y gracias

Me sale un error, al ejecutar:

Undefined Variable WdFindContinue por favor me podrías indicar cómo soluciono este problema ?.

El trabajo que deseo hacer es que al momento de mostrar el documento WORD, éste aparezca con algunas palabras resaltadas (las el usuario intenta buscar). Las palabras deben aparecer automáticamente seleccionadas.

Gracias por tu respuesta.

Saludos

Maria

espero verlo funcionando

que tal buen aporte, una nueva que me parece importante, como escribir en el encabezado de word desde power 9, si me ayudas por fa.