RE:Power - Microsoft Word
Hola Javicho
Te pongo un ejemplo
* Crea una plantilla en word e Insertar marcadores en un documento (Insertar/Marcador)
Estimado:
[marcador_nombre]
Presente.-
etc,etc,
* Colocas este Script en PB (Lógicamente si lo deseas para un listado de trabajores lo colocas dentro de un bucle, eso ya es pichanga para ti):
OLEObject ole_word
integer li_result, li_n
string ls_nombre
ole_word = CREATE OleObject
li_result = ole_word.ConnectToNewObject("word.application")
IF li_result <> 0 THEN
DESTROY ole_word
MessageBox("OLE Error", "No puede conectarse a Word " &
+ "Código: " &
+ String(li_result))
SetPointer(Arrow!)
RETURN
END IF
//Abrir el documento
ole_word.documents.open("c:\contrato.doc")
ole_word.Visible=FALSE
//Obtenemos el registro actual
li_n=dw_1.GetRow()
ls_nombre = dw_1.GetItemString(li_n, "nombre")
ole_word.ActiveDocument.Bookmarks.item("marcador_nombre").Select
ole_word.Selection.typetext(ls_nombre)
//Imprimir
ole_word.Application.printout(0)
//Cerrar sin guardar
ole_word.quit(0)
//Nos desconectamos
ole_word.DisconnectObject()
DESTROY ole_word
Nota: Los marcadores normalmente permanecen ocultos en tu documento; pero si deseas verlos, te vas al menú: Herramientas/Opciones y en la ficha ver, activas la casilla: Marcadores.
Espero que esto te ayude. Cualquier duda me comentas.
Suerte !