Catatan: Bahasa lain di situs web diterjemahkan oleh Google. Kembali ke Bahasa Inggris
Masuk  \/ 
x
or
x
Daftar  \/ 
x

or

 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:

doc masukkan nama file tanpa ekstensi 1

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

 

Kutools For Word - Lebih dari 100 Fitur Canggih Untuk Word, Hemat 50% Waktu Anda

  • Pengoperasian yang rumit dan berulang dapat dilakukan satu kali pemrosesan dalam hitungan detik.
  • Sisipkan beberapa gambar di seluruh folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan gabungkan beberapa file Word di seluruh folder menjadi satu dengan urutan yang Anda inginkan.
  • Pisahkan dokumen saat ini menjadi dokumen terpisah sesuai dengan judul, hentian bagian, atau kriteria lainnya.
  • Konversikan file antara Doc dan Docx, Docx dan PDF, kumpulan alat untuk konversi dan pemilihan umum, dan seterusnya ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.