Как вставить путь к файлу и имя файла без расширения в документ Word?
Обычно мы можем вставить имя файла или путь к файлу и его имя в документ Word, используя функцию поля Имя файла. Однако вставленное имя файла включает расширение docx или doc. Как можно вставить имя файла или путь к файлу и имя без расширения?
Вставка пути к файлу и имени или имени файла без расширения с использованием кода VBA
Рекомендуемые инструменты для повышения производительности в Word
Kutools для Word: Интеграция ИИ 🤖, более 100 расширенных функций экономят 50% времени на обработку документов.Бесплатная загрузка
Office Tab: Внедряет вкладки в стиле браузера в Word (и другие инструменты Office), упрощая навигацию между несколькими документами.Бесплатная загрузка
Вставка пути к файлу и имени или имени файла без расширения с использованием кода VBA
Чтобы вставить имя файла без расширения в документ Word, примените следующий код VBA:
1. Поместите курсор туда, где вы хотите вставить путь к файлу и имя без расширения.
2. Затем удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
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
Лучшие инструменты для повышения производительности в Office
Kutools для Word– улучшите свой опыт работы с Word с помощью более чем 100 выдающихся функций!
🤖 Возможности Kutools AI: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...
📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различных форматах (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...
✏ Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Лёгкая очистка: Удалите лишние пробелы / Разрывы разделов / текстовые поля / гиперссылки. Для других инструментов удаления перейдите в группу Удалить...
➕ Творческие вставки: Вставить разделитель разрядов / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений. Откройте больше возможностей в группе Вставить...
🔍 Точные выделения: Точно определяйте нужные страницы / таблицы / фигуры / абзацы заголовка. Улучшайте навигацию благодаря расширенным функциям Выбрать ...
⭐ Уникальные улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов преобразования...
🌍 Поддержка более40 языков: Используйте Kutools на удобном вам языке – поддерживаются английский, испанский, немецкий, французский, китайский и ещё более40 языков!

Лучшие инструменты для повышения производительности в Office
Kutools для Word – 100+ инструментов для Word
- 🤖 Возможности Kutools AI: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка / Супер Перевод / Искусственный интеллект для редактирования / Проверка с помощью ИИ
- 📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Пакетно преобразовать в PDF
- ✏ Редактирование содержимого: Пакетный поиск и замена / Изменить размер всех изображений
- 🧹 Лёгкая очистка: Удалить лишние пробелы / Удалить разрывы разделов
- ➕ Творческие вставки: Вставить разделитель разрядов / Вставить флажки / Создать QR-коды
- 🌍 Поддержка более40 языков: Kutools говорит на вашем языке – поддерживается более40 языков!