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

Автор: Xiaoyang Последна промяна: 2018-08-31

Обикновено можем да вмъкнем името на файла или пътя и името на файла в документа на 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 ключ за изпълнение на този код и пътят и името на файла са вмъкнати в документа без разширение, вижте екранната снимка:

doc вмъкнете име на файл без разширение 1

Забележка: Ако просто искате да вмъкнете името на файла без разширение в документа, трябва да приложите този код:

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