Imports Microsoft.Office.Interop.Word
Public Class Form1
Inherits System.Windows.Forms.Form
Dim WordApp As New Microsoft.Office.Interop.Word.Application
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(112, 56)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim filename As Object = "C:\1.doc"
' Dim newdoc As Document = WordApp.Documents.Open(filename)
Dim nd As Document = WordApp.Documents.Open(filename)
Dim oBarcodeBookmark As Object = "bookmark1"
Dim save As Object = False
Dim destFile As Object = "C:\1.doc"
Dim range As Microsoft.Office.Interop.Word.Range
range = nd.Bookmarks.Item(oBarcodeBookmark).Range
range.Select()
WordApp.Selection.TypeParagraph()
Dim bi As Image = Image.FromFile("c:\ku.jpg")
Clipboard.SetDataObject(bi)
range.Paste()
range.Select()
WordApp.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
nd.SaveAs(destFile)
WordApp.Quit(save)
System.Runtime.InteropServices.Marshal.ReleaseComO bject(WordApp)
bi.Dispose()
MessageBox.Show("successfully inserted image")
End Sub
End Class
Hi,
I am using asp.net 2.0 application with Microsoft.Office.Interop.Word version 11.0.0.0 on windows server 2003 with IIS 6.0. It works fine with access given to Network service.
The scenario is that i open Word document using Microsoft word's application class, insert text and save it.
Problem: Text insertion is fine. But when i save it and open it again, all the images that were in the original document are lost.
If i use interactive user as DCOM identity for word, than images work fine. But i cant use as interactive user. So what setting do i need so that images can be preserved.