Condividi:        

Word 2007 - Problema installazione modello

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Word 2007 - Problema installazione modello

Postdi ciuffy » 18/05/10 21:13

Ciao ragazzi ho bisogno del vostro aiuto!!!
Un pò di tempo fa ho scaricato un modello da internet per word per poter creare documenti ad uso bollo in formato a3 (a foglio aperto).
Fino a quando ho usato il modello con word 2003 funzionava alla grande,ma da quando ho installato word 2007 non riesco più ad usarlo...
Il file è questo:
http://rapidshare.com/files/388885163/BolloA3.zip.html
all'interno ci sono le istruzioni per installarlo con relativa cartella nella quale inserirlo.
Io l'ho inserito nella cartella dei modelli, ma quando attivo la macro per poter creare il mio documento in uso bollo mi viene fuori la finestra con errore di debug e con precisione mi esce questo
Immagine

Uploaded with ImageShack.us

Secondo voi a cosa si riferisce?
Non capisco eppure l'ho installato come con word 2003.
se può essere utile il file l'ho inserito qui C:\Users\R\AppData\Roaming\Microsoft\Templates

Grazie, buona serata a tutti ;)
ciuffy
Utente Junior
 
Post: 22
Iscritto il: 10/08/09 09:52

Sponsor
 

Re: Word 2007 - Problema installazione modello

Postdi Flash30005 » 18/05/10 23:31

Ciao Ciuffy ben ritrovata

Non ho la possibilità di verificare il tuo codice pertanto posso pensare (ipotesi remota) che non siano compatibili i codici così impostati
magari, è più probabile che le dimensione del formato A3 è determinato dalla stampante quindi
ti domando
sei sicura che quel pc ha una stampante predefinita che prevede il formato A3?

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Word 2007 - Problema installazione modello

Postdi ciuffy » 19/05/10 12:03

Si la stampante è predisposta per A3, è la stessa che usavo per word 2003, a questo punto penso sia proprio un problema di word 2007 :undecided:
ciuffy
Utente Junior
 
Post: 22
Iscritto il: 10/08/09 09:52

Re: Word 2007 - Problema installazione modello

Postdi Flash30005 » 19/05/10 14:04

Allora andiamo per gradi

1) hai indicato nel codice macro un percorso del file origine?
2) hai forse cambiato percorso al file?
3) che tipo di errore ti dà, oltre che a bloccarsi in quel punto? Quale messaggio hai? (se puoi pubblicalo lo screenshot)

fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Word 2007 - Problema installazione modello

Postdi ciuffy » 19/05/10 20:51

Ciao Flash, allora per il punto 1 non so che risponderti, nella macro non ho cambiato nulla, in quanto non l'ho creata io ma il file l'ho trovato in giro su internet e poi neanche sarei in grado di crearla.
Punto 2 il file l'ho incollato nella cartella dei modelli come ho fatto con office 2003, oggi ho provato con un altro computer dove c'è installato office 2003 e ha funzionato ma col 2007 non ne vuol sapere. Il problema non è che non stampa perchè a quel passaggio lì non ci arrivo proprio perchè l'errore me lo da nel momento in cui voglio trasformare il documento in uso bollo, ed ecco quindi che arriviamo al punto 3 della tua domanda, ti posto l'immagine dell'errore:
Immagine

Uploaded with ImageShack.us
è in questo passaggio che attraverso la macro prima riuscivo a creare il bollo, e la macro mi suggeriva anche come inserire il foglio nella stampante...
Spero che tu possa aiutarmi, anche perchè in giro su internet di programmi gratis proprio non ne ho trovati per questo che serve a me...
Grazie ciao ;)
ciuffy
Utente Junior
 
Post: 22
Iscritto il: 10/08/09 09:52

Re: Word 2007 - Problema installazione modello

Postdi Flash30005 » 19/05/10 22:12

Prova a inserire questa riga di codice
Codice: Seleziona tutto
Const Error_FileNotFound = 5174

prima della tua riga evidenziata in giallo
Codice: Seleziona tutto
Documents(fileorigine$).activate

fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Word 2007 - Problema installazione modello

Postdi Anthony47 » 20/05/10 00:17

Mah... io modificherei nella Sub CreaBollo l' istruzione fileorigine$ = ActiveWindow.Caption in fileorigine$=ActiveDocument.Name

Ripristina l' originale se non migliora....

Ma prima fai la prova suggerita da Flash

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Word 2007 - Problema installazione modello

Postdi ciuffy » 20/05/10 20:31

Ragazzi ho provatocon entrambii suggerimenti ma non ci sono riuscita... avete qualke altra soluzione???
ciuffy
Utente Junior
 
Post: 22
Iscritto il: 10/08/09 09:52

Re: Word 2007 - Problema installazione modello

Postdi Flash30005 » 20/05/10 23:43

Cioè volevi dire che entrambi i consigli non risolvono il tuo problema?
oppure non sei riuscita ad applicare quanto postato?

