Im Feld FILENAME können Sie den Namen der Dokumentdatei in das Dokument selbst einfügen. Wenn Sie den Schalter / p mit dem Feld verwenden, erhalten Sie nicht nur den Dateinamen, sondern auch den vollständigen Pfad für die Datei:

{ FILENAME /p }

Wie Sie sich vorstellen können, kann der Pfadname ziemlich lang werden, je nachdem, wie Ihre Festplatte organisiert ist und wo Sie das Dokument gespeichert haben. Aus diesem Grund möchten Sie möglicherweise selektiv auswählen, welche Ebenen des Pfads in der Rückgabe von FILENAME enthalten sind. Beispielsweise kann der vollständige Pfadname für das Dokument wie folgt lauten:

C:\My Documents and Settings\Level1\Level2\Level3\Level4\Doc1.docx

Möglicherweise möchten Sie die angezeigten Verzeichnisebenen einschränken, wie in diesen beiden Beispielen gezeigt:

\Level2\Level3\Level4\Doc1.docx \Level1\Level2\Level3\Level4\Doc1.docx

Leider gibt es keine Möglichkeit, dies mit dem Feld FILENAME selbst zu tun. Diese Fähigkeit ist einfach nicht enthalten. Die einzige Lösung besteht darin, ein Makro zu erstellen, das den Pfadnamen bestimmt und die gewünschten Ebenen in das Dokument einfügt. Das folgende Makro fügt beispielsweise an der Einfügemarke die gewünschte Anzahl von Verzeichnisebenen für die aktuelle Datei ein:

Sub SelectPaths()

Dim sPath As String     Dim sName As String     Dim sFull As String     Dim sPart As String     Dim sMsg As String     Dim sTemp As String     Dim iLevels As Integer     Dim J As Integer

sPath = ActiveDocument.Path     If sPath = "" Then         MsgBox "Need to save before running this macro.", _           vbOKOnly, "This Document Not Saved"

Else         sPath = sPath & Application.PathSeparator         sName = ActiveDocument.Name         sFull = sPath & sName

sMsg = "This is the full path:" & vbCrLf         sMsg = sMsg & sFull & vbCrLf & vbCrLf         sMsg = sMsg & "How many levels do you want, counting "

sMsg = sMsg & "from right to left?"



sTemp = InputBox(sMsg)

iLevels = Val(sTemp)



sPart = ""

If iLevels > 0 Then             For J = Len(sFull) To 1 Step -1                 If Mid(sFull, J, 1) = Application.PathSeparator Then                     iLevels = iLevels - 1                     If iLevels = 0 Then                         sPart = Mid(sFull, J, 255)

Exit For                     End If                 End If             Next J         End If

Selection.TypeText (sPart)

End If End Sub

Wenn das Dokument nicht gespeichert wurde, wird das Makro nicht ausgeführt. Dabei wird im Wesentlichen die Anzahl der Pfadtrennzeichen (Schrägstriche) gezählt, beginnend am Ende des Pfads. Es fügt dann nur den Teil des Pfades von diesem Punkt an ein.

Der Nachteil eines solchen Makros ist natürlich, dass es nicht so dynamisch ist wie Felder. Es wird einfach Text eingefügt. Wenn Sie später den Speicherort des Dokuments oder den Dokumentnamen ändern, müssen Sie das Makro erneut ausführen, um den neuen Pfadtext einzufügen.

Wenn Sie hinter dem Einfügen nur eines Teils des Pfads argumentieren, dass der Pfad in seiner Gesamtheit zu lang ist, können Sie einen anderen Ansatz wählen. Warum nicht einfach die Punktgröße des Teils des Pfades reduzieren, der nicht wichtig ist? Angenommen, Sie verwenden das Feld FILENAME, um den Pfad einzufügen, und es sieht folgendermaßen aus:

C:\My Documents and Settings\Level1\Level2\Level3\Level4\Doc1.docx

Wenn Sie den Teil links von „Level2“ ausblenden möchten, wählen Sie einfach diesen Text in den Feldergebnissen aus und formatieren Sie ihn als sehr kleine Punktgröße. Wenn Sie die Punktgröße auf 6 oder 7 Punkte festlegen, ist der nicht hervorgehobene Teil noch lesbar, aber der vollständige Pfad nimmt nicht so viel linearen Platz in Ihrem Dokument ein. Wenn Sie möchten, dass der nicht hervorgehobene Teil im Wesentlichen verschwindet, können Sie die Punktgröße auf 1 Punkt festlegen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (13292) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier: