Beschränken von Verzeichnissen im Feld FILENAME (Microsoft Word)
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: