2 วิธีอันชาญฉลาดในการเปลี่ยนชื่อเอกสารของคุณใน Word

โซลูชั่น Word September 28, 2025

ในบทความนี้ เราจะนำเสนอ 2 วิธีฉลาดๆ ในการเปลี่ยนชื่อเอกสารใน Word อย่างรวดเร็ว

ในขณะที่ร่างใน Word เราจะเปลี่ยนชื่อไฟล์อย่างต่อเนื่อง แต่ทุกครั้งเราต้องปิดเอกสารก่อนจึงจะสามารถเปลี่ยนชื่อได้ นี่ไม่สะดวกเลย ตามค่าเริ่มต้น เราไม่สามารถเปลี่ยนชื่อไฟล์ที่เปิดอยู่ได้ แต่ด้วยความช่วยเหลือของมาโครก็เป็นไปได้

ต่อไปนี้เป็นมาโคร 2 ตัวที่สามารถแก้ไขปัญหาดังกล่าวได้

วิธีที่ 1: เปลี่ยนชื่อเอกสารใน Word

อันดับแรก ให้กดแท็บ “นักพัฒนา” จากนั้นเลือก “Visual Basic” เพื่อเปิดโปรแกรมแก้ไข VBA ใน Word
จากนั้นคลิกโครงการ "ปกติ"
จากนั้นคลิก "แทรก" แล้วเลือก "โมดูล"
ดับเบิลคลิกที่โมดูลใหม่เพื่อเปิดพื้นที่การเข้ารหัสและวางรหัสดังต่อไปนี้:

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

ตอนนี้คลิก "เรียกใช้" หรือกด "F5"
จะมีช่องใส่ข้อมูลโผล่ขึ้นมา เพียงป้อนชื่อใหม่ในกล่องข้อความแล้วคลิก "ตกลง"

ตอนนี้เอกสารจะถูกเก็บไว้ในที่เดียวกันกับชื่อใหม่ และการเรียกใช้มาโครจะเป็นการลบไฟล์ต้นฉบับ

วิธีที่ 2: เปลี่ยนชื่อเอกสารและผนวกข้อมูลวันที่

ในหลายกรณี เอกสารจะถูกเปลี่ยนชื่อพร้อมกับวันที่ที่มีการแก้ไข ภายใต้สถานการณ์ดังกล่าว ส่วนหลักของชื่อไฟล์จะยังคงเหมือนเดิมโดยมีสตริงวันที่ตามหลังเท่านั้น ตัวอย่างเช่น นี่คือเอกสารที่ไม่มีสตริงวันที่

ในการเพิ่ม เราสามารถเรียกใช้มาโครนี้:

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

คุณสามารถทำตามขั้นตอนที่ถูกต้องในวิธีที่ 1 เพื่อติดตั้งและเรียกใช้แมโครด้านบน มันจะทำงานได้อย่างสวยงาม คุณจะเห็นสตริงวันที่ปัจจุบันตามหลังชื่อเดิม เช่น ต่อไปนี้:

การแก้ปัญหาการทุจริตเอกสาร Word

เราไม่สามารถป้องกันความเสียหายของเอกสารด้วยวิธีเดียวได้ สิ่งที่เราทำได้คือการสำรองข้อมูลและหลีกเลี่ยงข้อผิดพลาดของผู้ใช้ให้มากที่สุดเท่าที่จะทำได้ ประเด็นสำคัญอย่างหนึ่งคือการทำความคุ้นเคยกับสิ่งที่ต้องทำหลังจากเอกสารเสียหาย คำตอบที่ถูกต้องคือการขอรับ... การกู้คืนเอกสาร เครื่องมือโดยเร็วที่สุด

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ความเสียหายของ Excel และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.