immagine di sfondo, background della pagina

[Ammammata]

tempo addietro una "competente" società di grafica pulbblicitaria ha avuto
la bella idea di creare il modello della carta intestata aziendale facendo
la scansione della copia cartacea esistente e infilandola nel file DOT come
background della pagina

risultato:
un documento di due righe aveva una dimensione di 1 megabyte
se qualcuno lo apriva con openoffice non riusciva a lavorare, vuoi per la
lentezza, vuoi per la cattiva gestione di una tale immagine

quando mi hanno segnalato la cosa ho immediatamente rifatto il modello, con
il logo in alto e l'indirizzo in basso, usando testata e piè di pagina

il documento di due righe è adesso di 20kb, chi ha openoffice non ha più
problemi

DOMANDA:
come posso cercare nei millemila documenti creati da allora tutti quelli
che hanno l'immaginona come background?
pensavo di filtrarli in base alla dimensione ma potrei solo escludere
quelli piccoli: purtroppo nei documenti sono spesso presenti immagini e
simili che li rendono tutti sufficientemente mattoneschi da non poter
capire quali sono quelli balordi e quelli genuini

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>> http://www.bb2002.it :) <<<<<
........... [ al lavoro ] ...........

[Maurizio Borrelli]

Il 22/06/2015, Ammammata ha detto :

> tempo addietro una "competente" società di grafica pulbblicitaria ha avuto
> la bella idea di creare il modello della carta intestata aziendale facendo
> la scansione della copia cartacea esistente e infilandola nel file DOT come
> background della pagina

> risultato:
> un documento di due righe aveva una dimensione di 1 megabyte
> se qualcuno lo apriva con openoffice non riusciva a lavorare, vuoi per la
> lentezza, vuoi per la cattiva gestione di una tale immagine

> quando mi hanno segnalato la cosa ho immediatamente rifatto il modello, con
> il logo in alto e l'indirizzo in basso, usando testata e piè di pagina

> il documento di due righe è adesso di 20kb, chi ha openoffice non ha più
> problemi

> DOMANDA:
> come posso cercare nei millemila documenti creati da allora tutti quelli
> che hanno l'immaginona come background?
> pensavo di filtrarli in base alla dimensione ma potrei solo escludere
> quelli piccoli: purtroppo nei documenti sono spesso presenti immagini e
> simili che li rendono tutti sufficientemente mattoneschi da non poter
> capire quali sono quelli balordi e quelli genuini

Il modello rifatto da te ha lo stesso nome del modello ciccione?

--
Ciao! :)
Maurizio

[Ammammata]

Il giorno Mon 22 Jun 2015 05:05:07p, *Maurizio Borrelli* inviava su
microsoft.public.it.office.word il messaggio news:mm984k$uhh$1@dont-
email.me. Vediamo cosa scrisse:

> Il modello rifatto da te ha lo stesso nome del modello ciccione?
>
>

oh yes :(

modificato e sostituito su tutti i pc dove lo avevano piazzato
son passati già alcuni anni, temo di non avere più un backup del colosso,
magari si poteva tentare qualcosa

purtroppo di documenti fatti così ce ne sono ancora in giro a iosa

[Maurizio Borrelli]

Il 22/06/2015, Ammammata ha detto :

> Il giorno Mon 22 Jun 2015 05:05:07p, *Maurizio Borrelli* inviava su
> microsoft.public.it.office.word il messaggio news:mm984k$uhh$1@dont-
> email.me. Vediamo cosa scrisse:

>> Il modello rifatto da te ha lo stesso nome del modello ciccione?
>>
>>

> oh yes :(

> modificato e sostituito su tutti i pc dove lo avevano piazzato
> son passati già alcuni anni, temo di non avere più un backup del colosso,
> magari si poteva tentare qualcosa

> purtroppo di documenti fatti così ce ne sono ancora in giro a iosa

Suppongo che l'immagine sia stata incorporata come "Filigrana", giusto?
Se e' cosi' allora ispirandosi a quanto indicato qui:

MS Word: Remove watermark from all Word pages using VBA
<http://blog.vishalon.net/index.php/ms-word-remove-watermark-from-all-word-pages-using-vba/>

e' possibile aprire in sequenza tutti i documenti e eliminare la
filigrana con del codice del tipo:

Public Sub aTest()
Const cstrPath = "D:\Percorso\"
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdSec As Word.Section
Dim wdRng As Word.Range
Dim wdShp As Word.Shape
Dim strName As String

Set wdApp = GetObject(Class:="Word.Application")
wdApp.WordBasic.DisableAutoMacros 1
Set wdDoc = wdApp.Documents.Open(cstrPath & "Prova1.docx")
For Each wdSec In wdDoc.Sections
With wdSec
Set wdRng = .Headers(wdHeaderFooterPrimary).Range
For Each wdShp In wdRng.ShapeRange
strName = wdShp.Name
If Left$(strName, 20) = "WordPictureWatermark" Then
wdShp.Delete
Exit For
End If
Next
End With
Next
With wdDoc
.Close SaveChanges:=Not .Saved
End With

Set wdShp = Nothing
Set wdRng = Nothing
Set wdSec = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub

--
Ciao! :)
Maurizio

[Ammammata]

Il Mon, 22 Jun 2015 19:24:43 +0200, Maurizio Borrelli ha scritto:

> Suppongo che l'immagine sia stata incorporata come "Filigrana", giusto?
> Se e' cosi' allora ispirandosi a quanto indicato qui:
>
> MS Word: Remove watermark from all Word pages using VBA
> <http://blog.vishalon.net/index.php/ms-word-remove-watermark-from-all-
word-pages-using-vba/>
>
> e' possibile aprire in sequenza tutti i documenti e eliminare la
> filigrana con del codice del tipo:
>
> Public Sub aTest()

e se funziona (su un paio di file di prova) tento di aggiungere il codice
per infilarci il logo piccolo in testata e 4 righe di testo nel piede :)


--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\ ... ¯\_(ツ)_/¯