Integration Feldfunktion

  • Word

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Integration Feldfunktion

    Hallo zusammen,

    ich hoffe mir kann jemand bei meinem relativ einfachen Problem helfen:
    Ich möchte mein gesamtes Word-Dokument durchsuchen und immer wenn das Wort "Abbildung" gefunden wird, soll eine Bildunterschrift an "Abbildung" angehängt werden. Ich möchte das Ganze automatisieren, da mir ein anderes Programm das Word-Dokument ohne die Abbildungsverweise generiert und ich diese ansonsten von Hand einfügen müsste. Folgenden Code konnte ich mir schon herleiten:

    Quellcode

    1. Sub Test6()
    2. Set myRange = ActiveDocument.Content
    3. myRange.Find.Execute FindText:="Abbildung", Forward:=True
    4. If myRange.Find.Found = True Then myRange.InsertCaption Label:="Abbildung", TitleAutoText:= _
    5. "EinfügenBeschriftung1", Title:=": fgh", ExcludeLabel:=1
    6. End Sub


    Meine Probleme:
    1. Warum entsteht ein Absatz vor dem einfügen der Abbildungsnummer?
    2. Wie bekomme ich eine Schleife zur Bearbeitung aller "Abildungen"? Zur Zeit hört das Programm nach einem Durchlauf auf.

    Ist es möglich auch nach einem bestimmten Word, z.B. "XXX" zu suchen und dieses dann durch die Bildunterschrift inklusive des Verweises ersetzt?


    Danke für die Hilfe.

    Hallo,

    alle durchsuchen sollte so gehen:

    Visual Basic-Quellcode

    1. Option Explicit
    3. Sub Test6()
    4. Dim myRange As Object
    5. Set myRange = ActiveDocument.Content
    6. myRange.Find.Text = "Abbildung"
    7. While myRange.Find.Execute
    8. myRange.InsertCaption Label:="Abbildung", TitleAutoText:= _
    9. "EinfügenBeschriftung1", Title:=": fgh", ExcludeLabel:=1
    10. Wend
    12. End Sub


    Beim Absatz kenne ich mich nicht aus. Mit ungewollten Absätzen nerven mich Word und Outlook andauernd...
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende