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:
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 văn phòng tốt nhất
Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!
🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung / Viết lại văn bản / Tóm tắt tài liệu / Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word
📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...) / Chuyển đổi hàng loạt sang PDF / Xuất trang dưới dạng hình ảnh / In nhiều tập tin cùng một lúchữu ích. Cảm ơn !
✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp / Thay đổi kích thước tất cả hình ảnh / Hoán đổi hàng và cột của bảng / Chuyển bảng thành văn bảnhữu ích. Cảm ơn !
🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung / Phần ngắt / Tất cả các tiêu đề / Hộp văn bản / Các siêu liên kết / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !
➕ Phụ trang quảng cáo: Chèn Ngàn dấu phân cách / Hộp kiểm tra / Nút radio / Mã QR / Mã vạch / Bảng đường chéo / Chú thích phương trình / Hình ảnh Caption / Bảng chú thích / Nhiều Hình Ảnh / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !
???? Lựa chọn chính xác: Xác định trang cụ thể / bảng / hình dạng / đoạn văn tiêu đề / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !
⭐ Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào / tự động chèn văn bản lặp đi lặp lại / chuyển đổi liền mạch giữa các cửa sổ tài liệu / 11 công cụ chuyển đổihữu ích. Cảm ơn !
