ActiveX and Word

Question

All,
I am in the process of parsing documents and creating a Word 97 document.
This document only contains a table. I was able to successfully create the
table,
change the column widths, and add headers. One of the columns contains comma
delimited variables. I am trying to select the column and then replace the
"," with
. The code snippet below was one of the many attempts to do this:
err = Word_SelectColumn( tableHandle, 3 );
err = CA_VariantSetCString( &vtFindText, "," );
err = CA_VariantSetCString( &vtReplaceWith, "^l" );
err = CA_VariantSetLong( &vtReplace, WordConst_wdReplaceAll );
err = CA_VariantSetLong( &vtWrap, WordConst_wdFindStop );
err = Word_GetProperty( tableHandle, NULL, Word_SelectionFind, CAVT_OB
JHANDLE,
&findHandle );
//Word_FindClearFormatting( findHandle, NULL );
//Word_ReplacementClearFormatting( findHandle, NULL );
err = Word_FindExecute( findHandle, NULL, vtFindText, CA_DEFAULT_VAL,
CA_DEFAULT_VAL,
CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL,
CA_DEFAULT_VAL, vtWrap, CA_DEFAULT_VAL,
vtReplaceWith, vtReplace, &status);
Word_FindExecute expects a Find Obj but the call to Word_GetProperty yields
an error.
Any help would be greatly appreciated.
Thanks.
Randy Schmidt
DAQtech, Inc.

Answer 1

We do not have an example that will do *exactly* what you need, but you should
find an ActiveX example program, either in the CVI samples folder or on the
Example Programs Database, that illustrates how to print a document in Word.
The function you will need to call that actually invokes the print method
is Word_DocumentPrintOutOld. It's defined in word2000.h; the prototype,
in case you were curious is:
HRESULT CVIFUNC Word_DocumentPrintOutOld (CAObjHandle objectHandle,
ERRORINFO *errorInfo,
VARIANT background, VARIANT append,
VARIANT range, VARIANT outputFileName,
VARIANT from, VARIANT to, VARIANT
item
VARIANT copies, VARIANT pages,
VARIANT pageType, VARIANT printToFile,
VARIANT collate,
VARIANT activePrinterMacGX,
VARIANT manualDuplexPrint);
"Han Stehmann" wrote:
>>I'd like to print labels from CVI. I managed to create the label type I
need>in WORD. Now I want to use that in CVI. The following macro describes
exactly>what I want. Maybe someone can translate this to CVI, please ???>>>Sub
Macro2()>'>' Macro2 Macro>' Macro recorded 17-02-00 by IT-Systems>'> Documents.Add
Template:= _> "C:\Program Files\Microsoft Office\Templates\Normal.dot",
NewTemplate:=>_> False> Application.MailingLabel.DefaultPrintBarCode
= False> Application.MailingLabel.CreateNewDocument Name:="10.63230",
Address:="">_> , AutoText:="ToolsCreateLab
els1", ExtractAddress:=False>End
Sub>