Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Verlinkte Grafiken durch die Grafiken selbst ersetzen
zurück: Problem mit Literaturverzeichnis in Word 2008 mac weiter: Zeilen/Spalten einfügen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
derTaucher
Gast


Verfasst am:
05. Mai 2011, 11:54
Rufname:

Verlinkte Grafiken durch die Grafiken selbst ersetzen - Verlinkte Grafiken durch die Grafiken selbst ersetzen

Nach oben
       Version: Office 2007

Hallo,

Ich habe ein etwas komplexeres Problem und brauche jetzt leider Hilfe.

Mal zur einordnung: Ich überarbeite für meine Firma unsere Hilfedateien. Dafür nutzen wir ein Tool namens Doc2Help und da das auf eine neue Version gebracht wird, müssen auch die zugrunde liegenden .doc files überarbeitet werden. Um genau zu sein möchte ich von .doc (Word 2003) zu .docx umsteigen.
Mein Dilemma sind die Grafiken. In der .doc sind die Grafiken relativ verlinkt. In der .docx ist dies jedoch absolut. Da die daten dann irgendwo auf den Server kommen ist das nicht hinnehmbar.
Ich habe jetzt mehrere Ansätze:

1. im Internet finden sich anleitungen wie man aus den absoluten verknüpfungen mittels Makros relative macht. Diese gehen jedoch davon aus, dass die Grafiken als Felder eingefügt sind. Leider ist das bei mir nicht der Fall.

2. da eine .docx nur eine umbenannte .zip ist habe ich auch versucht an der rumzuspielen. Ich habe versucht in den media Ordner eine datei zu kopieren und dann in der document.xml.rels darauf zu verlinken. Jetzt zeigt mir Word jedoch an es könnte die Datei nicht mehr öffnen.

3. Man kann alle Grafiken durch 'Bild ändern' einzeln austauschen sodass sie dann in der docx gespeichert sind. Von Hand ist das zu aufwendig und würde insgesamt mindestens eine Woche dauern. Leider habe ich auch dafür keine möglichkeit gefundenl ein Makro zu erstellen.

Könnt ihr mir helfen einen meiner Ansätze zu erweitern oder vielleicht einen ganz neuen zu entwickeln?
G.O.Tuhls
Foliendompteur


Verfasst am:
05. Mai 2011, 14:11
Rufname: Wem ruft mir?
Wohnort: Berlin

AW: Verlinkte Grafiken durch die Grafiken selbst ersetzen - AW: Verlinkte Grafiken durch die Grafiken selbst ersetzen

Nach oben
       Version: Office 2007

Da 2007 und 2010 keine verknüpften Bilder mehr kennen [1], brauchst Du nur ein .doc zu öffnen und zum .docx zu konvertieren. Schon sind die Bilder drin.

Gruß
G.O.

[1] Word ignoriert seit 2007 die Option zum Verknüpfen bei der Dateiauswahl ebenso wie die Option \d beim Feld {INCLUDEPICTURE}.

_________________
Press any thumb to continue.
derTaucher
Gast


Verfasst am:
06. Mai 2011, 14:20
Rufname:


AW: Verlinkte Grafiken durch die Grafiken selbst ersetzen - AW: Verlinkte Grafiken durch die Grafiken selbst ersetzen

Nach oben
       Version: Office 2007

Das mit dem Speichern in Docx war auch meine erste Idee. Leider kennt Word 2007 sehrwohl verlinkte Grafiken und so schied diese Variante schnell aus.

Ich habe jetzt ein Makro geschrieben welches mein Problem löst.
Die neu entstandenen Felder haben relative Pfade und suchen bei jedem Programmstart an den angegebenen Stellen.

Ich hatte noch etwas Probleme mit ein paar Rahmen aber daran sollte man sich nicht stören lassen. Das Makro funktioniert für mich soweit

Code:

Sub ConvertPictures()
'
' Convert linked pictures with absolute path to pictures with relative path
' Also handles for frames around pictures
'
'
Dim source As String
Dim iShape As InlineShape
Dim h, i, w As Long
Dim c As Double



For i = 1 To ActiveDocument.InlineShapes.Count
    c = 0
    Set iShape = ActiveDocument.InlineShapes(i)
    If iShape.Type = wdInlineShapeLinkedPicture Then ' linked inlineShape
        With iShape
            .Select
            h = .Height ' recover widht and height
            w = .Width
            If .Line.Visible <> msoFalse Or .Borders.Enable <> False Then
                c = .Line.Weight     ' recover Lines if existing
            End If
            source = .LinkFormat.SourceName
       End With
       With Selection
            .Delete
            .Fields.Add Range:=Selection.Range, Type:=wdFieldIncludePicture, Text:= _
                "pics\\" & source, PreserveFormatting:=True
                ' Pictures must be in subfolder pics\
            .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend  ' select field
            With .InlineShapes(1)
                .Height = h
                .Width = w
                If c > 0 Then
                    .Borders.Enable = True
                    .Borders.OutsideLineWidth = c * 8
                    ' fields get borders instead of lines
                End If
            End With
       End With
    End If
       
Next i
End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Mergefield: Zeichen ersetzen 10 _Gast_ 268 06. Feb 2014, 16:46
_Gast_ Mergefield: Zeichen ersetzen
Keine neuen Beiträge Word Formate: Positionieren von Grafiken 1 jimsonweet 314 21. Dez 2011, 12:14
jimsonweet Positionieren von Grafiken
Keine neuen Beiträge Word Formate: Grafiken formatieren 2 mausilisa 299 04. Nov 2011, 01:00
Gast Grafiken formatieren
Keine neuen Beiträge Word Formate: Grafiken in Kopfzeilen - wie Position festlegen? 2 pfon2005 1680 29. Jul 2011, 09:01
Gast Grafiken in Kopfzeilen - wie Position festlegen?
Keine neuen Beiträge Word Formate: Unterschiedlich große Zeichenabstände in Grafiken 3 sareblau 620 09. Apr 2011, 11:59
G.O.Tuhls Unterschiedlich große Zeichenabstände in Grafiken
Keine neuen Beiträge Word Formate: Begriff ersetzen 8 rumburak 497 17. Nov 2010, 09:12
CHF Begriff ersetzen
Keine neuen Beiträge Word Formate: Formatvorlagen ersetzen bei beliebigem Text 2 Gast 1251 21. Jun 2010, 12:32
Gast Formatvorlagen ersetzen bei beliebigem Text
Keine neuen Beiträge Word Formate: Apostrophe suchen und ersetzen 1 Gast 1752 01. Jun 2010, 10:44
mojos Apostrophe suchen und ersetzen
Keine neuen Beiträge Word Formate: Suchen & Ersetzen nach Format FETT 2 Moppele 2471 03. Dez 2009, 16:52
Moppele Suchen & Ersetzen nach Format FETT
Keine neuen Beiträge Word Formate: Formatvorlage für Beschriftung ersetzen 0 Lischen16 405 12. Okt 2009, 08:14
Lischen16 Formatvorlage für Beschriftung ersetzen
Keine neuen Beiträge Word Formate: Beschriftung von Grafiken wird überschrieben 3 gast ° 1426 20. Jul 2009, 17:07
Ina Beschriftung von Grafiken wird überschrieben
Keine neuen Beiträge Word Formate: Sonderzeichen suchen & ersetzen 1 psmuc 2262 08. Apr 2009, 12:38
Sporty1808 Sonderzeichen suchen & ersetzen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editor Forum