Thema Datum  Von Nutzer Rating
Antwort
Rot Makro-Funktionalität in anderem Ordner
05.06.2022 21:10:45 Frank Hermann
Solved

Ansicht des Beitrags:
Von:
Frank Hermann
Datum:
05.06.2022 21:10:45
Views:
111
Rating: Antwort:
 Nein
Thema:
Makro-Funktionalität in anderem Ordner

Hallo. Mein Problem in Kurzform:

Ich habe ein Makro (erstellt mittels Aufzeichnung) in einer Word-Datei names "DOK" erstellt und die Datei abgespeichert in dem Speicherort C:\Users\admin\Desktop\Ordner 1.

Es gibt also einen Ordner 1. In diesem gibt es das Word-Dokument 1 und das Word-Dokument 2. Mittels des Makro werden beide Dokumente in dem Word-Dokument "DOK" zusammengefügt. Das neue Gesamtdokument wird als Dokument 3 auch in Ordner 1 gespeichert. Soweit so gut.

Nun möchte ich aber, dass das Makro auch funktioniert, wenn ich die Word-Datei "DOK" (in der ja das Makro gespeichert ist) in einen anderen Ordner 2 kopiere. Dort sind ebenso zwei Dokumente mit den Namen Dokument 1 und Dokument 2 vorhanden (die aber natürlich einen anderen Inhalt haben, als das Dokument 1 und das Dokument 2 in dem Ordner 1). Ich weiß schon, dass das mit dem Auslesen des aktuellen Dateipfads zusammenhängt, habe es aber noch nicht hinbekommen.

Ich wäre dankbar für eine konkrete Hilfe bzw. direkte Anpassung meines Makros, so dass das Auslesen des Dateipfads integriert wird und inwiefern ggf. ein weiteres Makro, bspw. mit dem Titel "Dateipfad" zu der Definition des Pfadauslesens erforderlich ist. Danke vorab und hier das aktuelle Makro:

 

Sub Makro1()
'
' Makro1 Makro
'
'
    ChangeFileOpenDirectory "C:\Users\admin\Desktop\Ordner 1\"
    Selection.InsertFile FileName:="Dokument 1.docx", Range:="", ConfirmConversions _
        :=False, Link:=False, Attachment:=False
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    ChangeFileOpenDirectory _
        "C:\Users\admin\Desktop\Ordner 1\"
    Selection.InsertFile FileName:="Dokument 2.docx", Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
    ChangeFileOpenDirectory "C:\Users\admin\Desktop\Ordner 1\"
    ActiveDocument.SaveAs FileName:="Dokument3.docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro-Funktionalität in anderem Ordner
05.06.2022 21:10:45 Frank Hermann
Solved