Mi sorge un dubbio:
per caso il tuo fileorigine ha una estensione .doc?
Se così, apri il file origine con word 2007 e salvalo in versione per word 2007 cioè .docx

Inoltre sarebbe opportuno che pubblicassi l'intero codice che hai nel vba e non solo un'immagine del vba
per fare questo devi
aprire il visual basic
selezionare tutti i codici contenuti (di tutte le macro)
e incollarle nel tuo prossimo post
avendo l'accortezza di inserirlo nel Tag CODE (premi, prima di incollare, il pulsante [Code] che vedi nell'editor del messaggio

fai sapere
ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Word 2007 - Problema installazione modello

Postdi ciuffy » 21/05/10 13:15

Flash l'estensione è .dot dovrebbe essere un modello di word 2003.
cmq questo è quello che mi esce nella macro....
Codice: Seleziona tutto
Private Sub ImpostaA3()
    Documents.Add Template:="BolloA3.dot", NewTemplate:=False
    With ActiveDocument.PageSetup
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(2.7)
        .BottomMargin = CentimetersToPoints(1.9)
        .LeftMargin = CentimetersToPoints(5.1)
        .RightMargin = CentimetersToPoints(5.1)
        .PageWidth = CentimetersToPoints(42)
        .PageHeight = CentimetersToPoints(29.7)
    End With
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
         = wdMasterView Then
        ActiveWindow.ActivePane.View.Type = wdPageView
    End If
    With ActiveDocument.PageSetup.TextColumns
        .SetCount NumColumns:=1
        .EvenlySpaced = False
        .LineBetween = False
    End With
    ActiveDocument.PageSetup.TextColumns.Add Width:=CentimetersToPoints(15.27) _
        , Spacing:=CentimetersToPoints(1.25), EvenlySpaced:=False
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
         = wdMasterView Then
        ActiveWindow.ActivePane.View.Type = wdPageView
    End If
    With ActiveDocument.PageSetup.TextColumns
        .SetCount NumColumns:=2
        .EvenlySpaced = True
        .LineBetween = False
        .Width = CentimetersToPoints(13.3)
        .Spacing = CentimetersToPoints(5.2)
    End With
End Sub

Private Sub CopiaIncolla(fileorigine$, filedestinazione$, NumPagineOri, contatore)
    Documents(fileorigine$).Activate
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=Right(Str(contatore), Len(Str(contatore)) - 1), Name:=""
    Selection.GoTo Name:="\page"
    Selection.Copy
    Documents(filedestinazione$).Activate
    Selection.Paste
End Sub
Sub CreaBollo()
Dim fileorigine$
Dim NumPagineOri
Dim contatore
Dim filedestinazione$
Dim NumFogliProtDest
Dim cont1
Dim cont2
Dim i
    ' Rimpaginazione e controllo n° di pagine del documento
    Application.ScreenUpdating = False
    ActiveWindow.View.Type = wdPageView
    fileorigine$ = ActiveWindow.Caption
    NumPagineOri = Selection.Information(wdNumberOfPagesInDocument)

    Rem Se ultima pagina non contiene nulla, non la considero
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=Right(Str(NumPagineOri), Len(Str(contatore)) - 1), Name:=""
    If Len(ActiveDocument.Bookmarks("\page").Range.Text) = 0 Then
        NumPagineOri = NumPagineOri - 1
    End If

    Rem Creo nuovo documento basato sul modello Bollonew
    ImpostaA3
    filedestinazione$ = ActiveWindow.Caption
   
    If NumPagineOri / 4 <> Int(NumPagineOri / 4) Then
        NumFogliProtDest = Int(NumPagineOri / 4) + 1
    Else
        NumFogliProtDest = NumPagineOri / 4
    End If

    cont1 = 1
    cont2 = NumFogliProtDest * 4
    For i = 1 To NumFogliProtDest
            ' Prima pagina
            If cont2 <= NumPagineOri Then
                CopiaIncolla fileorigine$, filedestinazione$, NumPagineOri, cont2
            End If
            ' Cambio colonna
            Selection.InsertBreak Type:=wdColumnBreak
            cont2 = cont2 - 1

            ' Seconda pagina
            CopiaIncolla fileorigine$, filedestinazione$, NumPagineOri, cont1
            ' Cambio pagina
            cont1 = cont1 + 1
            If cont1 > cont2 Then Exit Sub: ' fine documento
            Selection.InsertBreak Type:=wdPageBreak

            ' Terza pagina
            CopiaIncolla fileorigine$, filedestinazione$, NumPagineOri, cont1
            ' Cambio colonna
            Selection.InsertBreak Type:=wdColumnBreak
            cont1 = cont1 + 1
            If cont1 > cont2 Then GoTo stampa: ' fine documento

            ' Quarta pagina
            If cont2 <= NumPagineOri Then
                CopiaIncolla fileorigine$, filedestinazione$, NumPagineOri, cont2
            End If
            ' Cambio pagina
            cont2 = cont2 - 1
            If cont1 > cont2 Then GoTo stampa: ' fine documento
            Selection.InsertBreak Type:=wdPageBreak
    Next i

stampa:
    frmStampaBollo.Show
   
End Sub
ciuffy
Utente Junior
 
Post: 22
Iscritto il: 10/08/09 09:52

Re: Word 2007 - Problema installazione modello

Postdi Flash30005 » 21/05/10 14:30

Forse è come pensavo... :roll:
il file non viene trovato per i seguenti motivi
1) i modelli di office 2007 credo abbiano una estensione diversa, quindi, dovrai aprire il modello e salvarlo con estensione per office 2007 (credo .dotx)
2) il percorso dei modelli è diverso da office 2003 e office 2007, quindi dovrai inserire il modello nell'apposita cartella dei modelli di office 2007 e credo di capire da questo link
che dovrai dare anche il percorso del file all'interno della macro.
Nella tua macro vedo solo
Codice: Seleziona tutto
  Documents.Add Template:="BolloA3.dot", NewTemplate:=False

questa è la riga dove dovrà essere inserito l'esatto percorso e l'esatto nome del file.
Se conosci l'inglese risolvi da sola leggendo la pagina linkata.

fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Word 2007 - Problema installazione modello

Postdi ciuffy » 22/05/10 19:22

Ciao Flash, con l'inglese non ho tanta dimestichezza, comunque ho trovato la cartella in cui inserire il file, il percorso è questo C:\Users\R\AppData\Roaming\Microsoft\Templates mi potresti dire come faccio ad inserirlo? Poi dopo inserito mi basta solo salvare giusto?
ciuffy
Utente Junior
 
Post: 22
Iscritto il: 10/08/09 09:52

Re: Word 2007 - Problema installazione modello

Postdi Flash30005 » 22/05/10 23:58

Il modello va aperto e salvato come modello
in questa fase puoi decidere dove salvarlo (guarda bene l'estensione se .dotx o .dot e il nome; puoi lasaciare BolloA3)
per evitare percorsi lunghi puoi salvare il tuo modello in una tua cartella (es. C:\MioModello)
Fatto questo
dovrai modificare la riga codice
Codice: Seleziona tutto
  Documents.Add Template:="BolloA3.dot", NewTemplate:=False

in
Codice: Seleziona tutto
  Documents.Add Template:="C:\MioModello\BolloA3.dotx", NewTemplate:=False

a questo punto se la macro si trova nel modello come credo
ripeti l'operazione di salvataggio nel percorso indicato e salvataggio come modello (sovrascrivi il precedente).
Apri il modello e provi la macro

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Word 2007 - Problema installazione modello

Postdi ciuffy » 25/05/10 19:52

ciao flash, purtroppo non sono riuscita a combinare nulla, mi esce sempre una finestra di errore,non so forse sono io che non sono in grado di gestire queste macro....
Una domanda volevo fare, visto e considerato che ho anche altri modelli che funzionano solo con word 2003, chiedevo è è possibile installare solo word 2003 mantenendo cmq office 2007 (compreso word)?
Non so se possono esistere entrambi... ma così risolverei molti problemi...
ciuffy
Utente Junior
 
Post: 22
Iscritto il: 10/08/09 09:52

Re: Word 2007 - Problema installazione modello

Postdi Flash30005 » 25/05/10 22:55

Ma perché vuoi mantenere office 2007 che oltretutto è anche più lento?
quale funzione di office 2007 usi che office 2003 non ha?

Ciao

Ps.s Hai un MP
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Word 2007 - Problema installazione modello

Postdi ciuffy » 29/05/10 12:58

Uso Office 2007 perchè molto spesso mi era capitato di dover aprire file di office 2007 e col 2003 non ci riuscivo, poi lo trovo carino...
Flash ma non è che potresti aiutarmi a creare qualche macro che mi permetta di stamapare su a3 fronte-retro,tipo fascicoletti, magari in formato uso bollo...
ciuffy
Utente Junior
 
Post: 22
Iscritto il: 10/08/09 09:52

Re: Word 2007 - Problema installazione modello

Postdi Flash30005 » 29/05/10 13:26

ciuffy ha scritto:Uso Office 2007 perchè molto spesso mi era capitato di dover aprire file di office 2007 e col 2003 non ci riuscivo,..

esiste un converter della Microsoft che fa quello che ti occorre, quindi, converti i file di Office2007 e liutilizzi con Office 2003
ciuffy ha scritto:poi lo trovo carino...

Cerchiamo di utilizzare le cose e/o i sistemi che funzionano...

ciuffy ha scritto:Flash ma non è che potresti aiutarmi a creare qualche macro che mi permetta di stamapare su a3 fronte-retro,tipo fascicoletti, magari in formato uso bollo...

Volentieri, ma per realizzare quello che ti occorre per Office 2007 dovrei installare questa versione di Office e, sinceramente...
me ne guardo di farlo 8)

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Word 2007 - Problema installazione modello":

aiuto installazione
Autore: mod360
Forum: Software Windows
Risposte: 3

Chi c’è in linea

Visitano il forum: Nessuno e 44 ospiti