Bagaimana cara memasukkan jalur file dan nama file tanpa ekstensi di dokumen Word?

Biasanya, kita dapat memasukkan nama file atau jalur dan nama file dalam dokumen Word dengan menggunakan fungsi kolom Nama file, tetapi, nama file yang disisipkan ini termasuk ekstensi file docx atau doc. Bagaimana Anda bisa memasukkan nama file atau jalur dan nama file tanpa ekstensi?

Masukkan jalur file dan nama atau nama file tanpa ekstensi dengan menggunakan kode VBA

Masukkan jalur file dan nama atau nama file tanpa ekstensi dengan menggunakan kode VBA

Untuk memasukkan nama file tanpa ekstensi di dokumen Word, harap terapkan kode VBA berikut:

1. Letakkan kursor di tempat Anda ingin memasukkan jalur file dan nama tanpa ekstensi.

2. Lalu, tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Dan kemudian, klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke dalam modul kosong yang dibuka.

Kode VBA: Masukkan jalur file dan nama tanpa ekstensi:

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. Lalu tekan F5 kunci untuk menjalankan kode ini dan jalur file dan nama telah dimasukkan ke dalam dokumen tanpa ekstensi, lihat tangkapan layar:

Catatan: Jika Anda hanya ingin memasukkan nama file tanpa ekstensi ke dalam dokumen, Anda harus menerapkan kode ini:

Kode VBA: Masukkan nama file saja tanpa ekstensi:

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

Alat Produktivitas Kata yang Direkomendasikan