Closing a Microsoft Word document

[Dawid Mocke]

thank you Rudolf

On 3 March 2015 at 19:55, Rudolf Bargholz <rudolf at bargholz.ch> wrote:

> Hi Dawid,
>
> If I recall correctly you have to manually ensure that all, and by all I
> mean every single reference to any object you created in the word document
> is explicitly destructed.
>
> We use the following for Excel, which is similar to working with Word:
>
> Calculate iWorkSheetObj as #NULL
>
> Calculate lCloseFlag as kFalse
> Calculate lTryCloseNo as 0
> While not(lCloseFlag)&lTryCloseNo<3
> Do iWorkBookObj.$::close(0) Returns lCloseFlag     ;; close the current
> excel work book without saving
> If not(lCloseFlag)
> Do iWorkBookObj.$::close() Returns lCloseFlag
> End If
> Calculate lTryCloseNo as lTryCloseNo+1
> Calculate lCloseFlag as pick(isnull(lCloseFlag),lCloseFlag,kFalse)
> End While
>
> Calculate iWorkBookObj as #NULL
> Do iExcelWorkBooksObj.$::close()
> Calculate iExcelWorkBooksObj as #NULL
> Do iExcelObj.$quit() Returns lErr     ;; close excel
> Do iExcelObj.$release() Returns lErr     ;; close excel
> Calculate iExcelObj as #NULL
>
> Perhaps this will give you an idea what to do in your case.
>
> Regards
>
> Rudolf
>
> -----Ursprüngliche Nachricht-----
> Von: omnisdev-en-bounces at lists.omnis-dev.com [mailto:
> omnisdev-en-bounces at lists.omnis-dev.com] Im Auftrag von Dawid Mocke
> Gesendet: Dienstag, 3. März 2015 18:41
> An: OmnisDev List - English
> Betreff: Closing a Microsoft Word document
>
> Hi Guys,
> I have successfully integrated to MS Word some years ago, but have never
> been able to actually close a document.  So I open a template, save it as
> something else and then merge the new document.
> I have tried a couple of times to close the template, but never got it
> working.
> Now I have a situation where I have to generate a lot of documents in quick
> succesession and while the original template is open, Microsoft will ask
> you everytime if you want to open a 'Read-Only' copy, or replace, etc.
>
> As you can understand this is both time consuming and very irritating.
>
> This is the code I use to open the template:
> Do iWordDocObjCollection.$open(iWordTempPath,kFalse,kFalse,kTrue) Returns
> iWordDocObj     ;; open template file
>
> To save the document as something else:
> Do iWordDocObj.$SaveAs(iWordDocPath) Returns #F
>
> Then I try and close the original template and I have tried the following
> with no success:
> Do iWordDocObj.$::close(iWordTempPath) Returns #F
> Do iWordDocObj.$close(iWordTempPath) Returns #F
>
> Any ideas that I can try?
>
> thank you,
>
> --
> Dawid Mocke
> This message (and any associated files) is intended only for the use of the
> individual or entity to which it is addressed and may contain information
> that is confidential, subject to copyright or constitutes a trade secret.
> If you are not the intended recipient you are hereby notified that any
> dissemination, copying or distribution of this message, or files associated
> with this message, is strictly prohibited. If you have received this
> message in error, please notify us immediately by replying to the message
> and deleting it from your computer.
> _____________________________________________________________
> Manage your list subscriptions at http://lists.omnis-dev.com
>
> _____________________________________________________________
> Manage your list subscriptions at http://lists.omnis-dev.com
>
>


-- 
Dawid Mocke
This message (and any associated files) is intended only for the use of the
individual or entity to which it is addressed and may contain information
that is confidential, subject to copyright or constitutes a trade secret.
If you are not the intended recipient you are hereby notified that any
dissemination, copying or distribution of this message, or files associated
with this message, is strictly prohibited. If you have received this
message in error, please notify us immediately by replying to the message
and deleting it from your computer.