跳到主要內容

 如何在Word文檔中插入不帶擴展名的文件路徑和文件名?

通常,我們可以使用“文件名”字段功能在Word文檔中插入文件名或文件路徑和名稱,但是此插入的文件名包括文件擴展名docx或doc。 如何插入不帶擴展名的文件名或文件路徑和名稱?

使用VBA代碼插入文件路徑和名稱或文件名,無需擴展名


使用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 運行此代碼的鍵,並且文件路徑和名稱已插入到文檔中,沒有擴展名,請參見屏幕截圖:

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 for Word - 透過 Over 提升您的文字體驗 100 顯著特點!

🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容  /  重寫文字  /  總結文件  /  查詢資料 基於文檔,全部在Word中

📘 文件掌握: 分頁  /  合併文件  /  以各種格式匯出選擇(PDF/TXT/DOC/HTML...)  /  批次轉換為PDF  /  將頁面匯出為圖像  /  一次列印多個文件...

內容編輯: 批量查找和替換 跨多個文件  /  調整所有圖片的大小  /  轉置表行和列  /  將表格轉換為文字...

🧹 輕鬆清潔: 移開 多餘的空間  /  分節符  /  所有標題  /  文本框  /  超鏈接  / 如需更多拆卸工具,請前往我們的 刪除組...

創意插入: 插入 千位分隔符  /  複選框  /  單選按鈕  /  QR Code  /  條碼  /  對角線表  /  公式標題  /  圖片說明  /  表格標題  /  多張圖片  / 發現更多 插入組...

🔍 精準選擇:精確定位 特定頁面  /    /  形狀  /  標題段落  / 增強導航功能 更多 選擇功能...

星級增強: 快速導航至任何位置  /  自動插入重複文字  /  在文檔視窗之間無縫切換  /  11 轉換工具...

???? 想嘗試這些功能嗎? Kutools for Word 提供了 60天免費試用,沒有任何限制! 🚀
 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations