2 Cara Pintar untuk Menamakan Semula Dokumen Anda dalam Word

Penyelesaian Perkataan 28 September 2025

Dalam catatan ini, kami akan memberi tumpuan kepada membentangkan anda 2 cara pintar untuk menamakan semula dokumen anda dalam Word dengan cepat.

Sekali-sekala, semasa menyusun Word, kami akan terus menukar nama fail. Namun setiap kali, kita mesti menutup dokumen tersebut sebelum dapat menamakannya semula. Ini sama sekali tidak sesuai. Secara lalai, kami tidak dapat menamakan semula fail yang terbuka. Tetapi dengan bantuan makro, ia boleh dilakukan.

Berikut adalah 2 makro yang dapat mengatasi masalah tersebut.

Kaedah 1: Namakan semula Dokumen dalam Word

Pertama sekali, tekan tab "Pembangun" kemudian "Visual Basic" untuk membuka editor Word VBA.
Klik seterusnya projek "Normal".
Kemudian klik "Insert" dan pilih "Module".
Klik dua kali pada modul baru untuk membuka kawasan pengekodan dan tampal kod berikut di sana:

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 fail asal.

Kaedah 2: Namakan semula Dokumen dan Lampirkan Maklumat Tarikh

Dalam banyak kes, dokumen akan diganti namanya dengan tarikh penyemakan dibuat. Dalam keadaan seperti itu, bahagian utama nama fail tetap sama hanya dengan rentetan tarikh berikut. Contohnya, berikut adalah dokumen tanpa rentetan tarikh.

Untuk menambahkannya, kita boleh 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 boleh mengikuti langkah tepat dalam kaedah 1 untuk memasang dan menjalankan makro di atas. Ia akan berfungsi dengan indah. Anda akan melihat rentetan tarikh semasa mengikuti nama asalnya, seperti di bawah:

Penyelesaian kepada Rasuah Dokumen Word

Kita tidak dapat mencegah kerosakan dokumen daripada berlaku dengan kaedah sekali untuk semua. Apa yang boleh kita lakukan ialah membuat sandaran dan mengelakkan ralat pengguna sebaik mungkin. Salah satu perkara yang paling penting ialah membiasakan diri dengan apa yang perlu dilakukan selepas dokumen rosak. Jawapan yang betul adalah untuk mendapatkan pemulihan doc alat secepat mungkin.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Kerosakan Excel dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com