2 Kaedah Memusatkan Semua Gambar dan Kotak Teks dalam Dokumen Word Anda

Dalam artikel ini, kami ingin memperkenalkan anda dengan 2 kaedah untuk memusatkan semua gambar dan kotak teks dalam dokumen Word anda.

Gambar dan bentuk, seperti kotak teks, memainkan peranan penting dalam menghasilkan dokumen yang menarik. Dengan peningkatan bilangan imej dan bentuk yang disisipkan, permintaan untuk mengintegrasikan pemformatannya, katakan untuk meletakkannya di tengah mula timbul.

Yang harus anda ketahui adalah bahwa semua gambar yang dimasukkan ke dalam dokumen diatur dalam tata letak "Sejajar dengan teks", sementara kotak teks berbentuk mengalir. Anda mungkin mengubah susun atur gambar seperti yang diperlukan, tetapi untuk memusatkannya, anda harus mempertimbangkan pembungkus teks. Kerana pemformatan teks dapat diubah dengan mudah, meninggalkan tata letak yang tidak anda sukai.

Oleh itu, kami akan memberi tumpuan kepada 2 cara untuk memusatkan gambar dan kotak teks "Sejajar dengan teks".

Kaedah 1: Pusatkan Satu Gambar atau Kotak Teks Secara Manual

Untuk memusatkan gambar "Sejajar dengan teks", ikuti langkah berikut:

1. Pertama, klik pada gambar untuk memilihnya.
2. Kedua, klik "Pusat" dalam kumpulan "Perenggan" di bawah tab "Rumah". Atau anda boleh menggunakan jalan pintas "Ctrl + E" sebagai gantinya.

Kemudian untuk memusatkan kotak teks, ikuti arahan berikut:

1. Begitu juga, klik pada kotak teks untuk memilihnya.
2. Kemudian klik tab "Format" di bawah "Alat Menggambar".
3. Seterusnya klik "Sejajarkan" dalam kumpulan "Susun".
4. Dan pilih "Align Center" pada menu lungsur.

Kaedah 2: Batch Center Multiple Gambar atau Kotak Teks Secara automatik

Kebanyakan daripada kita lebih suka proses automatik untuk menjimatkan usaha. Nah, ini dia.

1. Mula-mula, tekan "Alt + F11" untuk membuka editor VBA.
2. Klik seterusnya projek "Normal".
3. Klik tab "Masukkan" dan pilih "Modul".
4. Kemudian klik dua kali pada modul untuk mengeluarkan ruang penyuntingan di sebelah kanan.
5. Di sebelah gambar tengah, anda menempelkan kod berikut di sana:

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

Untuk memusatkan semua kotak teks, anda memerlukan makro berikut:

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

Untuk memusatkan kedua-dua gambar dan kotak teks, anda perlu menggunakannya:

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

6. Terakhir, klik butang "Jalankan" atau tekan "F5".

Mengatasi Masalah Dokumen

Tidak peduli betapa enggannya kita harus mengakui bahawa Word tidak mudah tertipu. Pecahannya boleh menyebabkan kerosakan dokumen sambil mewarisi a docx rosak boleh menyayat hati kita. Untuk mengurangkan kegelisahan seperti itu, disarankan untuk mendapatkan alat pemulihan dokumen terlebih dahulu. Maka anda tidak perlu risau tentang kehilangan data.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk rasuah xlsx dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com