Bilder aus Worddokumenten extrahieren

Hallo alle Miteinander,

ich bin nochmal in die Tiefen dieses Problems eingestiegen:

Dr. Google hatte Recht, insofern hilft diese Code:

-----------------------------------------------------------------------------------------------------------------------------

Function OrdnerDateienAuslesenF?rHTML(ByVal strOrdner As String)

Dim fso As Object

Dim objFld As Object

Dim objSubFld As Object

Dim objFiles As Object

Dim fld, file, strPath, strPathA, strName, oldName

Dim objWord As Word.Application

Dim objDocument As Word.Document

Dim objFileSystem As Object

'

' File-System-Object, Startordner, Unterordner referenzieren

'

Set objFileSystem = CreateObject("Scripting.FileSystemObject")

Set objFld = objFileSystem.GetFolder(strOrdner)

Set objSubFld = objFld.SubFolders

Set objWord = CreateObject("Word.Application")







For Each fld In objSubFld

AnzO = AnzO + 1

Set objFiles = fld.Files

For Each file In objFiles

AnzF = AnzF + 1

'

'

oldName = fld & "\" & file.Name

strPathA = fld & "\"

strPath = Replace(strPathA, "Archiv", "Bilder")

' If objFileSystem.FolderExists(strPath) Then

' Else

' MkDir (strPath)

' End If

strName = Left(file.Name, InStr(1, file.Name, ".") - 1) & ".htm"

Set objWord = CreateObject("Word.Application")

With objWord

.Documents.Open FileName:=(oldName)

.Visible = True

.Activate

.ActiveDocument.SaveAs FileName:=strPath & strName, FileFormat:=wdFormatHTML, _

LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _

:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _

False

.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

.Visible = False

End With

objWord.Quit



'

'

Next file

' Rekursiver Aufruf

OrdnerDateienAuslesenF?rHTML fld

Next fld

' Objektreferenzen zerst?ren

Set fso = Nothing

Set objFld = Nothing

'

End Function

Function AuslesenF?rHTML()

AnzO = 0

AnzF = 0

OrdnerDateienAuslesenF?rHTML "L:\Archiv\"

MsgBox AnzO

MsgBox AnzF

End Function

------------------------------------------------------------------------------------------------------------------------

Grob skizziert:

Durchlesen der Verzeichnisstruktur und die word.doc Dokumente als .html speichern.

Am einfachsten wenn die gleiche Ordnerstruktur dupliziert ist und hier .html reingeschrieben wird.

wenn die Worddokumente alle aus einer identischen Vorlage erstellt wurden, hat das enthaltene Bild immer den

gleichen Namen z.B image008.jpg

Dann wieder durch die Ordnerstruktur rauschen und das jpg raus kopieren, das funktioniert zu 95%

---------------------------------------------------------------------------------------------------------------------

Function BilderAuslesen()

Dim db As Object

Dim rst As Object

Dim fso As Object

AnzF = 0

Set fso = CreateObject("Scripting.FileSystemObject")

Set db = CurrentDb()

Set rst = db.OpenRecordset("Select * from eintrag;", DB_OPEN_DYNASET)

Do While Not rst.EOF

von = "L:\Bilder\" & rst.bezugsadr

If rst.inst_org_adr <> " " Then

von = von & "\" & rst.inst_org_adr

End If

ordner = Left(rst.ort_26, InStr(1, rst.ort_26, ".") - 1) & "-Dateien\"

von = von & "\" & ordner & "image008.jpg"

nach = "Y:\" & rst.eintrag_nr & "\"

ppos = InStr(rst.ort_26, ".")

neu = Left(rst.ort_26, ppos - 1) & ".jpg"

nach = nach & neu

If fso.FileExists(nach) Then

fso.DeleteFile (nach)

End If

fso.CopyFile von, nach, True

AnzF = AnzF + 1

rst.MoveNext

Loop

Set db = Nothing

Set rst = Nothing

MsgBox AnzF

End Function

--------------------------------------------------------------------------------------------------------------------

Der Rest ist Handarbeit

Ich mach dann das Ticket zu.

Hallo,

Wie kann ich beim Einfügen von Web-Inhalten die Internetadresse von Bildern erhalten?

es ist eigentlich Standard-Verhalten, dass die Bilder inklusive Hyperlinkfunktionalität ins Worddokument eingefügt werden. Wie ist denn deine Vorgehensweise?

Viele Grüße

Lisa

Hallo,

was heißt denn "exorbitant" konkret? Wie ist das Bild positioniert?

Speichere das Dokument und schließe es. Erstelle eine Kopie und erweitere den Dateinamen (z. B. Bilder.docx) um die Dateinamenserweiterung
zip, z. B. Bilder.docx.zip.

Extrahiere die Dateien des Zip-Ordners und kontrolliere im Unterordner "word\media", in welcher Größe die Bilder darin gespeichert sind.

Viele Grüße

Lisa

Ja, danke - jetzt hat es geklappt. Ich versuch das grade mit einem zweiten Bild und hoffe es klappt. WENN es wirklich so ginge dass ich die Größe des Worddokuments so reduzieren kann, wie oft muss ich sowas denn ca machen bis ich mein Worddokument wieder
öffnen kann? Das Dokument ist derzeit 676.761KB groß. Kann man sowas abschätzen oder garnicht? Muss ich da einfach immer wieder schaun?

Und seh ich das richtig, ich mach das jetzt mit einigen Bildern und dann nehm ich den docx.zip Ordner und nenne ihn nur wieder docx und damit hat sich das alles gelöst und alle Probleme sind beseitigt ich mach mein Dokument auf und bin happy? .. das klingt
ja jetzt fast zu schön um wahr zu sein ..

Hallo,

Wenn ich Bilder in ein Worddokument kopiere erscheinen diese Bilder nicht in der Ansicht.

mit welchem "Zeilenumbruch" (Bildtools | Format | Anordnen) werden die Bilder eingefügt? In welcher Ansicht arbeitest du? Ist in den Word-Optionen unter "Erweitert | Dokumentinhalt" eventuell die Option "Zeichnungen und Textfelder auf dem Bildschirm anzeigen"
deaktiviert?

Viele Grüße

Lisa [MS MVP Word]