{"id":61,"date":"2012-02-13T08:13:38","date_gmt":"2012-02-13T07:13:38","guid":{"rendered":"http:\/\/teske.dk\/?p=61"},"modified":"2012-02-18T07:42:01","modified_gmt":"2012-02-18T06:42:01","slug":"createobjectword-application-office-97-vs-office-2010","status":"publish","type":"post","link":"http:\/\/teske.dk\/?p=61","title":{"rendered":"CreateObject(“Word.Application”) Office 97 vs. Office 2010"},"content":{"rendered":"

In LotusScript when you create a Object af Word in Office 97, you can write something like this.<\/p>\n

Dim workspace As New NotesUIWorkspace
\nDim uidoc As NotesUIDocument
\nSet uidoc = workspace.CurrentDocument
\nSet wdApp = CreateObject(“Word.Application”)
\nSet docNew = wdApp.Documents.Add(“L:\\merge.doc”)
\nDim doc As NotesDocument
\nDim session As New NotesSession()
\nSet doc = uidoc.Document
\nWith wdApp.ActiveDocument.Bookmarks
\n\t.Item(“Nummer”).Range.Text = uidoc.FieldGetText( “number” )
\n\t.Item(“User”).Range.Text = uidoc.FieldGetText( “User” )
\n\t…….
\nEnd With
\nwdApp.visible = True\t<\/p>\n

This will open a Word document and put some tekst from a Notes document in it. But if you use this code with Office 2010 you will get a error.<\/p>\n

\"\"<\/a><\/p>\n

Type Mismatch i method NRun: FROMVAR found, Unknown expected<\/p>\n

This is because the create Object has not yet started, when this scrips run. Office 2010 is to slow. It works when you run i debug mode, but not if you run it without.<\/p>\n

One workaround is to put a sleep statement in code.<\/p>\n

Ex.<\/p>\n

Set wdApp = CreateObject(“Word.Application”)
\nSleep(3) ‘waits 3 seconds
\nSet docNew = wdApp.Documents.Add(“L:\\merge.doc”)<\/p>\n

Try if you can get it down to 1 or 2. Depending on your network and CPU<\/p>\n

Then the Word Document will open without errors<\/p>\n","protected":false},"excerpt":{"rendered":"

In LotusScript when you create a Object af Word in Office 97, you can write something like this. Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Set wdApp = CreateObject(“Word.Application”) Set docNew = wdApp.Documents.Add(“L:\\merge.doc”) Dim … Continue reading →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[74,77],"tags":[3,24,25,4],"_links":{"self":[{"href":"http:\/\/teske.dk\/index.php?rest_route=\/wp\/v2\/posts\/61"}],"collection":[{"href":"http:\/\/teske.dk\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/teske.dk\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/teske.dk\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/teske.dk\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=61"}],"version-history":[{"count":3,"href":"http:\/\/teske.dk\/index.php?rest_route=\/wp\/v2\/posts\/61\/revisions"}],"predecessor-version":[{"id":103,"href":"http:\/\/teske.dk\/index.php?rest_route=\/wp\/v2\/posts\/61\/revisions\/103"}],"wp:attachment":[{"href":"http:\/\/teske.dk\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=61"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/teske.dk\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=61"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/teske.dk\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=61"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}