Question How to show every tab page with word document with single instance of the word app

piyush.mall

New member
Joined
May 25, 2012
Messages
1
Programming Experience
3-5
Hi,

I am facing one issue related to the word application and document in my application.
I am trying to add document in a single word application instance. I am sharing code below:
There is a user control which is implementing the word application and creating document in it on page load.

Winword as user control

Public Shared wordApp As Microsoft.Office.Interop.Word.Application
Dim document As Document
Dim wordWnd As Integer = 0
<DllImport("user32.dll")> _
Private Shared Function SetParent(ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
End Function

<DllImport("user32.dll", EntryPoint:="SetWindowPos")> _
Private Shared Function SetWindowPos(ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, _
ByVal uFlags As UInteger) As Boolean
'window-positioning options
End Function

<DllImport("user32.dll")> _
Private Shared Function FindWindow(ByVal strclassName As String, ByVal strWindowName As String) As Integer
End Function

<DllImport("user32.dll", EntryPoint:="MoveWindow")> _
Private Shared Function MoveWindow(ByVal hWnd As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Boolean) As Boolean
End Function

Public Sub New()
InitializeComponent()
LoadDocument("~\Sample.doc")
End Sub

Public Sub LoadDocument(ByVal t_filename As String)
Dim filename As String
filename = t_filename
If wordApp Is Nothing Then
wordApp = New Word.Application()
End If

If wordWnd = 0 Then
wordWnd = FindWindow("Opusapp", Nothing)
End If
If wordWnd <> 0 Then
SetParent(wordWnd, Me.Handle.ToInt32)
Dim fileName__1 As Object = filename
Dim newTemplate As Object = False
Dim docType As Object = 0
Dim isVisible As Object = True
Try
wordApp.Visible = False
document = wordApp.Documents.Add(fileName__1, newTemplate, docType, True)
wordApp.Visible = True
Catch
End Try
Try
wordApp.ScreenUpdating = True
wordApp.ActiveWindow.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdWebView
SetWindowPos(wordWnd, f_handle, 0, 0, Me.Bounds.Width, Me.Bounds.Height, _
SWP_NOZORDER Or SWP_NOMOVE Or SWP_DRAWFRAME Or SWP_NOSIZE)
deactivateevents = False
'OnResize()
Catch
End Try
End If
End Sub

And I can using this control on my form as follows.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 1 To 4
CreateTab("Tab" + i.ToString, "TAB CREATED" + i.ToString)
Next
End Sub

Private Sub CreateTab(ByVal TabCaption As String, ByVal memoText As String)
Dim ftb As WinWord
Dim tpage As TabPage
Me.TabControl1.TabPages.Add(TabCaption)
tpage = TabControl1.TabPages(TabControl1.TabPages.Count - 1)
ftb = New WinWord
ftb.Name = " WinWord"
ftb.Dock = DockStyle.Fill
tpage.Controls.Add(ftb)
End Sub

I am getting one document out side of the application. For every tab pages its working fine but for tab page 1 its throwing document outside of the application.
Please help me out for solving this issue I need to show every tab page with word document with single instance of the word application.
 
Top Bottom