word2007 - saveas utilizzando i segnalibri per il nome

[deniel69]

Buon giorno a tutti.
Il mio problema è il seguente, devo salvare con nome il mio documento word utilizzando i segnalibri presenti sul foglio.
Ora io un po con il registratore di macro e un po cercando qua e là ho scritto quanto segue
ma non riesco a farlo funzionare ,dove sbaglio.....


myDocname = "Dic Conformita " & ActiveDocument.Bookmarks("commessa").Range.Text & ".docx"

ActiveDocument.SaveAs FileName:=sPathSave & myDocname, FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False


Grazie a tutti......

[Anthony47]

Non ho Word2007, e sulla versione che uso (WD2010) ci sono differenze per quanto riguarda i metodi di salvataggio file; quindi non posso fare prove.
Il codice di ActiveDocument.SaveAs l' hai ottenuto con un "registra nuova macro" sul file effettivo? E la sPathSave ha un valore ragionevole?
Mi sembra comunque improbabile che ti lasci salvare un file contenente macro come ".docx", a meno che la macro la inserisci in un file e poi la esegui dopo aver selezionato un altro file.
Puoi ottenere qualche ulteriore inizio controllando quale nome viene generato, inserendo questa istruzione:

Codice: Seleziona tutto

myDocname = "Dic Conformita " & ActiveDocument.Bookmarks("commessa").Range.Text & ".docx"
msgbox(sPathSave & myDocname)           'AGGIUNGERE in questa posizione


Potrebbe aiutare anche sapere quale errore viene generato e su quale istruzione, o quale risultato non ti soddisfa.

Ciao

[deniel69]

non mi da nessun errore e il documento lo salva e lo salva in .docx

il problema è che il nome diventa Dic Conformita .docx
non riesco a fargli leggere il segnalibro con l'istruzione ActiveDocument.Bookmarks("commessa").Range.Text
il segnalibro esiste e si chiama commessa ma non lo legge.

Procedura inserimento segnalibro:
Inserisci -> gruppo collegamenti -> Segnalibri -> "commessa" -> Aggiungi

boooooooo

[deniel69]

Buon giorno.

Non so il perché e nemmeno mi interessa.......
Ma ho cancellato e rifatto il documento word ,rimesso i Bookmarks e tutto funziona......

Grazie ancora comunque......

[Anthony47]

Non so il perché e nemmeno mi interessa

Troppo comodo...
La prossima volta premi F5 (oppure Contr-Maiusc-t, tab Vai); in "Vai a" scegli Segnalibro, scegli il Nome del segnalibro, premi Vai: controlla che quello che tu ritieni il "segnalibro" sia effettivamente selezionato.
Evidentemente nel doc precedente il segnalibro non era stato assegnato a un testo ma a una posizione, per cui ActiveDocument.Bookmarks("commessa").Range.Text ti restituiva una stringa vuota.

Ciao

[deniel69]

Hai completamente ed assolutamente ragione.....
Infatti il mio "Non so il perché e nemmeno mi interessa......." era assolutamente momentaneo...
Quindi ho riaperto il documento vecchio e ricontrollato tutto a bocce ferme........

Grazie ancora!