Loncat ke daftar isi utama

 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

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!

Selami fitur-fitur yang disorot di bawah atau klik di sini untuk menjelajahi kekuatan penuh Kutools for Word.

πŸ“˜ Penguasaan Dokumen: Halaman Terpisah  /  Gabungkan Dokumen  /  Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/XLSX)  /  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 MudahSapu Spasi Ekstra  /  Bagian Istirahat  /   Semua Header  /  Teks box  /  Hyperlink  /  Untuk alat penghapus lainnya, kunjungi Grup Hapus kami

βž• Sisipan Kreatif: Menyisipkan Seribu Pemisah  /  Kotak Centang  /  Tombol Radio  /  Kode QR  /  barcode  /  Tabel Garis Diagonal  /  Keterangan Persamaan  /  Keterangan gambar  /  Keterangan Tabel  /  Banyak Gambar  /  Temukan lebih lanjut di Grup Sisipkan kami

πŸ” Pilihan Presisi: Tentukan halaman tertentu  /  tabel  /  bentuk  /  paragraf judul  /  Navigasi dengan mudah menggunakan Grup Pilihan kami

⭐ Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun  /  menyisipkan teks berulang secara otomatis  /  beralih antar jendela dokumen dengan mulus  /  11 Alat Konversi ...

Ubah tugas Word Anda dengan Kutools. πŸ‘‰ Unduh dengan uji coba 30 hari Sekarang πŸš€.

 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations