Carta intestata e Word!

[cipo691]

Ho realizzato una carta intestata per il circolo di cui faccio parte!
Il problema è che vorrei fare in modo che ogni qual volta il documento venga aperto (con Word) per scrivere lettere del circolo, non sia possibile modificare l'intestazione della carta....come poso fare?

[emmedi]

Con openoffice si può creare una sezione per l'intestazione e proteggerla poi con password.
Prova a vedere se è possibile la stessa cosa con word. Io non l'ho più sul pc, ovviamente da quando ho scoperto OOo...

[cipo691]

Originariamente inviato da emmedi
Con openoffice si può creare una sezione per l'intestazione e proteggerla poi con password.
Prova a vedere se è possibile la stessa cosa con word. Io non l'ho più sul pc, ovviamente da quando ho scoperto OOo...

...ovviamente poi si ha la possibilità di scrivere cmq sul documento???

[guldo76]

Originariamente inviato da cipo691
...ovviamente poi si ha la possibilità di scrivere cmq sul documento???

Certo che si`.
(parlo di openoffice)

[cipo691]

....sìsì anche io mi riferivo a openoffice...ma il problema è che devo farlo per forza con word.....azz nessuno sa se si riesce???

[cipo691]

uppaaaaaa...........nessuno sa come fare?

[cipo691]

nessuno?????

[guldo76]

Vabbe', dai, visto che sei cosi` disperato ho deciso nella mia immensa magnanimita` di aiutarti
Devi inserire, nel modulo "This Document" accessibile dall'editor di VBA (Alt+F11), tutto cio`:

Option Explicit
'reserve memory for an application variable
Private WithEvents wdApp As Word.Application

Private Sub Document_New()
    'assign Word to the application variable
    If wdApp Is Nothing Then
        Set wdApp = ThisDocument.Application
    End If
End Sub

Private Sub Document_Open()
'assign Word to the application variable
If wdApp Is Nothing Then
    Set wdApp = ThisDocument.Application
End If
End Sub

Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection)
    'quit if active doc isn't attached to this template
    If ActiveDocument.AttachedTemplate <> ThisDocument Then Exit Sub
    'get out of the header/footer if we're in it
    Select Case Sel.StoryType
    Case wdEvenPagesFooterStory, wdEvenPagesHeaderStory, _
               wdFirstPageFooterStory, wdFirstPageHeaderStory, _
               wdPrimaryFooterStory, wdPrimaryHeaderStory
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        Exit Sub
    Case Else
    End Select

End Sub

(Soluzione valida per Word 2000, trovata su http://word.mvps.org/)

bye

p.s.: ma quanto e` avanti openoffice?!?

[cipo691]

Originariamente inviato da guldo76
Vabbe', dai, visto che sei cosi` disperato ho deciso nella mia immensa magnanimita` di aiutarti
Devi inserire, nel modulo "This Document" accessibile dall'editor di VBA (Alt+F11), tutto cio`:

Option Explicit
'reserve memory for an application variable
Private WithEvents wdApp As Word.Application

Private Sub Document_New()
    'assign Word to the application variable
    If wdApp Is Nothing Then
        Set wdApp = ThisDocument.Application
    End If
End Sub

Private Sub Document_Open()
'assign Word to the application variable
If wdApp Is Nothing Then
    Set wdApp = ThisDocument.Application
End If
End Sub

Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection)
    'quit if active doc isn't attached to this template
    If ActiveDocument.AttachedTemplate <> ThisDocument Then Exit Sub
    'get out of the header/footer if we're in it
    Select Case Sel.StoryType
    Case wdEvenPagesFooterStory, wdEvenPagesHeaderStory, _
               wdFirstPageFooterStory, wdFirstPageHeaderStory, _
               wdPrimaryFooterStory, wdPrimaryHeaderStory
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        Exit Sub
    Case Else
    End Select

End Sub

