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:
Note: 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
Najlepsze narzędzia biurowe
Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!
🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość / Przepisz tekst / Podsumowanie dokumentów / Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word
📘 Znajomość dokumentów: Podziel strony / Scal dokumenty / Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...) / Wsadowa konwersja do formatu PDF / Eksportuj strony jako obrazy / Drukuj wiele plików jednocześnie...
✏ Edycja treści: Znajdź i zamień partii w wielu plikach / Zmień rozmiar wszystkich zdjęć / Transponuj wiersze i kolumny tabeli / Konwertuj tabelę na tekst...
🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie / Podziały sekcji / Wszystkie nagłówki / Pola tekstowe / Hiperłącza / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...
➕ Kreatywne wstawki: Wstawić Tysiące separatorów / Pola wyboru / Przyciski Radio / Kod QR / kod kreskowy / Tabela linii ukośnych / Podpis równania / Tytuł Zdjęcia / Podpis tabeli / Wiele zdjęć / Odkryj więcej w Wstaw grupę...
🔍 Precyzyjne wybory: Punktowy konkretne strony / stoły / kształty / nagłówki akapitów / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...
⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji / automatyczne wstawianie powtarzającego się tekstu / płynnie przełączaj się pomiędzy oknami dokumentów / 11 Narzędzia konwersji...