ในบทความของวันนี้เราต้องการแสดง 2 วิธีในการเปลี่ยนข้อความเป็นชุดเป็นตัวยกหรือตัวห้อยในเอกสาร Word ของคุณ
บางครั้ง เราอาจจำเป็นต้องเปลี่ยนข้อความบางส่วนในเอกสาร Word ให้เป็นตัวยกหรือตัวห้อย โดยเฉพาะอย่างยิ่งเมื่อมีข้อความเดียวกันปรากฏอยู่หลายครั้ง ในกรณีเช่นนี้ การแทนที่แบบกลุ่มจึงเป็นสิ่งที่เราต้องการมากที่สุด ด้วยเหตุนี้ เราจึงขอเสนอ 2 วิธีที่รวดเร็วเพื่อช่วยให้คุณทำงานนี้สำเร็จ
วิธีที่ 1: ใช้คุณสมบัติ“ ค้นหาและแทนที่”
ในเนื้อหาต่อไปเราจะใช้ตัวอย่าง“DataNumen Word Repair v2.5” เป็นการสาธิตของเรา เป้าหมายของเราคือแทนที่“ v2.5” เป็นตัวห้อย
- อันดับแรก ให้คลิกแท็บ “หน้าแรก”
- จากนั้นคลิก“ แทนที่” เพื่อเปิดกล่องโต้ตอบ“ ค้นหาและแทนที่”
- ขั้นแรกให้ป้อน“ v2.5” ในกล่องข้อความ“ ค้นหาอะไร” อย่าลืมเว้นวรรคก่อนข้อความ
- จากนั้นป้อน“ v2.5” ในกล่องข้อความ“ แทนที่ด้วย” ไม่มีช่องว่างก่อนข้อความในครั้งนี้
- จากนั้นคลิกปุ่ม "เพิ่มเติม" เพื่อขยายตัวเลือกเพิ่มเติม
- ตอนนี้คลิก "รูปแบบ" และเลือก "แบบอักษร"
- ในกล่องโต้ตอบ "ค้นหาแบบอักษร" ให้เลือกช่อง "ตัวยก" หรือ "ตัวห้อย"
- จากนั้นคลิก“ ตกลง”
- สุดท้ายคลิกปุ่ม "แทนที่ทั้งหมด"
คุณสามารถตรวจสอบเอฟเฟกต์ได้ที่นี่:
วิธีที่ 2: Batch Replace โดยการเรียกใช้ Word Macro
- ในการเริ่มต้นให้กด“ Alt + F11” เพื่อทริกเกอร์ตัวแก้ไข VBA
- จากนั้นคลิกโครงการ "ปกติ" และแท็บ "แทรก" ถัดไป
- เลือก "โมดูล" ในเมนูแบบเลื่อนลง
- ดับเบิลคลิกถัดไปที่โมดูลใหม่เพื่อเปิดพื้นที่การเข้ารหัส
- วางมาโครต่อไปนี้ที่นั่น:
Sub ReplaceTheTextAsSubscript()
Dim strSelectText As String
Dim strReplaceText As String
strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = True
End With
With Selection.Find
.Text = strSelectText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- คลิก“ เรียกใช้”
- ขั้นแรกคือช่อง "เลือกข้อความ" ป้อนข้อความค้นหาของคุณแล้วคลิก“ ตกลง” ในกรณีนี้ให้พิมพ์“ v2.5”
- จากนั้นจะมีช่อง "แทนที่ข้อความ" ป้อนข้อความแทนที่ที่นั่นแล้วคลิก“ ตกลง” พิมพ์“ v2.5”
หากคุณต้องการเปลี่ยนข้อความเป็นตัวยกคุณสามารถใช้มาโครนี้:
Sub ReplaceTheTextAsSuperscript()
Dim strSelectText As String
Dim strReplaceText As String
strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
.Subscript = False
End With
With Selection.Find
.Text = strSelectText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
แก้ไขข้อผิดพลาดของเอกสาร
ข้อผิดพลาดเกี่ยวกับคำไม่ใช่เรื่องแปลกสำหรับพวกเราส่วนใหญ่ ข้อผิดพลาดใน Word อาจส่งผลให้เกิด... docx เสียหาย ไฟล์. ในการแก้ไขปัญหาดังกล่าวคุณต้องถือเครื่องมือที่มีคุณสมบัติและเป็นมืออาชีพในการกู้คืนเอกสารที่เสียหาย
บทนำผู้เขียน:
Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ xlsx ที่เสียหาย และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.