Trong bài viết này, chúng tôi xin giới thiệu với bạn 2 phương pháp để căn giữa tất cả các hình ảnh và hộp văn bản trong tài liệu Word của bạn.
Hình ảnh và hình dạng, chẳng hạn như hộp văn bản, đóng vai trò cực kỳ quan trọng trong việc tạo ra một tài liệu tuyệt vời. Với số lượng hình ảnh và hình dạng được chèn ngày càng tăng, nhu cầu tích hợp định dạng của chúng, chẳng hạn như căn giữa chúngtarts lên bề mặt.
Điều bạn nên biết là tất cả các ảnh được chèn vào tài liệu được đặt ở bố cục “Cùng dòng với văn bản”, trong khi các hộp văn bản là các hình dạng dòng chảy. Bạn có thể thay đổi bố cục ảnh theo yêu cầu, nhưng để căn giữa chúng, bạn sẽ phải xem xét việc ngắt dòng văn bản. Bởi vì định dạng văn bản có thể dễ dàng bị giả mạo, để lại cho bạn một bố cục mà bạn không thích.
Do đó, chúng tôi sẽ tập trung vào 2 cách để căn giữa hình ảnh và hộp văn bản “Cùng dòng với văn bản”.
Phương pháp 1: Căn giữa một hình ảnh hoặc hộp văn bản theo cách thủ công
Để căn giữa ảnh “Cùng dòng với văn bản”, hãy làm theo các bước sau:
- Đầu tiên, bấm vào hình ảnh để chọn nó.
- Thứ hai, nhấp vào “Trung tâm” trong nhóm “Đoạn văn” trong tab “Trang chủ”. Hoặc bạn có thể sử dụng phím tắt “Ctrl + E” để thay thế.
Sau đó, để căn giữa một hộp văn bản, hãy thực hiện theo các hướng dẫn sau:
- Tương tự, nhấp vào hộp văn bản để chọn nó.
- Sau đó nhấp vào tab "Định dạng" trong "Công cụ vẽ".
- Tiếp theo, nhấp vào “Căn chỉnh” trong nhóm “Sắp xếp”.
- Và chọn “Align Center” trên menu thả xuống của nó.
Phương pháp 2: Tự động căn giữa nhiều ảnh hoặc hộp văn bản
Most chúng tôi sẽ ủng hộ một quy trình tự động để tiết kiệm công sức. Của bạn đây.
- Trước hết, nhấn “Alt + F11” để mở trình chỉnh sửa VBA.
- Tiếp theo nhấp vào dự án "Bình thường".
- Nhấp vào tab “Chèn” và chọn “Mô-đun”.
- Sau đó nhấp đúp vào mô-đun để hiển thị không gian chỉnh sửa ở bên phải.
- Bên cạnh hình trung tâm, bạn dán đoạn mã sau vào đó:
Sub CenterInLinePictures()
Dim objInLineShape As InlineShape
Dim objDoc As Document
Set objDoc = ActiveDocument
For Each objInLineShape In objDoc.InlineShapes
objInLineShape.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next objInLineShape
End Sub
Để căn giữa tất cả các hộp văn bản, bạn cần macro dưới đây:
Sub CenterTextBoxes()
Dim objDoc As Document
Dim objTextBox As Shape
Set objDoc = ActiveDocument
For Each objTextBox In objDoc.Shapes
If objTextBox.Type = msoTextBox Then
objTextBox.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
objTextBox.Left = wdShapeCenter
End If
Next objTextBox
End Sub
Để căn giữa cả hình ảnh và hộp văn bản, bạn sẽ phải sử dụng cái này:
Sub CenterInLinePicturesAndTextBoxes()
Dim objInLineShape As InlineShape
Dim objShape As Shape
Dim objDoc As Document
Set objDoc = ActiveDocument
For Each objInLineShape In objDoc.InlineShapes
objInLineShape.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next objInLineShape
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
objShape.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
objShape.Left = wdShapeCenter
End If
Next objShape
End Sub
- Cuối cùng, nhấp vào nút “Run” hoặc nhấn “F5”.
Các vấn đề về tài liệu địa chỉ
Dù miễn cưỡng đến đâu, chúng ta cũng phải thừa nhận rằng Word không phải là hoàn hảo. Việc phá vỡ nó có thể dẫn đến hỏng tài liệu trong khi kế thừa một docx bị hỏng có thể làm tan nát trái tim chúng ta. Để giảm bớt lo lắng như vậy, bạn nên sử dụng trước một công cụ khôi phục tài liệu. Sau đó, bạn sẽ không phải lo lắng về việc mất dữ liệu.
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 tham nhũng xlsx 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