Як вставити шлях до файлу та ім'я файлу без розширення в документ Word?

Зазвичай ми можемо вставити ім'я файлу або шлях до файлу та ім'я в документ Word за допомогою функції поля Ім'я файлу, але це вставлене ім'я файлу, включаючи розширення файлу docx або doc. Як ви могли вставити ім'я файлу або шлях до нього та ім'я без розширення?

Вставте шлях до файлу та ім’я чи ім’я файлу без розширення за допомогою коду VBA

Вставте шлях до файлу та ім’я чи ім’я файлу без розширення за допомогою коду VBA

Щоб вставити ім'я файлу без розширення в документ Word, застосуйте такий код VBA:

1. Наведіть курсор на місце, куди потрібно вставити шлях до файлу та ім'я без розширення.

2. Потім утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. А потім натисніть Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль.

Код VBA: Вставте шлях до файлу та ім'я без розширення:

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. Потім натисніть F5 ключ для запуску цього коду, і шлях до файлу було вставлено в документ без розширення, див. знімок екрана:

примітки: Якщо ви просто хочете вставити в документ ім'я файлу без розширення, вам слід застосувати такий код:

Код VBA: Вставте лише ім'я файлу без розширення:

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

Рекомендовані засоби підвищення продуктивності слів