FoxPro/Visual FoxPro - Contenido de Memo a Word

PROCEDURE COPY_TO_WORD

LPARAMETERS tcString

LOCAL loWord as Object , loDoc as Object,lError

TRY

	LOCAL LOEX AS Exception

	lOWord = CREATEOBJECT("Word.Application")

CATCH TO loEx

	lError = .t.

	=MESSAGEBOX("No se puede procesar el archivo porque no tiene la aplicación"+CHR(13)+;

	      "Microsoft Word instalada en su computador.",0,tH_mensaje)

FINALLY

ENDTRY

IF lError

	RETURN

ENDIF

* ? " Agregando un Documento..."

TRY

	loWord.Documents.ADD()

	loDoc = loWord.ActiveDocument

	* ? " Configurando Hoja..."

	npar=0

	cmLm=3

	cmRM=3

	nFactor=28.35

	nleftMargin=Int(nFActor*cmLM)

	nTopMargin=int(nFActor*2.6)

	with loDoc.PageSetup

		.PaperSize=7

		.topMargin=nTopMargin

		.BottomMargin=int(nFactor*2.5)

		.LeftMargin=nLeftMargin

		.RightMargin=Int(nFactor*cmRm)

		.FooterDistance = int(nFactor*1.5)

		.HeaderDistance = nFActor

	endwith

	with loDoc.Content

   		.InsertAfter(tcString)  && aquí se inserta el texto del parámetro.

    		.InsertParagraphAfter

   	ENDWITH

CATCH TO loEx

	*ShowError(loEx)   Rutina de muesta de errores capturados.

FINALLY

	* Ver Garbage

	loWord.visible = .t.

	loWord = null

ENDTRY