Hi there,
Could anyone help me with exporting data to MSWord?
I have a procedure that works on desktop but doesn't work when on ISAPI. It works on unigui exe too.
CoInitialize(NULL);
try
{
Variant vMSWord;
Variant vWDocuments, vWDocument;
vMSWord = Variant::CreateObject("Word.Application");
String vNomeArq = "";
try
{
vMSWord.OlePropertySet("Visible", true);
vNomeArq = UniServerInstance()->StartPath + "modelo.doc";
vWDocuments = vMSWord.OlePropertyGet("Documents");
OleVariant vFileName = vNomeArq;
Variant vLink = Unassigned;
Variant vReadOnly = false;
Variant vFormat = Unassigned;
vWDocument = vWDocuments.OleFunction("Open", vFileName, vLink, vReadOnly, vFormat);
OleVariant vTxtOld = "<NOME>";
OleVariant vTxtNew = "FULANO DA SILVA";
vMSWord.OlePropertyGet("Selection").OleFunction("HomeKey", 6);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OleFunction("Execute", vTxtOld, false, true, false, false, false, true, false, false, vTxtNew, 2, false, false, false, false);
vWDocument.OleProcedure("Save");
vWDocuments.OleFunction("Close");
vMSWord.OleFunction("Quit");
}
catch (Exception &erro)
{
ShowMessage("Erro: " + vNomeArq + " - " + erro.Message);
}
}
__finally
{
CoUninitialize;
}