Jak wstawić ścieżkę do pliku i nazwę pliku bez rozszerzenia w dokumencie programu Word?

Zwykle możemy wstawić nazwę pliku lub ścieżkę do pliku i nazwę w dokumencie programu Word za pomocą funkcji pola Nazwa pliku, ale ta wstawiona nazwa pliku zawiera rozszerzenie pliku docx lub doc. Jak możesz wstawić nazwę pliku lub ścieżkę i nazwę pliku bez rozszerzenia?

Wstaw ścieżkę i nazwę pliku lub nazwę pliku bez rozszerzenia, używając kodu VBA

Wstaw ścieżkę i nazwę pliku lub nazwę pliku bez rozszerzenia, używając kodu VBA

Aby wstawić nazwę pliku bez rozszerzenia w dokumencie programu Word, zastosuj następujący kod VBA:

1. Umieść kursor w miejscu, w którym chcesz wstawić ścieżkę do pliku i nazwę bez rozszerzenia.

2. Następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3. A następnie kliknij wstawka > Moduł, skopiuj i wklej poniższy kod do otwartego pustego modułu.

Kod VBA: Wstaw ścieżkę i nazwę pliku bez rozszerzenia:

Sub InsertFileNameAndPath()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.FullName, ".")
        xPathName = VBA.Left(.FullName, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

4. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a ścieżka i nazwa pliku zostały wstawione do dokumentu bez rozszerzenia, patrz zrzut ekranu:

Uwagi: Jeśli chcesz tylko wstawić nazwę pliku bez rozszerzenia do dokumentu, zastosuj ten kod:

Kod VBA: wstaw nazwę pliku tylko bez rozszerzenia:

Sub InsertFileNameOnly()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.Name, ".")
        xPathName = VBA.Left(.Name, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

Zalecane narzędzia zwiększające produktywność programu Word