Relativer Pfad zum öffnen des Word Dokumentes

Bild

Betrifft: Relativer Pfad zum öffnen des Word Dokumentes
von: Andrea
Geschrieben am: 26.08.2015 11:58:04

Hallo,
ich brauche noch einmal eure Hilfe. Mein erstelltes Kalk-Tool soll nun einen relativen Pfad bekommen. Das zu öffnende Word-Dokument wird im gleichen Verzeichnis wie die Excel-Datei sein. Da die Exceldatei auch auf anderen Rechnern laufen soll, würde ich hier gerne mit relativen Pfaden arbeiten.
Könnt ihr mir sagen wie?
Herzlichen Dank im Voraus.
Schöne Grüße,
Andrea Hottendorff
Hier mein Makro:

Sub OpenWordDocument()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Users\hottendorff\Documents\Managed Firewall Services\ _
ServicevertragMuster.docx")
'
' Angebot Makro
'
'
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Users\hottendorff\Documents\Managed Firewall Services\MSS Kalkulationstool Formular  _
20150609.xlsm" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\hottendorff\ _
Documents\Managed Firewall Services\MSS Kalkulationstool Formular 20150609.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registr" _
        , SQLStatement:="SELECT * FROM `Transferdaten$`", SQLStatement1:="", _
        SubType:=wdMergeSubTypeAccess
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
            .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
        End With
        .Execute Pause:=False
    End With
    
    wrdDoc.Close False
    
    End Sub

Bild

Betrifft: AW: Relativer Pfad zum öffnen des Word Dokumentes
von: Nepumuk
Geschrieben am: 26.08.2015 14:26:55
Hallo,
so:

Set wrdDoc = wrdApp.Documents.Open(ThisWorkbook.Path & "\ServicevertragMuster.docx")

Gruß
Nepumuk

Bild

Betrifft: AW: Relativer Pfad zum öffnen des Word Dokumentes
von: Andrea
Geschrieben am: 26.08.2015 15:22:51
Hallo Nepumuk,
ganz herzlichen Dank. Hast du noch einen Tipp für mich auf der Word-Seite, wie ich die Exceltabelle mittels relativen Pfad aufrufen kann?
Schöne Grüße,
Andrea

Bild

Betrifft: AW: Relativer Pfad zum öffnen des Word Dokumentes
von: Nepumuk
Geschrieben am: 26.08.2015 17:53:03
Hallo,
ist das die Mappe in der sich auch das Makro befindet? Wenn ja, dann einfach:

ThisWorkbook.FullName

Gruß
Nepumuk

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Relativer Pfad zum öffnen des Word Dokumentes"