Skip to main content

Kutools for Office — 一套工具，五種功能。完成更多工作。

如何在Word文檔中插入不含副檔名的檔案路徑和檔名？

Author Xiaoyang Last modified

通常，我們可以使用「檔名」域功能在Word文檔中插入檔名或檔案路徑和名稱，但這樣插入的檔名會包含docx或doc的副檔名。該如何插入不含副檔名的檔名或檔案路徑和名稱呢？

使用VBA代碼插入不含副檔名的檔案路徑和名稱或檔名

推薦的 Word 生產力工具

Kutools for Word：整合 AI 🤖，超過 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 -透過超過 100 項卓越功能，提升您的 Word 使用體驗！

🤖 Kutools AI Features：AI Assistant／Real-Time Assistant／Super Polish（保留格式）／Super Translate（保留格式）／AI Redaction／AI Proofread...

📘 文件掌握：分割頁面／文檔合併／區域導出成各種格式（PDF/TXT/DOC/HTML...）／批量轉換為 PDF...

✏ 正文編輯：批量查找與替換多個文件／批量調整所有圖片大小／翻轉表格的行與列／表格轉文本...

🧹 輕鬆清理：快速清除多餘空格／分節符／文字框／超連結／更多清除工具請前往刪除工具組...

➕ 創意插入：插入千位分隔符／複選框／選項按鈕／二維碼／條形碼／批量插入圖片／還有更多精彩功能在插入工具組...

🔍 精確選擇：精確定位特定頁面／表格／形狀／標題段落／使用更多 選擇 功能提升導航效率...

⭐ 亮點增強：導航至任何區域／自動插入重複文字／切換文檔窗口／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

📦 五大工具一次全擁有 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 即刻省時提高工作效率

最佳辦公效率工具

Kutools for Word - 100+ 款 Word 工具

免費下載 立即購買 深入瞭解 Kutools