Hej på er,

Har ett worddokument som i huvudet innehåller en tabell. Denna tabell vill jag förändra innehållet i från en VB.Net applikation.

Har följande kod,

<code>
Dim oWord As Word.ApplicationClass

oWord = CreateObject("Word.Application")
oWord.Visible = True
oWord.Documents.Open("d:\test.doc")
Dim r As Word.Range = oWord.ActiveDocument.Content()
oWord.Selection.StartOf()
oWord.ActiveWindow.View.SplitSpecial = Word.WdSpecialPane.wdPaneCurrentPageHeader
oWord.ActiveDocument.Bookmarks("tabellstart").Select()
oWord.Selection.Move(Word.WdUnits.wdCell, 12)
oWord.Options.ReplaceSelection = True
oWord.Selection.TypeText("TEST")

Thread.Sleep(3000)
oWord.Quit()
</code>

Problemet är att om cellen i tabellen redan innehåller text så skall denna skrivas över. Någon som vet hur man fixar till det?! Koden ovan lägger enbart till texten innan befintlig text.

Mvh
Roger

Problemet är löst...

<code>
Dim oWord As Word.ApplicationClass

'Start Word and open the document.
oWord = CreateObject("Word.Application")
oWord.Visible = True
oWord.Documents.Open("d:\test.doc")
Dim r As Word.Range = oWord.ActiveDocument.Content()
oWord.Selection.StartOf()
oWord.ActiveWindow.View.SplitSpecial = Word.WdSpecialPane.wdPaneCurrentPageHeader
oWord.ActiveDocument.Bookmarks("tabellstart").Select()
oWord.Selection.Move(Word.WdUnits.wdCell, 12)
oWord.Selection.EndKey(Word.WdUnits.wdLine, Word.WdMovementType.wdExtend)
oWord.Selection.TypeText("TEST")


Thread.Sleep(3000)
oWord.Quit()
</code>