Как вставить в документ Word путь к файлу и имя файла без расширения?

Обычно имя файла или путь к файлу с именем можно вставить в документ Word с помощью поля «Имя файла», но при этом вставляемое имя всегда содержит расширение — например, .docx или .doc. Как вставить имя файла или путь к файлу с именем без расширения?

Вставка Путь к файлу и имени или имени файла без расширения с помощью кода VBA

---

Вставка Путь к файлу и имени или имени файла без расширения с помощью кода VBA

Чтобы вставить имя файла без расширения в документ Word, воспользуйтесь следующим кодом VBA:

1. Установите курсор в то место, куда нужно вставить путь к файлу и имя без расширения.

2. Затем нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

3. Далее выберите Вставка > Модуль и скопируйте приведённый ниже код в открывшийся пустой модуль.

Код 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

---