如何在Word文檔中插入不帶擴展名的文件路徑和文件名?
通常,我們可以使用“文件名”字段功能在Word文檔中插入文件名或文件路徑和名稱,但是此插入的文件名包括文件擴展名docx或doc。 如何插入不帶擴展名的文件名或文件路徑和名稱?
使用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 運行此代碼的鍵,並且文件路徑和名稱已插入到文檔中,沒有擴展名,請參見屏幕截圖:
備註:如果只想在文件中插入不帶擴展名的文件名,則應使用以下代碼:
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 轉換工具...