Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.IO
Imports Microsoft.Office.Interop.Word

Module NXJournal

Sub Main ()

Dim theSession As Session = Session.GetSession()

Dim oWord = CreateObject("Word.Application")

oWord.Visible = True

oWord.Documents.Open ("C:\Users\Desktop\NX_Open_noch_offen\NX_Open_Word\TestFile.doc")

     'Find and replace some text.
       ' oWord.Content.Find.Execute(FindText:="test",  ReplaceWith:="Test123", Replace:=Word.WdReplace.wdReplaceAll )

Const wdReplaceAll As Integer = 2
oWord.ActiveDocument.Content.Find.Execute(FindText:="test", ReplaceWith:="Test123", Replace:=wdReplaceAll)



' fügt Text am Dokumentanfang an
	Dim MyText As String
	Dim MyRange As Object
	MyRange = oWord.ActiveDocument.Range
	MyText = "<Replace this with your text>"

	MyRange.Collapse
	MyRange.InsertAfter (MyText)



' selektiert den festgelegten Bereich
Dim rng As Object = oWord.ActiveDocument.Range(Start:=0, End:=7)
rng.Select()



' selektiert den ganzen Bereich
Dim Anzahl as Integer
Anzahl= oWord.ActiveDocument.Characters.Count

rng= oWord.ActiveDocument.Range(0, Anzahl)
rng.Select()


' fügt eine Tabelle ein (Rahmen ist weiss)
Dim tableLocation As Object
tableLocation = oWord.ActiveDocument.Range(Start:=0, End:=0)
oWord.ActiveDocument.Tables.Add(Range:=tableLocation, NumRows:=13, NumColumns:=4)



' speichert das Dokument
oWord.Documents("C:\Users\Desktop\NX_Open_noch_offen\NX_Open_Word\TestFile.doc").Save()


' speichert das Dokument
'oWord.Documents("C:\Users\Desktop\NX_Open_noch_offen\NX_Open_Word\TestFile.doc").Close(Word.WdSaveOptions.wdDoNotSaveChanges)
oWord.Documents("C:\Users\Desktop\NX_Open_noch_offen\NX_Open_Word\TestFile.doc").Close()





End Sub
End Module