+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

[VB.NET 2008] Intestazione e pič di pagina Word

  1. #1
    giuseppe88 non č in linea Scolaretto
    Salve a tutti,

    vi spiego il mio problema: ho un file .dot che apro con questo codice

    Dim AppWord As Word.Application
    Dim Documento As Word.Document
    AppWord = CreateObject("Word.Application")
    AppWord.Visible = True
    Documento = AppWord.Documents.Add(percorso & "deleghe.dot")
    
    una volta aperto sostiutisco alcune parole che erano presenti in questo file con questo codice

    AppWord.ActiveDocument.Range.Find.Execute("<%studio%>", , , , , , , , , "RAGIONESOCIALE", True)
    AppWord.ActiveDocument.Range.Find.Execute("<%indirizzo%>", , , , , , , , , "INDIRIZZO", True)
    AppWord.ActiveDocument.Range.Find.Execute("<%sede%>", , , , , , , , , "CITTA", True)
    .....
    
    il tutto funziona e quindi dove c'č <%studio%> viene sostituito con RAGIONESOCIALE.

    il problema nasce sull'intestazione di Word: lā non mi sostutuisce niente.

    Che cosa devo fare per far sostituire anche nell'intestazione di pagina?

    grazie a tutti!
    Ultima modifica di elisab; 12-03-2011 02:33 

  2. #2
    Quote Originariamente inviato da giuseppe88 Visualizza il messaggio
    ...
    il problema nasce sull'intestazione di Word: lā non mi sostutuisce niente.

    Che cosa devo fare per far sostituire anche nell'intestazione di pagina?
    ...
    Questo perchč l'Header e il Footer di un doc. Word stanno su un "livello" separato dal testo principale.

    Puoi accedere a questi "livelli", impostando il SeekView sull'Oggetto Document corrente.

    Anzitutto un'osservazione : hai giā il tuo Oggetto "Documento", perciō nelle istruzioni successive non č affatto necessario che fai ancora "AppWord.ActiveDocument...". Chiama metodi e proprietā direttamente dall'Oggetto "Documento".

    Per Header / Footer :

            'Header
            Documento.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekCurrentPageHeader
            Documento.ActiveWindow.Selection.Find.Execute("Intestazione", , , , , , , , , "Nuova Intestazione", True)
    
            'Footer
            Documento.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekCurrentPageFooter
            Documento.ActiveWindow.Selection.Find.Execute("Piedipagina", , , , , , , , , "Nuova Piedipagina", True)
    
            'Reset SeekView su documento principale
            Documento.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekMainDocument
    
    ℹ️ Leggi di pių su MarcoGG ...

  3. #3
    giuseppe88 non č in linea Scolaretto
    che dire???? ti ringrazio!!!! funziona perfettamente appena testata!

  4. #4
    Quote Originariamente inviato da giuseppe88 Visualizza il messaggio
    che dire???? ti ringrazio!!!! funziona perfettamente appena testata!
    Altro consiglio che posso darti, viste le prime linee del tuo codice :

    Dim AppWord As Word.Application
    Dim Documento As Word.Document
    AppWord = CreateObject("Word.Application")
    ...
    
    Prova anche, magari per i tuoi prossimi progetti, a rivedere il tutto in un'ottica "Interop".
    In questo modo andresti ad utilizzare librerie 100% .NET, e non saresti pių legato ad oggetti COM ( che č quanto stai facendo ora )...
    ℹ️ Leggi di pių su MarcoGG ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Risposte: 1
    Ultimo Post: 07-09-2020, 12:32
  2. intestazione e pič di pagina con vba
    Da margiu nel forum C#
    Risposte: 3
    Ultimo Post: 09-07-2012, 13:56
  3. report con intestazione pagina
    Da pier42 nel forum Microsoft Access
    Risposte: 4
    Ultimo Post: 03-07-2012, 09:33
  4. Risposte: 2
    Ultimo Post: 04-06-2012, 10:07
  5. Risposte: 3
    Ultimo Post: 09-08-2007, 15:17