Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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



Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
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.