Newsgroup: it.comp.appl.access
Titolo: Creare un Segnalibro su Word

Salve a tutti,
ho scritto questo codice ( scopiazzando qua e la e facendo qualche macro ):
Dim objW As Object
Set objW = GetObject("", "word.application")
With objW.Application
    .WindowState = 2 ' wdWindowStateMinimize
    .Documents.add Template:=("C:\prova.dot"), NewTemplate _
                                    :=False
    .Visible = True
    .activedocument.Bookmarks("medico").Range = Me.medico
    .activedocument.Bookmarks("nome").Range = Me.nome
    .activedocument.Bookmarks("cognome").Range = Me.cognome
    .activedocument.Bookmarks("probattivi").Range = Me.patattiva
'----> fin qui tutto bene
    .activedocument.Goto what:=wdGoToBookmark, Name:="start"
    .Selection.TypeParagraph
    .activedocument.Bookmarks.add Range:=Selection.Range, Name:="Test"
End With
Cosa c'e' di sbagliato nell'istruzione Goto e nell'aggiunta del segnalibro
"Test" ?
IO no riesco a caverne piede visto che mi sembra corretta, ma cosi' non e'.
Qualche suggerimento anche alternativo per aggiungere un Bookmark in Doc ?
Grazie
Giuliano

 Qualche suggerimento anche alternativo per aggiungere un Bookmark in Doc ?
[cut]
di preciso non lo so.
Pero' le parore "Start" e "Test" potrebbero essere "particolari"
--
a.cara

 Qualche suggerimento anche alternativo per aggiungere un Bookmark in Doc ?
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 > "Giuliano" [...]:

Intanto ti ringrazio per i preziosi suggerimenti che nella guida non sono
riuscito a cogliere. Spero con questi di risolvere.
Per il resto hai PERFETTAMENTE ragione e chiedo scusa a tutti, ma la fretta
non porta mai buoni consigli...... rimediero' la prossima volta.
Giuliano

 ha scritto nel messaggio
news:alqik9$aah$1...@atlantis.cu.mi.it...

non ho provato il tuo codice ma a prima vista manca un (.) nella sezione
with
 .activedocument.Bookmarks.add Range:=Selection.Range, Name:="Test"
 .activedocument.Bookmarks.add Range:=.Selection.Range, Name:="Test"

  .activedocument.Bookmarks.add Range:=.Selection.Range, Name:="Test"
    Osservazione correttissima, ma non e' detto che sia un problema.
    Premessa: Access non possiede nessun metodo o proprieta' di nome
"Selection", quindi non possono esserci ambiguita', a meno che nel progetto
di Giuliano non ci siano altri riferimenti con tale parola chiave.
    "Selection" in Word e' definito:
        Class Selection
            Membro di Word
che e' implementata come:
        Property Selection As Selection
            sola lettura
            Membro di Word.Global
        Property Selection As Selection
            sola lettura
            Membro di Word.Application
        Property Selection As Selection
            sola lettura
            Membro di Word.Window
    Dato che Giuliano ha scritto:
        With objW.Application
            ' <...>
            .activedocument.Bookmarks.add _
                Range:=Selection.Range, Name:="Test"
che ci sia o non ci sia il punto, il riferimento sara' sempre alla selezione
corrente.
    Concordo comunque con te che e' una sana e fruttuosa pratica qualificare
sempre perfettamente le entita' in gioco. Personalmente sarei anche piu'
estremista e circoscriverei i riferimenti alla "selezione" all'unico caso
indispensabile: l'interazione con l'utente. Putroppo il registratore di
macro, pur costituendo un'ottima "scuola guida", da questo punto di vista e'
un pessimo maestro.


 ha scritto nel messaggio
news:alqik9$aah$1...@atlantis.cu.mi.it...

La soluzione al GoTo e' stata..... non mettere il GoTo :-)
Ho sostituito con .activedocument.Bookmarks("start").Range.Select
Per quanto riguarda .activedocument.Bookmarks.add Range:=Selection.Range,
Name:="Test"
l'errore stava nel cercare di dare un range, infatti escluso questo il tutto
funziona perfettamente, e cioe' aggiunge un bookmark nella posizione
corrente.
Tutte queste cose non saranno "eleganti" ma funzionano.
Vorrei sottolineare comunque che il codice del GoTo e del Add sotto word
funzionano perfettamente.
Ho trovato anche questo sito che mi sembra carino come riferimento
http://www.jojo-zawawi.com/code-samples-pages/code-samples.htm
Ora le cose cambiano e la prossima domanda e': come faccio ad andare alla
fine del testo messo dove ho creato il bookmark?
NOn ci ho ancora provato ma penso gia' di aver letto qualcosa a riguardo
nella guida..... vedremo.
Grazie a tutti
Giuliano

 nella guida..... vedremo.
    Buona programmazione.
