MS Word: Căn giữa tất cả các ảnh trong word

Vào một ngày bạn đang soạn tài liệu, tài liệu word của bạn có chữ xen lẫn với ảnh. Bạn cần canh giữa (Center) các ảnh, trong khi các chữ (text) thì canh đều (Justify).

Để thực hiện điều này hãy làm theo hướng dẫn sau:

Đầu tiên bạn hãy ấn Ctrl+A và ấn Ctrl+J để canh đều cả chữ và ảnh.

Sau đó bạn ấn Alt+F11 để vào cửa sổ soạn thảo VBA. Thực hiện chọn Insert - Module sau đó nhập vào đoạn code sau:

Sub centerPictures()
  Dim shpIn As InlineShape, shp As Shape
  For Each shpIn In ActiveDocument.InlineShapes
    shpIn.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next shpIn
  For Each shp In ActiveDocument.Shapes
    shp.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next shp
End Sub

Sau đó ấn F5 hoặc chọn Run Sub/UserForm. Thì tất cả các ảnh trong tài liệu của bạn sẽ được canh giữa.

Chúc các bạn thành công.