ในบทความนี้เราอยากจะสาธิตให้คุณเห็นด้วย 4 วิธีที่ง่ายและรวดเร็วในการแปลงระหว่างข้อความแนวนอนและแนวตั้งในเอกสาร Word ของคุณ
ตอนนี้เรามีแนวโน้มที่จะจัดเรียงข้อความในแนวนอนหรือแนวตั้งในเอกสารของเรา จากนั้นมีโอกาสที่จะแปลงข้อความแนวนอนเป็นแนวตั้ง การพิมพ์ข้อมูลทั้งหมดอีกครั้งจะต้องใช้เวลานานและต้องอดทนอย่างยิ่ง
ดังนั้นเราจึงขอเสนอ 4 วิธีในการเปลี่ยนข้อความแนวนอนเป็นแนวตั้งและในทางกลับกันดังต่อไปนี้:
กรณีที่ 1: แปลงข้อความแนวตั้งเป็นข้อความแนวนอน
ก่อนอื่นมี 2 วิธีในการเปลี่ยนระหว่างข้อความแนวตั้งและแนวนอน
วิธีที่ 1: ใช้คุณสมบัติ“ แทนที่”
- ขั้นแรก ให้เลือกข้อความเป้าหมาย
- จากนั้นคลิกแท็บ“ หน้าแรก”
- จากนั้นไปที่กลุ่ม "การแก้ไข" และคลิกตัวเลือก "แทนที่" หรือคุณสามารถกด“ Ctrl + H” เพื่อเปิดกล่องโต้ตอบ“ ค้นหาและแทนที่”

- ตอนนี้วางเคอร์เซอร์ไว้ที่กล่องข้อความ“ ค้นหาอะไร” แล้วป้อน“ ^ p”
- และในกล่องข้อความ "แทนที่ด้วย" ให้พิมพ์ช่องว่าง
- จากนั้นคลิก "แทนที่ทั้งหมด"
- จะมีกล่องโต้ตอบโผล่ขึ้นมาให้คลิก“ ใช่”
วิธีที่ 2: เรียกใช้มาโคร
- ขั้นแรกให้คลิกแท็บ "นักพัฒนา"
- จากนั้นคลิก“ Visual Basic” เพื่อเรียกโปรแกรมแก้ไข VBA อีกวิธีหนึ่งคือกด“ Alt + F11”
- จากนั้นคลิกโครงการ "ปกติ"
- แล้วคลิก“ แทรก”
- เลือก“ โมดูล” เพื่อสร้างโมดูลใหม่ในโครงการปกติ
- ดับเบิลคลิกที่โมดูลถัดไปเพื่อเปิดพื้นที่แก้ไข
- วางรหัสต่อไปนี้ที่นั่น:
Sub ConvertVerticalToHorizontalList()
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = False
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- สุดท้ายคลิก“ เรียกใช้”
กรณีที่ 2: แปลงข้อความแนวนอนเป็นข้อความแนวตั้ง
วิธีที่ 1: ใช้คุณสมบัติ“ แทนที่” อีกครั้ง
- เริ่มต้นด้วยการทำซ้ำ 3 ขั้นตอนแรกในวิธีที่ 1 ของกรณีที่ 1
- อย่างไรก็ตามในครั้งนี้ในกล่องโต้ตอบ "ค้นหาและแทนที่" ให้ป้อนช่องว่างในกล่องข้อความ "ค้นหาสิ่งที่" และ "^ p" ในช่อง "แทนที่ด้วย"
- จากนั้นคลิก "แทนที่ทั้งหมด"
วิธีที่ 2: เรียกใช้มาโคร
- ในทำนองเดียวกันให้ทำตาม 6 ขั้นตอนแรกในวิธีที่ 2 ของกรณีที่ 1
- และคราวนี้ให้วางรหัสการร้องแทน:
Sub ConvertHorizontalToVerticalList()
With Selection.Find
.Text = " "
.Replacement.Text = "^p"
.Forward = False
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- อย่าลืมคลิก“ Run”
ดึง L ของคุณost File
เนื่องจากเราต้องจัดการกับอุปกรณ์ดิจิทัลตลอดเวลาในการทำงานในปัจจุบันเราจึงต้องเผชิญกับความเสี่ยงที่จะสูญเสียข้อมูลสำคัญ เพื่อป้องกันไม่ให้การสำรองข้อมูลเป็นวิธีแก้ปัญหาที่ยอดเยี่ยม อย่างไรก็ตามการสำรองข้อมูลจำเป็นต้องมีความคงทนในแต่ละวัน เมื่อเวลาผ่านไปความละเอียดในการสำรองไฟล์ของคุณอาจเลือนหายไปในพื้นหลังของชีวิตประจำวัน และไม่มีอะไรเป็นกระสุนเงินแม้แต่การสำรองข้อมูล ดังนั้นคุณจะต้องมีไฟล์ เครื่องมือกู้คืนเอกสาร Word ที่เสียหาย.
บทนำผู้เขียน:
Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ เครื่องมือซ่อมแซม xlsx ที่เสียหาย และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.






