Word文書に拡張子なしでファイルパスとファイル名を挿入するにはどうすればよいですか？

通常、ファイル名フィールド機能を使用して、Word文書にファイル名またはファイルのパスと名前を挿入できますが、この挿入されたファイル名には、ファイル拡張子docxまたはdocが含まれます。ファイル名またはファイルパスと名前を拡張子なしで挿入するにはどうすればよいですか？

VBAコードを使用して、拡張子なしでファイルパスと名前またはファイル名を挿入します

VBAコードを使用して、拡張子なしでファイルパスと名前またはファイル名を挿入します

Word文書に拡張子なしでファイル名を挿入するには、次のVBAコードを適用してください。

1。ファイルのパスと名前を拡張子なしで挿入する場所にカーソルを置きます。

2。次に、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

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

Note：拡張子なしのファイル名をドキュメントに挿入するだけの場合は、次のコードを適用する必要があります。

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