Apre DOT e lo salva in DOC

CERcA ANCHE IL SEGNALIBRO


Imports Microsoft.Office.Interop
Imports Microsoft.Office.Core

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oWord As Microsoft.Office.Interop.Word.Application = CreateObject("Word.Application")
Dim oDoc As Microsoft.Office.Interop.Word.Document
Dim strDocumentName As String = ""
oWord.Visible = True

strDocumentName = "C:\pr2ova\13ma2006.doc"
Dim Msalva As String = "C:\prova\a2006.doc"
If Dir(strDocumentName) = "" Then
oWord.Documents.Add("c:\prova\Copia di MODUNI1.dot").SaveAs(FileName:=Msalva)

Else
oDoc = oWord.Documents.Open(strDocumentName)
End If

oWord.Activate()
oWord.Selection.GoTo(What:=-1, Name:="DIREZIONEGENERALE")
With oWord.ActiveDocument.Bookmarks
.DefaultSorting = 0
.ShowHidden = False
End With
oWord.Selection.TypeText(Text:="cippalippa direzione generale")

oDoc = Nothing
oWord = Nothing

End Sub
End Class