Newsgroup: it.comp.appl.access
Titolo: Esportazione Word con nota a piè pagina

Esiste la possibilità di esportare un testo in word con la nota a piè
pagina?
Ho una tabella con due campi testo: info e nota.
Avrei bisogno di esportare il campo testo in Word, creando però una nota a
pièpagina con il contenuto del campo nota!
Come fare?
Ciao e grazie
Manuel
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Manuel
Da Word: Strumenti/Macro/Registra nuova macro 
Esegui le operazioni che ti servono, ferma la registrazione e poi vai a 
vedere il codice nell'editor VBA. 
Namor
-- 
namor at inwind punto it


 Namor
Fatto!
Ecco il testo:
Sub i()
'
' i Macro
'
    Selection.TypeBackspace
    Selection.TypeBackspace
    CommandBars("Stop Recording").Visible = False
    ActiveWindow.Close
    Windows("CronologiaDellaFoglia_TEST.doc").Activate
End Sub
Sub Macro1()
'
' Macro1 Macro
' 
'
    With ActiveWindow
        .Width = 420
        .Height = 480
    End With
    ActiveDocument.MailMerge.OpenDataSource Name:= _
 
"H:\Fondazione\01_ATTIVITA\04_RICERCA\00_PERTUTTI_R\SocietąEntiPersone.mdb"
_
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data
Source=H:\Fondazione\01_ATTIVITA\04_RICERCA\00_PERTUTTI_R\SocietąEntiPersone.mdb;Mode=Read;Extended
Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry
Path="""";Jet OLEDB:Database Pa" _
        , SQLStatement:="SELECT * FROM `Societą`", SQLStatement1:="",
SubType:= _
        wdMergeSubTypeAccess
    ActiveDocument.MailMerge.OpenDataSource Name:= _
 
"H:\Fondazione\01_ATTIVITA\04_RICERCA\00_PERTUTTI_R\SocietąEntiPersone.mdb"
_
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data
Source=H:\Fondazione\01_ATTIVITA\04_RICERCA\00_PERTUTTI_R\SocietąEntiPersone.mdb;Mode=Read;Extended
Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry
Path="""";Jet OLEDB:Database Pa" _
        , SQLStatement:="SELECT * FROM `Tabella enti persone`",
SQLStatement1:="" _
        , SubType:=wdMergeSubTypeAccess
    ActiveDocument.Fields.Add Range:=Selection.Range,
Type:=wdFieldMergeField _
        , Text:="""Denominazione"""
    ActiveDocument.Fields.Add Range:=Selection.Range,
Type:=wdFieldMergeField _
        , Text:="""Riferimenti"""
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
        ActiveDocument.Content.End)
        With .FootnoteOptions
            .Location = wdBottomOfPage
            .NumberingRule = wdRestartContinuous
            .StartingNumber = 1
            .NumberStyle = wdNoteNumberStyleArabic
        End With
        .Footnotes.Add Range:=Selection.Range, Reference:=""
    End With
    Selection.PasteAndFormat (wdPasteDefault)
End Sub
Ma, perdona la domanda, adesso che faccio?
Ti dico cosa vorrei fare io:
legare il codice a un pulsante di comando che mi permetta l'esportazione
di quel record in word.
O ancora meglia dare la possibilitą di selezionare alcuni record o tutti o
solo uno e poi esportare quelli in word.
Cosa devo fare?
Ciao e grazie mille
-- 


 Ciao e grazie mille
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 


 Ciao e grazie mille
Si vede dal codice che stai usando la stampa unione. Puoi continuare così
e inserire un campo unione nel piè pagina per farvi apparire i dati, che è
la cosa più semplice e immediata.
Se vuoi farlo da vba devi usare l'oggetto .Footnotes, come si vede
dall'ultima parte del tuo codice.
Sul 
www.sitocomune.com
 sez. General ci sono degli esempi che potrebbero
esserti utili:
6.47 Esempio di automazione con MSWord
6.107 Utilizzare word per stampare un documento di tipo fattura
6.137 Esempio di automazione per l'invio e la formattazione di dati da
Access a Word usando i bookmarks
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 


 Namor
Grazie, ci provo...e se ho problemi.....
-- 
