#include "word10.h" #DEFINE CR CHR(13) #DEFINE LF CHR(11) LOCAL lcAddress AS STRING, ; lcMailName AS STRING, ; lcSalutation AS STRING *:Global oDocument, ; oForm, ; oRange, ; oWord as word.application oForm = oApp.GetFormObj([D_PCONTACT], [O]) lcSalutation = oForm.txtSalutation.VALUE lcAddress = STRTRAN(oForm.edtAddress.VALUE, CHR(13)+CHR(10), CHR(11)) lcMailName = oForm.edtMailName.VALUE oWord = CREATEOBJECT([word.application]) && Create word object WITH oWord oDocument = .documents.ADD() oRange = oDocument.RANGE() oRange.InsertAfter(CR) oRange.InsertAfter(lcMailName + LF) oRange.InsertAfter(lcAddress + CR + CR + CR) oRange.InsertAfter(lcSalutation + CR + LF) .ActiveDocument.SAVEAS(ADDBS(THISFORM.DocFolder) + THISFORM.DocName) _SCREEN.WINDOWSTATE = 1 .VISIBLE = .T. && Show word app .ACTIVATE && Make it the active foreground app ENDWITH oRange = NULL oDocument = NULL oWord = NULL THISFORM.RELEASE()