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:
Note: 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 Kantor Terbaik
Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!
🤖 Asisten AI Kutools: Ubah tulisan Anda dengan AI - Hasilkan Konten / Menulis Ulang Teks / Meringkas Dokumen / Menanyakan Informasi berdasarkan Dokumen, semuanya dalam Word
📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...) / Konversi Batch ke PDF / Ekspor Halaman sebagai Gambar / Cetak Banyak File sekaligus...
✏ Pengeditan Isi: Temukan dan Ganti Batch di Banyak File / Ubah Ukuran Semua Gambar / Ubah Urutan Baris dan Kolom Tabel / Ubah Tabel menjadi Teks...
🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra / Bagian Istirahat / Semua Header / Teks box / Hyperlink / Untuk alat penghapus lainnya, kunjungi Hapus grup...
➕ Sisipan Kreatif: Memasukkan Seribu Pemisah / Kotak Centang / Tombol Radio / Kode QR / barcode / Tabel Garis Diagonal / Keterangan Persamaan / Keterangan gambar / Keterangan Tabel / Banyak Gambar / Temukan lebih lanjut di Sisipkan grup...
🔍 Pilihan Presisi: Tepat Halaman Tertentu / Meja / bentuk / Paragraf Judul / Tingkatkan navigasi dengan lebih Pilih fitur...
⭐ Peningkatan Bintang: Navigasi ke Lokasi Mana Pun / Sisipkan Otomatis Teks Berulang / Beralih Antar Jendela Dokumen / 11 Alat Konversi...