Salve a tutti io ho il seguente problema
Ho scritto in VB6 una procedura per scrivere dei dati all'interno di un template word vuoto.
Il problema che ho è che dopo aver inserito la prima tabella tutti i dati successivi vengono scritti sempre al suo interno. Insomma non riesco a posizionare il cursore fuori dalla tabella. Qualcuno può aiutarmi??
Posto il codice

Dim iret As Long
Dim i As Integer
Dim oBuiltInProps As Object
Dim indexTav04 As Integer
Dim indexTav07 As Integer
Dim ArrayData As Variant
Dim SplitCodice As Variant
Dim l_selection As String
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim Hwnd As Long

On Error GoTo errHandler

Set wdApp = New Word.Application
Hwnd = FindWindow(vbNullString, wdApp.Caption)
Set wdDoc = wdApp.Documents.Open(wdFilename)
wdApp.Application.WindowState = wdWindowStateNormal
iret = SetParent(Hwnd, picBox.Hwnd)
picBox.Enabled = True
wdApp.Visible = True
wdApp.ActiveWindow.WindowState = wdWindowStateMaximize
ApriModificaScheda01 = Hwnd

wdDoc.ActiveWindow.Selection.Style = ActiveDocument.Styles("Titolo 1")
wdDoc.ActiveWindow.Selection.TypeText Text:="GG"
wdDoc.ActiveWindow.Selection.MoveLeft Unit:=wdCharacter, Count:=2
wdDoc.ActiveWindow.Selection.TypeText Text:="1."
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=2
wdDoc.ActiveWindow.Selection.TypeText Text:="/MM/AA <percorso>"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeText Text:="Versione SSB =<>"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeText Text:="Km percorsi =<>"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeText Text:="Km protetti =<>"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeText Text:="N° boe SCMT lette =<>"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeText Text:="N° PI SSC letti =<>"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeParagraph

wdDoc.ActiveWindow.Selection.Style = ActiveDocument.Styles("Titolo 1")
wdDoc.ActiveWindow.Selection.TypeText Text:="2.Caratteristiche"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeParagraph

'************************************************* TABELLA******************************************
wdDoc.ActiveWindow.Document.Tables.Add Range:=wdDoc.ActiveWindow.Selection.Range, NumRows:=4, NumColumns:= _
5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

wdDoc.ActiveWindow.Selection.TypeText Text:="ID"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="TRATTA"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="NOME FILE LOG"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="ORA INIZIO"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="ORA FINE"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=2
wdDoc.ActiveWindow.Selection.TypeText Text:="1"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="bb"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="vv"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="vv"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="vv"
wdDoc.ActiveWindow.Selection.MoveDown Unit:=wdLine, Count:=1
wdDoc.ActiveWindow.Selection.MoveLeft Unit:=wdCharacter, Count:=4
wdDoc.ActiveWindow.Selection.TypeText Text:="2"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="cc"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="cc"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="cc"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="cc"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=2
wdDoc.ActiveWindow.Selection.TypeText Text:="3"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="dd"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="dd"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="dd"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="dd"

wdDoc.ActiveWindow.Selection.MoveDown Unit:=wdLine, Count:=1
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeParagraph

wdDoc.ActiveWindow.Selection.Style = ActiveDocument.Styles("Titolo 1")
wdDoc.ActiveWindow.Selection.TypeText Text:="3.Analisi interventi SSB" 'viene inserito all'interno della tabella
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Document.Tables.Add Range:=wdDoc.ActiveWindow.Selection.Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
wdDoc.ActiveWindow.Selection.TypeText Text:="EVENTO"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="PROGRESSIVA LOG"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="EFFETTO"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="ANALISI"

wdDoc.ActiveWindow.Selection.MoveDown Unit:=wdLine, Count:=1
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeParagraph

wdDoc.ActiveWindow.Selection.Style = ActiveDocument.Styles("Titolo 1")
wdDoc.ActiveWindow.Selection.TypeText Text:="5.Errori rilevati dal SSB"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeParagraph

wdDoc.ActiveWindow.Document.Tables.Add Range:=wdDoc.ActiveWindow.Selection.Range, NumRows:=3, NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

wdDoc.ActiveWindow.Selection.TypeText Text:="ERRORE"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="PROGRESSIVA LOG"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="EFFETTO"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=2
wdDoc.ActiveWindow.Selection.TypeText Text:="xxx"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="xxx"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="xxx"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=2
wdDoc.ActiveWindow.Selection.TypeText Text:="vvv"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="vvv"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="vvv"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.InsertRows 1
wdDoc.ActiveWindow.Selection.Collapse Direction:=wdCollapseStart

wdDoc.ActiveWindow.Selection.MoveDown Unit:=wdLine, Count:=1
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeParagraph

wdDoc.ActiveWindow.Selection.Style = ActiveDocument.Styles("Titolo 1")
wdDoc.ActiveWindow.Selection.TypeText Text:="6.Odometria SSB"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeText Text:= _
"<Grafico andamento odometria SSB rispetto a D_APP trasmessa "
wdDoc.ActiveWindow.Selection.TypeText Text:="dai PI>"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeText Text:="ASSE X = D_APP"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeText Text:="ASSE Y = D_PI()"
wdDoc.ActiveWindow.Selection.MoveLeft Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="SSB"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="-D_APP"
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeParagraph
wdDoc.ActiveWindow.Selection.TypeText Text:="Dove D_PI()"
wdDoc.ActiveWindow.Selection.MoveLeft Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:="SSB"
wdDoc.ActiveWindow.Selection.MoveRight Unit:=wdCharacter, Count:=1
wdDoc.ActiveWindow.Selection.TypeText Text:= _
" è la distanza misurata dal SSB tra due PI consecutivi, in a"
wdDoc.ActiveWindow.Selection.TypeText Text:="ppuntamento per nome "