Word Druckvorbereitung, Seriendruck von Excel
Wiesner / 6 Antworten / Baumansicht
Servus zusammen,in unserer Firma bekommen wir in letzter Zeit von einigen Vereinen Word Druckaufträge.
Da diese Dokumente von Laien erstellt werden, müssen wir die die eingefügten Bilder immer wieder überarbeiten, sonst werden diese für einen Seriendruck zu groß.
Die Word Dateien sind Text mit mehreren Megabyte großen Bildern = Bild unbearbeitet via Drag & Drop reingezogen.
Denn wenn ich das Dokument direkt schicken würde, wäre das Dokument im Windows Spooler vor unserer Feiry schon mehrere Gigabyte groß.
Das Anpassen verschlingt aber viel Zeit.
Ein Umwandeln in PDF ergibt dasselbe Problem -> Windows geht in die Knie.
Habt ihr einen Tipp wie man das Anpassen von übergroßen Grafiken beim Orginal automatisieren könnte?
Danke für eure Tipps
Bergi2002 
Wiesner
„Word Druckvorbereitung, Seriendruck von Excel“
Servus Wiesner,
wären die Tipps hier für Dich vielleicht hilfreich?
http://office.microsoft.com/de-de/word-help/verringern-der-grosse-von-bilddateien-HA010192200.aspx
BG,
Bergi2002
wären die Tipps hier für Dich vielleicht hilfreich?
http://office.microsoft.com/de-de/word-help/verringern-der-grosse-von-bilddateien-HA010192200.aspx
BG,
Bergi2002
peterson Wiesner
„Word Druckvorbereitung, Seriendruck von Excel“
Ich kann Dir nur sagen, wie Du Bilder ohne Word anpassen kannst.
Mit TinyPic.
http://www.chip.de/downloads/TinyPic_27755921.html
Mit TinyPic.
http://www.chip.de/downloads/TinyPic_27755921.html
Wiesner
Nachtrag zu: „Word Druckvorbereitung, Seriendruck von Excel“
@Bergi, @peterson,
leider ist dies nicht das ganz richtige.
Ich suche die Möglichkeit bei einer vorhandenen WordDatei die darin enthaltenen Bilder verkleinern.
Die Fussmethode ist leider sehr zeitaufwändig.
Ein Makro oder eine externe Software die die *.doc(x) öffnen kann und die Bilder nach mit einem Argument verkleinert (dpi + Größe) wäre so mein Gedanke.
leider ist dies nicht das ganz richtige.
Ich suche die Möglichkeit bei einer vorhandenen WordDatei die darin enthaltenen Bilder verkleinern.
Die Fussmethode ist leider sehr zeitaufwändig.
Ein Makro oder eine externe Software die die *.doc(x) öffnen kann und die Bilder nach mit einem Argument verkleinert (dpi + Größe) wäre so mein Gedanke.
peterson Wiesner
„ Bergi, peterson, leider ist dies nicht das ...“
http://rixdorfer.be.schule.de/arbeitshilfen/office/bilder-in-worddokument-verkleinern-auf-einen-rutsch
oder dieses:
Das geht in Word 2003 schnell und einfach. Mit der rechten Maustaste auf ein beliebiges Bild klicken und im Kontextmenue 'Grafik formatieren' auswaehlen. Im naechsten Fenster 'Alle Bilder im Dokument' auswaehlen. Die Gruppe 'Aufloesung aendern' nach eigenem Bedarf auswaehlen. Wichtig ist der Punkt 'zugeschnittene Bildbereiche loeschen'. Dieser entfernt die verdeckten Bildbereiche, das verkleinert das Worddokument manchmal erheblich.
oder dieses:
Das geht in Word 2003 schnell und einfach. Mit der rechten Maustaste auf ein beliebiges Bild klicken und im Kontextmenue 'Grafik formatieren' auswaehlen. Im naechsten Fenster 'Alle Bilder im Dokument' auswaehlen. Die Gruppe 'Aufloesung aendern' nach eigenem Bedarf auswaehlen. Wichtig ist der Punkt 'zugeschnittene Bildbereiche loeschen'. Dieser entfernt die verdeckten Bildbereiche, das verkleinert das Worddokument manchmal erheblich.
Bäuerle1 Wiesner
„ Bergi, peterson, leider ist dies nicht das ...“
Hallo Wiesener,
schau Dir mal folgendes an zum Export:
ungetestet:
http://www.add-in-world.com/katalog/word-grafass/
einmal in w2010 getestet: war ok:
http://www.office-loesung.de/ftopic433998_0_0_asc.php
anschliessend
per Stapelverarbeitung die Bilder scalieren.
dann folgender Code: abgewandelt gefunden in: www.office-loesung.de
Sub fuegein()
Dim Pfad
Dim Dateiname As String
Dim Breite As Integer
Dim Hoehe As Integer
Dim Hoehe_Max As Integer
Dim Skalierungsfaktor As Double
Pfad = "D:\Rennen\" ' CurDir hier wieder den Pfad anpassen
Set MyShapes = ActiveDocument.InlineShapes
MyCou = MyShapes.Count
For MyZahl = 1 To MyCou
With Dialogs(wdDialogFileOpen)
.Name = Pfad
If .Display = -1 Then
Dateiname = .Name
End If
If Dateiname = "" Then
Exit Sub
End If
End With
Set bild = ActiveDocument
ActiveDocument.InlineShapes().Item(MyZahl).Select
Selection.InlineShapes.AddPicture Pfad & Dateiname, SaveWithDocument:=True
Dateiname = ""
Next
End Sub
viel Spass beim testen
Andy
schau Dir mal folgendes an zum Export:
ungetestet:
http://www.add-in-world.com/katalog/word-grafass/
einmal in w2010 getestet: war ok:
http://www.office-loesung.de/ftopic433998_0_0_asc.php
anschliessend
per Stapelverarbeitung die Bilder scalieren.
dann folgender Code: abgewandelt gefunden in: www.office-loesung.de
Sub fuegein()
Dim Pfad
Dim Dateiname As String
Dim Breite As Integer
Dim Hoehe As Integer
Dim Hoehe_Max As Integer
Dim Skalierungsfaktor As Double
Pfad = "D:\Rennen\" ' CurDir hier wieder den Pfad anpassen
Set MyShapes = ActiveDocument.InlineShapes
MyCou = MyShapes.Count
For MyZahl = 1 To MyCou
With Dialogs(wdDialogFileOpen)
.Name = Pfad
If .Display = -1 Then
Dateiname = .Name
End If
If Dateiname = "" Then
Exit Sub
End If
End With
Set bild = ActiveDocument
ActiveDocument.InlineShapes().Item(MyZahl).Select
Selection.InlineShapes.AddPicture Pfad & Dateiname, SaveWithDocument:=True
Dateiname = ""
Next
End Sub
viel Spass beim testen
Andy
Wiesner Bäuerle1
„Hallo Wiesener, schau Dir mal folgendes an ...“
Danke erst mal, ich werde in den nächsten Tage eure Vorschläge mal testen.
