Imports word = Microsoft.Office.Interop.Word 'DEVI fare reference poi importa dentro la parola word
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim x As Integer
Dim i As Integer
videoscrittura = CreateObject("word.Application")
videoscrittura.Visible = True
pagina = videoscrittura.Documents.Open("c:\Users\proprietar io\Documents\Marco.rtf")
pagina.ActiveWindow.Document.Bookmarks("pippo").Se lect() REM releziona il segnalibro, DEVO UTILIZZARE pagina perchè l'ho aperto con pagina
videoscrittura.Selection.TypeText(TextBox1.Text) 'inserisce sto testo
x = TextBox1.TextLength
TextBox2.Text = x
pagina.ActiveWindow.Document.Bookmarks("data").Sel ect()
videoscrittura.Selection.TypeText("24/11/11")
'pagina.PrintOut()
For i = 0 To i = x
pagina.ActiveWindow.Document.Bookmarks("pippo").Se lect()
videoscrittura.ActiveWindow.Selection.Delete(TextB ox1.Text)
Next
pagina.Save()
pagina.Close()
Allora ragazzi il mio problema è semplice fino a pagina.printout() è tutto perfetto fa esattamente cio che dico .. solo che poi non riesco a chiudere word, senza salvare volontariamente il contenuto dei segnalibri! (io voglio che word perda la memoria del record1)purtroppo mi rimane in memoria il record1 e quando ricomincio il programma aggiunge il record2 a fianco del record1, caspita non riesco ad automatizzare il cancellamento del record1 nella posizione del bookmark in nessun modo mi potreste aiutare??