Trong bài viết này, chúng tôi muốn giới thiệu cho bạn 4 cách nhanh chóng và dễ dàng để chuyển đổi giữa các văn bản ngang và dọc trong tài liệu Word của bạn.
Thỉnh thoảng, chúng ta có thể sắp xếp các văn bản theo chiều ngang hoặc chiều dọc trong tài liệu của mình. Sau đó, có những cơ hội để chuyển đổi văn bản ngang thành văn bản dọc. Sẽ rất tốn thời gian và giết chết sự kiên nhẫn để gõ lại tất cả thông tin.
Do đó, chúng tôi muốn cung cấp cho bạn 4 cách để thay đổi văn bản ngang thành văn bản dọc và ngược lại, chẳng hạn như dưới đây:
Trường hợp 1: Chuyển văn bản dọc thành văn bản ngang
Trước hết, có 2 phương pháp để thay đổi giữa văn bản dọc và ngang.
Cách 1: Sử dụng tính năng “Replace”
- Trước tiên, hãy chọn văn bản mục tiêu.
- Sau đó nhấp vào tab "Trang chủ".
- Tiếp theo, chuyển đến nhóm “Chỉnh sửa” và nhấp vào tùy chọn “Thay thế”. Hoặc bạn có thể nhấn “Ctrl + H” để mở hộp thoại “Tìm và thay thế”.
- Bây giờ đặt con trỏ vào hộp văn bản “Find what”, nhập “^p”.
- Và trong hộp văn bản “Thay thế bằng”, hãy nhập một khoảng trắng.
- Tiếp theo, chỉ cần nhấp vào “Thay thế tất cả”.
- Sẽ có một hộp thoại bật lên, chỉ cần nhấp vào “Có”.
Phương pháp 2: Chạy Macro
- Đầu tiên, nhấp vào tab "Nhà phát triển".
- Sau đó nhấp vào “Visual Basic” để kích hoạt trình chỉnh sửa VBA. Cách khác là nhấn “Alt + F11”.
- Tiếp theo nhấp vào dự án "Bình thường".
- Và nhấp vào “Chèn”.
- Chọn “Mô-đun” để tạo một mô-đun mới trong dự án bình thường.
- Tiếp theo nhấp đúp chuột vào mô-đun để mở không gian chỉnh sửa.
- Dán các mã sau vào đó:
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
- Cuối cùng, nhấp vào "Chạy".
Trường hợp 2: Chuyển văn bản ngang thành văn bản dọc
Cách 1: Sử dụng lại tính năng “Replace”
- Trước tiên, hãy lặp lại 3 bước đầu tiên trong phương pháp 1 của trường hợp 1.
- Tuy nhiên, lần này, trong hộp thoại “Tìm và thay thế”, hãy nhập khoảng trắng vào hộp văn bản “Tìm gì” và “^p” trong hộp “Thay thế bằng”.
- Sau đó nhấp vào "Thay thế tất cả".
Phương pháp 2: Chạy Macro
- Tương tự, thực hiện theo 6 bước đầu tiên ở cách 2 của trường hợp 1.
- Và lần này dán các mã dưới đây để thay thế:
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
- Hãy nhớ nhấp vào "Chạy".
Lấy L của bạnost File
Vì chúng ta luôn phải xử lý các thiết bị kỹ thuật số trong công việc ngày nay, nên chúng ta cũng phải đối mặt với nguy cơ mất thông tin quan trọng. Để ngăn chặn nó, sao lưu là một giải pháp tuyệt vời. Tuy nhiên, sao lưu đòi hỏi một sự kiên trì hàng ngày. Thời gian trôi qua, quyết tâm tạo bản sao lưu các tệp của bạn có thể trở nên mờ nhạt trong cuộc sống hàng ngày. Và không có gì là viên đạn bạc, kể cả các bản sao lưu. Vì vậy, bạn sẽ cần một công cụ khôi phục tài liệu Word bị hỏng.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm công cụ sửa chữa xlsx bị hỏng và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm