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キーを押してこのコードを実行すると、ファイルのパスと名前が拡張子なしで文書に挿入されます（下記スクリーンショット参照）。

注：文書に拡張子を除いたファイル名のみを挿入したい場合は、次のコードをご利用ください。

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

---