Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

 Як вставити шлях до файлу та ім'я файлу без розширення в документ Word?

Зазвичай ми можемо вставити ім'я файлу або шлях до файлу та ім'я в документ Word за допомогою функції поля Ім'я файлу, але це вставлене ім'я файлу, включаючи розширення файлу docx або doc. Як ви могли вставити ім'я файлу або шлях до нього та ім'я без розширення?

Вставте шлях до файлу та ім’я чи ім’я файлу без розширення за допомогою коду VBA


Вставте шлях до файлу та ім’я чи ім’я файлу без розширення за допомогою коду VBA

Щоб вставити ім'я файлу без розширення в документ Word, застосуйте такий код VBA:

1. Наведіть курсор на місце, куди потрібно вставити шлях до файлу та ім'я без розширення.

2. Потім утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. А потім натисніть Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль.

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



Рекомендовані засоби підвищення продуктивності слів

 

Kutools для Word - Більше 100 вдосконалених функцій для Word, економите свій 50% часу

  • Складні та повторювані операції можна виконати одноразово за кілька секунд.
  • Вставте кілька зображень між папками в документ Word одночасно.
  • Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
  • Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
  • Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...

Say something here...
symbols left.
You are guest
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.