Newsgroup: it.comp.appl.access
Titolo: Segnalibro in casella di testo WORD

Buongiorno una domanda,
poiche sto creando un'automazione con Word  utilizando i segnalibri,
vorrei sapere se è possibile utilizzare una casella di testo di word come
segnalibro
Ho provato a inserire un segnalibro nella casella di testo, ma uscendo da
quest'ultima e clicco su menu:
 Vai... --> Segnalibro
non risulta nessun segnalibro inserito, ( a meno che non cliccki
all'interno della casella di testo)
Chiedo se c'è questa possibilità perchè ho un file word tipo sheda
prestampata su cui voglio inserire caselle di testo da usare come
segnalibri
che accoglieranno i dati inviati da access, dimodochè non mi cambi la
formattazione del prestampato.
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

"Domy73"  ha scritto nel messaggio news:inuu48$jc2$1...@news.newsland.it...
Buongiorno una domanda,
poiche sto creando un'automazione con Word  utilizando i segnalibri,
vorrei sapere se è possibile utilizzare una casella di testo di word come
segnalibro
Ho provato a inserire un segnalibro nella casella di testo, ma uscendo da
quest'ultima e clicco su menu:
Vai... --> Segnalibro
non risulta nessun segnalibro inserito, ( a meno che non cliccki
all'interno della casella di testo)
Chiedo se c'è questa possibilità perchè ho un file word tipo sheda
prestampata su cui voglio inserire caselle di testo da usare come
segnalibri
che accoglieranno i dati inviati da access, dimodochè non mi cambi la
formattazione del prestampato.
Grazie
_______Risposta:
Funziona, ma una domanda perchè non verifichi prima?
MA 

 Grazie

Non ho verificato per il fatto che non sapevo come dire ad access che deve
scrivere il dato in quella determinata casella di testo di Word con
all'interno il segnalibro; per esempio
il codice che mi servirà a trasferire in wor i dati e questo:
    'Fornitore è il segnalibro in Word
    Doc.Bookmarks("Fornitore").Select
    Wrd.Selection.TypeText Me.Fornitore
ma non sono sicuro che lo va a scrivere visto che il segnalibro è
all'interno di una casella di testo. tutto qua
Cmq provo se funge


 Grazie





Cmq provo se funge
____Risposta:
questo come metodo:
Hai un'intuizione, la verifichi, se fallisci dici: io ho fatto questo, non 
va e mi dice...
se invece va, eviti byte
Il problema è sempre lo stesso: tanto ci sono i fessi che si sbattono per 
me, perchè stancare le dita?
MA 

 MA
Confermo MA, che anche se i segnalibri sono all'interno di caselle di
testo di Word l'esportazione da Access, funziona 
Posto il codice di esempio (che esporta per esempio i campi "Nome" e
"Cognome") in file Word:
***********************************
Private Sub ESPORTA_Click()
Dim Wrd As Word.Application, Doc As Word.Document
Dim Modello As String, NomeFile As String, i As Integer
Dim Tbl As String * 1
Dim ReplSel As Boolean
'Trova il nome, completo di percorso, del file word
    Modello = CurrentDb.Name
    Modello = Left(Modello, Len(Modello) - Len(Dir(Modello))) & "Prova.doc"
    On Error Resume Next 'gestione errori step by step
    'cerca un'istanza di Word già aperta
    Set Wrd = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        'se c'è stato un errore è perchè Word non era già aperto:
        'aprilo adesso
        Set Wrd = CreateObject("Word.Application")
    End If
 
    On Error GoTo 0 'ripristina la segnalazione degli errori
 
    'rendi visibile la finestra di Word:
    Wrd.Visible = True
    'attiva Word e portalo in primo piano:
    Wrd.Activate
    'abilita l'opzione "Sostituisci la selezione". Se non fosse
    'attiva, i campi modulo rimarrebbero all'interno del testo.
    ReplSel = Wrd.Options.ReplaceSelection
    Wrd.Options.ReplaceSelection = True
 
    'Apri un nuovo documento basato sul modello:
    Set Doc = Wrd.Documents.Add(Modello)
    'attivalo e portalo in primo piano:
    Doc.Activate
 
     'Nome
    Doc.Bookmarks("Nome").Select
    Wrd.Selection.TypeText Me.nome
    'Cognome
    Doc.Bookmarks("Cognome").Select
    Wrd.Selection.TypeText Me.cognome
 
    'ripristina il valore originario dell'opzione
    '"Sostituisci la selezione"
   Wrd.Options.ReplaceSelection = ReplSel
 
    'avvisa l'utente che l'esportazione è terminata
    Wrd.Application.WordBasic.MsgBox "Esportazione terminata",
"Esportazione dati da Access"
 
     'azzera le variabili oggetto
    Set Doc = Nothing
    Set Wrd = Nothing
 
End Sub
***********************************
Grazie, anche se mi sono beccato il rimprovero...


 MA

Grazie, anche se mi sono beccato il rimprovero...
________Risposta:
;-)
MA