Office - Word, Excel und Co. 9.703 Themen, 40.813 Beiträge

Verfolgung starten Optionen

Word Druckvorbereitung, Seriendruck von Excel

Wiesner / 6 Antworten / Flachansicht Nickles

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

bei Antwort benachrichtigen
Servus Wiesner, wären die Tipps hier für Dich vielleicht hilfreich? ... Bergi2002
Ich kann Dir nur sagen, wie Du Bilder ohne Word anpassen kannst. Mit ... peterson
@Bergi, @peterson, leider ist dies nicht das ganz richtige. Ich suche die ... Wiesner
http://rixdorfer.be.schule.de/arbeitshilfen/office/bilder-in-worddokument-ve ... peterson
Bäuerle1 Wiesner „@Bergi, @peterson, leider ist dies nicht das ganz richtige. Ich suche die...“
Optionen

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


bei Antwort benachrichtigen
Danke erst mal, ich werde in den nächsten Tage eure Vorschläge mal testen. Wiesner