2 Cara Cerdas untuk Mengganti Nama Dokumen Anda di Word

Solusi Kata September 28, 2025

Dalam postingan ini, kami akan fokus menyajikan 2 cara cerdas untuk mengganti nama dokumen Anda di Word dengan cepat.

Sesekali, saat membuat draf di Word, kami akan terus mengubah nama file. Namun setiap kali, kami harus menutup dokumen sebelum dapat mengganti namanya. Ini sama sekali tidak nyaman. Secara default, kami tidak dapat mengganti nama file yang terbuka. Tetapi dengan bantuan makro, itu bisa jadi mungkin.

Berikut adalah 2 makro yang dapat mengatasi masalah tersebut.

Metode 1: Ubah nama dokumen di Word

Pertama dan terpenting, tekan tab “Pengembang” lalu “Visual Basic” untuk membuka editor VBA Word.
Selanjutnya klik proyek "Normal".
Kemudian klik "Sisipkan" dan pilih "Modul".
Klik dua kali pada modul baru untuk membuka area pengkodean dan tempel kode di bawah ini:

Sub RenameDocument()
  Dim strDocName As String, strDocPath As String
  Dim strNewDocName As String
  Dim KillFile As String

  '  Get the current doc name.
  strDocName = ActiveDocument.FullName
  strDocPath = ActiveDocument.Path
  If strDocPath = "" Then
    MsgBox ("This document hasn't been saved. You can't rename it.")
    Exit Sub
  End If
 
  '  Pop up an input box for new name.
  strNewDocName = InputBox("Enter a new name for this document:", "Rename document", strDocName)

  '  Save the doc with newly entered name.
  ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strNewDocName

  '  Delete the doc with original name.
  KillFile = strDocName
  Kill KillFile
End Sub

Sekarang klik "Run" atau tekan "F5".
Akan ada kotak input yang muncul. Cukup masukkan nama baru di kotak teks dan klik "OK".

Sekarang dokumen tersebut akan disimpan di tempat yang sama dengan nama baru. Dan menjalankan makro akan menghapus file asli.

Metode 2: Ubah Nama Dokumen dan Tambahkan Informasi Tanggal

Dalam banyak kasus, dokumen akan diganti namanya dengan tanggal revisi dilakukan. Dalam keadaan seperti itu, bagian utama dari nama file tetap sama hanya dengan mengikuti string tanggal. Misalnya, berikut adalah dokumen tanpa string tanggal.

Untuk menambahkannya, kita dapat menjalankan makro ini:

Sub RenameDocumentWithDate()
  Dim strDocName, strDocNameNoExten, strDocFullName, strDocPath As String
  Dim strNewDocName As String
  Dim KillFile As String
  Dim strDate As String

  '  Get the current doc name.
  strDocName = ActiveDocument.Name
  strDocFullName = ActiveDocument.FullName
  strDocNameNoExten = Left(strDocName.Name, Len(strDocName.Name) - 5)
  strDocPath = ActiveDocument.Path
  strDate = Format(Date, "mm - dd - yyyy")
 
  If strDocPath = "" Then
    MsgBox ("This document hasn't been saved. You can't rename it.")
    Exit Sub
  End If
 
  '  Save the doc in new name with date.
  ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strDocNameNoExten & " " & strDate
  KillFile = strDocFullName
  Kill KillFile
End Sub

Anda dapat mengikuti langkah-langkah yang tepat dalam metode 1 untuk menginstal dan menjalankan makro di atas. Ini akan bekerja dengan indah. Anda akan melihat string tanggal saat ini mengikuti setelah nama aslinya, seperti di bawah:

Solusi untuk Korupsi Dokumen Word

Kita tidak bisa mencegah kerusakan dokumen dengan metode sekali untuk selamanya. Yang bisa kita lakukan adalah mengambil cadangan dan menghindari kesalahan pengguna sebisa mungkin. Salah satu poin terpenting adalah memahami apa yang harus dilakukan setelah dokumen rusak. Jawaban yang tepat adalah mendapatkan salinan cadangan. pemulihan doc alat sesegera mungkin.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Kerusakan Excel ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com