` Comment on an Icetips Article
Icetips - Templates, Tools & Utilities for Clarion Developers

Templates, Tools and Utilities
for Clarion Developers

Add a comment to an Icetips Article

Please add your comments to this article. Please note that you must provide both a name and a valid email address in order for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!

Your Name:  
Email:  
Header text/Subject:  

Please enter your comment in the box below:

Back to article list   Search Articles     Add Comment     Printer friendly     Direct link  

OLE/ActiveX: MS-Word mail-merge code
2004-07-05 -- Peter Kirk
 
Newsgroups: softvelocity.clarion.language You could try turning off the DisplayAlerts flag.. (See below) I have included the entire text for my Word merge. It uses VBA and works well for me. (for clarification, I am using external merge files and routines stored in a common template which is loaded as an addin.) CASE CLIP(ContainerFile) OF 'Word.Document' !Merge Word Document WindowDisplayString = 'Merging Document...' DISPLAY() !Get Handle of Existing Applications WindowName = 'MICROSOFT WORD' !Window Caption DO SaveExistingApplications ?OBJ{PROP:Create} = 'Word.Application' ?OBJ{'AddIns.Add("'&CLIP(CommonTemplate)&'",'&vbTrue &')'}!Load Common Template ?OBJ{'Visible'} = vbTrue vbApp = ?OBJ{'Documents.Add("'&CLIP(TemplateToLoad)&'")'} IF MacroToRun <> '' THEN ?OBJ{'Run("'&CLIP(MacroToRun)&'")'} !Run Macro END ?OBJ{'ActiveDocument.AttachedTemplate'} = '""' !Remove Attached Template ?OBJ{'ActiveDocument.SaveAs(FileName="'&CLIP(TempContainerFile)&'")'} IF ?OBJ{'Documents.Count'} > 0 THEN !Are Any Documents Open? LOOP i# = 1 to ?OBJ{'Documents.Count'} !Close All Open Documents ?OBJ{'Documents('&i# &').Saved'} = vbTrue ?OBJ{'Documents('&i# &').Close('&vbFalse &')'} !Close Don't Save END END WindowDisplayString = 'Loading Document...' DISPLAY() ?OBJ{'AddIns("'&CLIP(CommonTemplate)&'").Installed'} = vbFalse !Remove AddIn ?OBJ{'DisplayAlerts'} = vbFalse ?OBJ{'Quit('&vbFalse &')'} !Quit, Don't Save ?OBJ{'DisplayAlerts'} = vbTrue ?OBJ{PROP:Release} = vbApp ?OBJ{PROP:DeActivate} = TRUE !DeActivate Word Object !ShutDown Open Process (If Still active for any reason) DO ShutDownOpenProcesses !Terminate Word Application END Regards, Peter Kirk


Today is May 4, 2024, 10:55 am
This article has been viewed 35120 times.
Google search has resulted in 234 hits on this article since January 25, 2004.



Back to article list   Search Articles   Add Comment   Printer friendly

Login

User Name:

Password: