亞寵展、全球?qū)櫸锂a(chǎn)業(yè)風(fēng)向標(biāo)——亞洲寵物展覽會(huì)深度解析
405
2024-02-05
如何在Word文檔中插入不帶擴(kuò)展名的文件路徑和文件名？
如何在Word文檔中插入不帶擴(kuò)展名的文件路徑和文件名？
通常，我們可以使用“文件名”字段功能在Word文檔中插入文件名或文件路徑和名稱，但是此插入的文件名包括文件擴(kuò)展名docx或doc。 如何插入不帶擴(kuò)展名的文件名或文件路徑和名稱？
使用VBA代碼插入文件路徑和名稱或文件名，無需擴(kuò)展名
使用VBA代碼插入文件路徑和名稱或文件名，無需擴(kuò)展名要在Word文檔中插入不帶擴(kuò)展名的文件名，請(qǐng)應(yīng)用以下VBA代碼：
1。 將光標(biāo)放在要插入文件路徑和名稱（不帶擴(kuò)展名）的位置。
2。 然后，按住 ALT + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。
3。 然后，單擊 插頁 > 模塊，將以下代碼復(fù)制并粘貼到打開的空白模塊中。
VBA代碼：插入文件路徑和名稱，不帶擴(kuò)展名：
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 運(yùn)行此代碼的鍵，并且文件路徑和名稱已插入到文檔中，沒有擴(kuò)展名，請(qǐng)參見屏幕截圖：
備注：如果只想在文件中插入不帶擴(kuò)展名的文件名，則應(yīng)使用以下代碼：
VBA代碼：僅插入不帶擴(kuò)展名的文件名：
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
Copy
最佳辦公生產(chǎn)力工具
Kutools for Word - 通過 Over 提升您的文字體驗(yàn) 100 顯著特點(diǎn)！深入了解下面突出顯示的功能或 單擊此處探索 Kutools for Word 的全部功能.
?? 文檔掌握: 分頁 / 合并文件 / 以各種格式導(dǎo)出選擇（PDF/TXT/DOC/XLSX） / 批量轉(zhuǎn)換為PDF / 將頁面導(dǎo)出為圖像 / 一次打印多個(gè)文件 ...
? 內(nèi)容編輯: 批量查找和替換 跨多個(gè)文件 / 調(diào)整所有圖片的大小 / 轉(zhuǎn)置表行和列 / 將表格轉(zhuǎn)換為文字 ...
?? 輕松清潔: 掃開 多余的空間 / 分節(jié)符/ 所有標(biāo)題 / 文本框 / 超鏈接 / 如需更多刪除工具，請(qǐng)前往我們的刪除組
? 創(chuàng)意插入: 插頁 千位分隔符 / 復(fù)選框 / 單選按鈕 / 二維碼 / 條碼 / 對(duì)角線表 / 公式標(biāo)題 / 圖片說明 / 表標(biāo)題 / 多張圖片 / 在我們的插入組中發(fā)現(xiàn)更多信息
?? 精準(zhǔn)選擇: 精確定位特定頁面 / 表 / 形狀 / 標(biāo)題段落 / 使用我們的選擇組輕松導(dǎo)航
? 星級(jí)增強(qiáng): 快速導(dǎo)航至任何位置 / 自動(dòng)插入重復(fù)文本 / 在文檔窗口之間無縫切換 / 11 轉(zhuǎn)換工具 ...
使用 Kutools 轉(zhuǎn)換您的 Word 任務(wù)。 ?? 立即下載并試用 30 天 ??。
了解更多 免費(fèi)下載 購買
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
