Closing Generated MS Word Doc causes error 'Call was rejected by callee'

[SpookyAwol]

Short intro - this is a Winform program which can generate MS Word reports.
An error is created when a user trys to shut down the generating word report before the processing is complete (ie if its a long document and the user closes word)

System.Runtime.InteropServices.COMException
  HResult=0x80010001
  Message=Call was rejected by callee. (Exception from HRESULT: 0x80010001 (RPC_E_CALL_REJECTED))
  Source=<Cannot evaluate the exception source>
  StackTrace:
<Cannot evaluate the exception stack trace>

Is there a way to prevent this error or process msword in the background so the user cant interact with it until its finished?

Dim oWord As Word.Application
        oWord = New Word.Application
        oWord.Documents.Add("\List.dot")
        oWord.Visible = True
        oWord.Activate

        With oWord.ActiveDocument

' do word stuff

        End With
        oWord = Nothing

[fubao]

Direct solution : If it is a report, user should see it after the report is generated successfully.
so, you should place oWord.Visible = True after 'do word stuff

edit : this is exactly what you want, you don't need to set it visible at first.
If do stuff with code, it can be done in invisible mode

[SpookyAwol]

Do you have a simple example of what works? Im guessing its just the order of things, but trying this:

Dim oWord As Word.Application
        oWord = New Word.Application
        oWord.Documents.Add("\List.dot")
        oWord.Visible = false
        oWord.Activate

        With oWord.ActiveDocument

' do word stuff

        End With
        oWord.Visible = true
        oWord = Nothing

causes an error at line : With oWord.ActiveDocument

System.Runtime.InteropServices.COMException
  HResult=0x800A11F9
  Message=Cannot activate application

[SpookyAwol]

Another possibility I would guess, is :

oWord.WindowState = Word.WdWindowState.wdWindowStateMinimize

        With oWord.ActiveDocument

' do word stuff

        End With
oWord.WindowState = Word.WdWindowState.wdWindowStateMaximize
        oWord = Nothing

[fubao]

Any stuff you want to do(eg. fill value, delete value, get value to use in your program)

You don't open any workbook yet, then , there won't be any active workbook, use this to open workbook

oWord.Workbooks.Open("C:\xxxx\Desktop\xxx\xxx.xlsx")