Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

 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:

doc wpisz nazwę pliku bez rozszerzenia 1

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

 

Kutools For Word - więcej niż 100 zaawansowanych funkcji dla programu Word, oszczędzaj 50% czasu

  • Skomplikowane i powtarzalne operacje można wykonać jednorazowo w ciągu kilku sekund.
  • Wstaw wiele obrazów w folderach do dokumentu programu Word jednocześnie.
  • Scalaj i łącz wiele plików programu Word w folderach w jeden z żądaną kolejnością.
  • Podziel bieżący dokument na oddzielne dokumenty według nagłówka, podziału sekcji lub innych kryteriów.
  • Konwertuj pliki między Doc i Docx, Docx i PDF, zbiór narzędzi do typowych konwersji i zaznaczania, i tak dalej ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.