Word_VBA 拡張子手前までのファイル名の取得

質問

こんにちは。VBA全般初心者です。Wordに対していくつかの処理後、元ファイルに日付（年月）をつけて別保存というマクロを作ろうとしています。現在下記で作成中ですが、これだと元ファイルの.docxもファイル名として認識されており、ABC.docx → ABC.docx.2023_05.docxと保存されます。
ABC2023_05.docx　にしたいです。

Sub ファイル名取得して保存()

Dim タイプ As Variant
Dim 区切り As String
Dim ドット位置 As Integer
Dim 日付 As String
Dim ファイル名 As String
Dim タイトル As String

'拡張子を定義
タイプ = ActiveDocument.name
区切り = "."
ドット位置 = Len(タイプ) - (InStrRev(タイプ, 区切り))
タイプ = Right(タイプ, ドット位置 + 1)
日付 = Format(Date, "yyyy_mm")
タイトル = ActiveDocument

ファイル名 = Application.PathSeparator & タイトル & 日付 & タイプ
With ActiveDocument
.SaveAs FileName:=.Path & ファイル名
End With

End Sub

回答No.1

kkkkkm · ベストアンサー

> ABC2023_05.docx　にしたいです。

タイトル = ActiveDocument
で、タイトルに拡張子まで入っていますから
タイトル = Replace(ActiveDocument, タイプ, "")
として、拡張子を削除すればいかがでしょう。

お礼

ありがとうございました。明確でシンプルな回答で大変すっきりしました。