Local editing of a domino Word Document

Steps:

1. The client registers the notes COM control. (Regsvr32 c: \ Lotus \ notes \ domobj. TLB) regsvr32 c: \ Lotus \ notes \ nlsxbe. dll

(Note: The COM component for registering Domino uses nlsxbe. dll instead of domobj. TLB. This has left me depressed for a long time .)

2. Save some custom document templates in the document database. Used to create a document.

3. Add VBScript to the form to remove the attachment from the server to the local device, and then use word. (The macro security of word is set to medium)

4. Add VBA to the exit event of the Word document in the document template.CodeTo upload files to the server. (Note: I have seen that a company's OA is automatically saved when writing is disabled .)

 

Note: To avoid the prompt password input box when starting COM, you can use API to create a DLL to avoid it. (I note: it is to use C API to perform a domino login verification filter)

 

Related code:

VBScript code on the form:

2. <Script language ="VBScript">
4. Sub button1_onclick
6. Dim S, Dir, DB, Doc, EO, no, word, worddoc
8. Set S = Createobject ("Lotus. notessession")
10. Call S. initialize
12. Set DB = S. getdatabase ("Sh_server","Intranet \ webtemp. nsf")
14. Set Doc = dB. getdocumentbyunid ("30c11b03d279463548256c7d000ddd74")
16. Set eo = Doc. getattachment ("Common example .doc")
18. Call eo. extractfile ("C: \ temp \ test.doc")
20. 'Create the wordObject:
22. Set word = Createobject ("Word. Application") 'Create wordObject
24. Call word.doc uments. Open ("C: \ temp \ test.doc")
26. Set worddoc = word. activedocument 'get a handleForThe active document
28. Word. Visible = true
30. 'Call eo. Remove
32. 'Set ritem = Doc. getfirstitem ("Rtfattachment")
34. & Apos; set no = ritem. embedobject (1454,"","C: \ temp \ test.doc")
36. 'Call Doc. Save (true, false) Administrator
38. Ad
40. 'Msgbox dB. filename +"&"+ DB. server ,,"Databases on"+ DB. Server
42. End sub
44. </SCRIPT>

Button code on the form:

1. <Input name ="Button1"Type ="Button"Value ="Edit body">

VBA code on the Word template:

2. Private sub document_close ()
4. Activedocument. Save
6. Dim S, Dir, DB, Doc, EO, no, word, worddoc
8. Set S = Createobject ("Lotus. notessession")
10. Call S. initialize
12. Set DB = S. getdatabase ("Sh_server","Intranet \ webtemp. nsf")
14. Set Doc = dB. getdocumentbyunid ("C47e90193c0e4d3248256c780006a73e")
16. Set eo = Doc. getattachment ("Common example .doc")
18. Call eo. Remove
20. Set ritem = Doc. getfirstitem ("Rtfattachment")
22. Set NO = ritem. embedobject (1454,"","C: \ temp \ test.doc")
24. Call Doc. Save (true, false)
26. Msgbox dB. filename +"The file has been uploaded to the server! &"+ DB. server ,,"Databases on"+ DB. Server
28. End sub

The preceding step is missing. You can use js to create a file stream to download the files on the server to the client.