Note: The other languages of the website are Google-translated. Back to English
Đăng nhập  \/ 
x
or
x
Đăng ký  \/ 
x

or

 Làm thế nào để chèn đường dẫn tệp và tên tệp không có phần mở rộng trong tài liệu Word?

Thông thường, chúng ta có thể chèn tên tệp hoặc đường dẫn tệp và tên trong tài liệu Word bằng cách sử dụng chức năng trường Tên tệp, nhưng, tên tệp được chèn này bao gồm phần mở rộng tệp là docx hoặc doc. Làm thế nào bạn có thể chèn tên tệp hoặc đường dẫn tệp và tên mà không có phần mở rộng?

Chèn đường dẫn tệp và tên hoặc tên tệp không có phần mở rộng bằng cách sử dụng mã VBA


Chèn đường dẫn tệp và tên hoặc tên tệp không có phần mở rộng bằng cách sử dụng mã VBA

Để chèn tên tệp không có phần mở rộng trong tài liệu Word, vui lòng áp dụng mã VBA sau:

1. Đặt con trỏ đến nơi bạn muốn chèn đường dẫn và tên tệp không có phần mở rộng.

2. Sau đó, nhấn giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. Và sau đó, nhấp vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở.

Mã VBA: Chèn đường dẫn và tên tệp không có phần mở rộng:

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. Sau đó nhấn F5 để chạy mã này và đường dẫn tệp và tên đã được chèn vào tài liệu mà không có phần mở rộng, xem ảnh chụp màn hình:

doc chèn tên tệp không có phần mở rộng 1

chú thích: Nếu bạn chỉ muốn chèn tên tệp không có phần mở rộng vào tài liệu, bạn nên áp dụng mã này:

Mã VBA: Chỉ chèn tên tệp mà không có phần mở rộng:

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



Công cụ năng suất Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

  • Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
  • Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
  • Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
  • Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
  • Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.

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.