(Soluzione valida per Word 2000, trovata su http://word.mvps.org/)

bye

p.s.: ma quanto e` avanti openoffice?!?

Ti ringrazio per la tua infinita bontà....ma ho un piccolo problema ...ho inserito tutto come da tuo consiglio ed ho salvato...ma non succede nulla....si riesce ancora a spostare gli oggetti....dove sbaglio!?
Cmq utilizzo Word 2003

[MM]

Spiacente non poter rispondere, ma l'immagine della tua signature è fuori regolamento
Ti pregherei di toglierla
Grazie

[guldo76]

Originariamente inviato da cipo691
Ti ringrazio per la tua infinita bontà....ma ho un piccolo problema ...ho inserito tutto come da tuo consiglio ed ho salvato...ma non succede nulla....si riesce ancora a spostare gli oggetti....dove sbaglio!?
Cmq utilizzo Word 2003

Credo d'aver capito.
Non devi scrivere quel codice nel tuo documento, ma in un modello di documento creato ad hoc.
Allora, apri un normale documento nuovo, metti a posto la tua intestazione ed eventuali altre caratteristiche di carattere o di paragrafo o quant'altro, inserisci il codice di cui sopra nella finestra This Document, e poi salva tutto come "Modello di Documento", nella cartella predefinita che ti consigliera`.
Chiudi.
Ora fai File --> Nuovo... e nella finestra ci sara` anche il modello che hai teste` creato.
Apri un documento nuovo basato su questo nuovo modello, ed ecco fatto.
Puoi fare copia incolla dal tuo vecchio documento.

Fammi sapere.

[cipo691]

Originariamente inviato da guldo76
Credo d'aver capito.
Non devi scrivere quel codice nel tuo documento, ma in un modello di documento creato ad hoc.
Allora, apri un normale documento nuovo, metti a posto la tua intestazione ed eventuali altre caratteristiche di carattere o di paragrafo o quant'altro, inserisci il codice di cui sopra nella finestra This Document, e poi salva tutto come "Modello di Documento", nella cartella predefinita che ti consigliera`.
Chiudi.
Ora fai File --> Nuovo... e nella finestra ci sara` anche il modello che hai teste` creato.
Apri un documento nuovo basato su questo nuovo modello, ed ecco fatto.
Puoi fare copia incolla dal tuo vecchio documento.

Fammi sapere.

Ho provato....ma nulla!
Sempre lo stesso problema....mi viene da piangere

[guldo76]

mi spiace... con word 2000 funziona.
puoi provare a chiedere su microsoft.public.word.docmanagement

cmq... hai ignorato MM...

[cipo691]

Originariamente inviato da MM
Spiacente non poter rispondere, ma l'immagine della tua signature è fuori regolamento
Ti pregherei di toglierla
Grazie

Scusami MM non avevlo letto! Provvederò subito!

[cipo691]

Originariamente inviato da guldo76
mi spiace... con word 2000 funziona.
puoi provare a chiedere su microsoft.public.word.docmanagement

cmq... hai ignorato MM...

Guldo..ma in che senso funziona!?
A me lo riconosce come modello....ma cmq mi permette di modificarlo anche dopo aver inserito il codice...

[guldo76]

io ho provato con word2000 facendo quanto segue:
creazione modello;
inserimento codice;
creazione nuovo documento basato su quel modello.

e nel nuovo documento l'intestazione non era selezionabile: appena cercavi di selezionarla, venivi subito sbattuto fuori (dall'area intestazione).

[cipo691]

Originariamente inviato da guldo76
io ho provato con word2000 facendo quanto segue:
creazione modello;
inserimento codice;
creazione nuovo documento basato su quel modello.

e nel nuovo documento l'intestazione non era selezionabile: appena cercavi di selezionarla, venivi subito sbattuto fuori (dall'area intestazione).

adesso riprovo e ti faccio sapere! Cmq Grazie per l'aiuto che mi stai dando e per la pazienza!

[cipo691]

...non va!

[cipo691]

RISOLTOOOOOOOO!!!!!!!!!!!

Ho perso tantissimo tempo e alla fine era un gran cazzata!
Bastava giostrare un pò con "intestazione a piè di pagina"!!!

Cmq grazie a tutti per l'aiuto....in particolar modo a guldo76