2 วิธีด่วนในการแบทช์ เพิ่มวงเล็บเหลี่ยมเพื่อจดบันทึกตัวเลขในเอกสาร Word ของคุณ

ในบทความวันนี้ เรายินดีที่จะแสดงวิธีการง่ายๆ 2 วิธีในการเพิ่มวงเล็บเหลี่ยมให้กับตัวเลขในหมายเหตุจำนวนมากในเอกสาร Word ของคุณ

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

วิธีที่ 1: ใช้ฟังก์ชัน "ค้นหาและแทนที่"

1. ขั้นแรก ให้คลิกแท็บ “หน้าแรก” ในเอกสารเป้าหมาย
2. จากนั้นคลิกคำสั่ง "แทนที่" ในกลุ่ม "การแก้ไข" เพื่อเปิดกล่องโต้ตอบ "ค้นหาและแทนที่"
3. ตอนนี้ หากคุณกำลังทำงานกับเชิงอรรถ ให้ป้อน “^f” ในกล่องข้อความ “ค้นหาอะไร”
4. ป้อน "[^&]" ในกล่องข้อความ "แทนที่ด้วย"
5. จากนั้นคลิก "แทนที่ทั้งหมด"
6. สิ่งถัดไปที่คุณเห็นคือหมายเลขเชิงอรรถทั้งหมดอยู่ในวงเล็บเหลี่ยม คลิก “ตกลง” เพื่อปิดกล่องข้อความ

นอกจากนี้ หากต้องการเพิ่มวงเล็บเหลี่ยมในอ้างอิงท้ายเรื่อง เพียงแทนที่ “^f” ด้วย “^e” ในกล่องข้อความ “Find what”

วิธีที่ 2: เรียกใช้ Word Macro

1. อันดับแรก ให้กดปุ่ม “Alt+F11” ใน Word เพื่อเรียกใช้ตัวแก้ไข VBA
2. จากนั้นคลิก "ปกติ" จากนั้นคลิกแท็บ "แทรก"
3. ในเมนูแบบเลื่อนลงเลือก "โมดูล"
4. จากนั้นดับเบิลคลิกที่โมดูลที่แทรกใหม่เพื่อเปิดพื้นที่แก้ไขทางด้านขวา
5. และวางมาโครด้านล่างนี้:

Sub AddBracketForFootnoteAndEndnote()
  Application.ScreenUpdating = False
 
  Dim objRange As Range
 
  With ActiveDocument

    '  add bracket for footnotes. 
    If ActiveDocument.Footnotes.Count > 0 Then
      Call UpdateFootnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdFootnotesStory Then
          Call UpdateFootnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All footnotes have been added brackets.")
    Else
      MsgBox ("There is no footnote in this document")
    End If

    '  add bracket for footnotes. 
    If ActiveDocument.Endnotes.Count > 0 Then
      Call UpdateEndnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdEndnotesStory Then
          Call UpdateEndnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All endnotes have been added brackets.")
    Else
      MsgBox ("There is no endnote in this document")
    End If
  End With
 
  Application.ScreenUpdating = True
End Sub

Sub UpdateFootnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^f"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Sub UpdateEndnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^e"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

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

นี่คือผลลัพธ์ที่เราได้รับ:

ป้องกันเอกสารสูญหาย

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

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

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