Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Xiaoyang Last modified

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

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

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

Kutools for 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 для запуска этого кода, и путь к файлу и имя будут вставлены в документ без расширения, см. скриншот:

The file path and name are inserted into the document without extension

Примечание: Если вы хотите вставить только имя файла без расширения в документ, следует применить этот код:

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

Лучшие инструменты для повышения производительности в офисе

Kutools for Word — Поднимите свой опыт работы с Word на новый уровень, используя более 100 впечатляющих функций!

🤖 Возможности ИИ Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (Сохраняет форматирование) / Супер Перевод (Сохраняет форматирование) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

📘 Мастерство работы с Документом: Разделить страницы / Объединить документы / Экспортировать диапазон в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF...

✏ Редактирование текста сообщения: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Легкая очистка: Удалить лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для получения дополнительных инструментов удаления перейдите в группу Удалить...

➕ Креативные вставки: Вставить тысячные разделители / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Узнайте больше в группе Вставить...

🔍 Точные выделения: Определить конкретные страницы / Таблицы / Фигуры / Абзацы заголовков / Улучшайте навигацию с помощью дополнительных функций выбора...

⭐ Особые улучшения: Перейти к любому диапазону / Автоматическая вставка повторяющегося текста / Переключение между окнами документа /11 инструментов преобразования...

🌍 Поддержка более40 языков: Используйте Kutools на предпочитаемом языке — поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и еще более40 языков!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите попробовать эти функции? Загрузите Kutools for Word сейчас! 🚀
 

✨ Kutools for Office — Одна установка, пять мощных инструментов!

Включает Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Получите все5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Мгновенно экономьте время и повышайте продуктивность

Лучшие инструменты для повышения производительности в офисе

Kutools for Word - 100+ инструментов для Word

Бесплатная загрузка Купить Подробнее о Kutools