3 Cara Batch Mengubah Format Teks di Semua Kotak Teks di Dokumen Word

Pada artikel di bawah ini, kami ingin menunjukkan kepada Anda 3 cara untuk mengubah format teks secara serentak di semua kotak teks di dokumen Word Anda.

Kotak teks sering terlihat di dokumen keluar. Saat memformat teks dokumen, kita tidak bisa melupakannya di kotak teks. Namun, kotak teks yang tersebar di dokumen dapat membuat Anda sulit untuk memilih semua teks di dalamnya sekali dan untuk selamanya. Oleh karena itu, di luar tujuan pemformatan, sangat penting untuk mempelajari beberapa trik untuk melakukan pemrosesan batch.

Metode 1: Memanfaatkan Fitur "Pencarian Tingkat Lanjut"

1. Pertama-tama, klik tab "Beranda" dan klik tombol panah di belakang perintah "Temukan" di grup "Pengeditan".
2. Selanjutnya pada daftar drop-down, pilih "Advanced Find" untuk membuka kotak dialog "Find and Replace".
3. Letakkan kursor di kotak teks "Temukan apa" dan masukkan "^?" sana.
4. Kemudian klik tombol "Temukan" dan pilih "Kotak Teks di Dokumen Utama".
5. Sekarang Anda dapat melihat semua teks di kotak teks sudah dipilih. Jika Anda mungkin lupa string untuk dimasukkan ke kotak "Temukan apa", Anda dapat mengklik tombol "Lainnya" untuk membuka lebih banyak opsi di kotak dan kemudian klik "Khusus". Selanjutnya pilih "Karakter Apa Pun".
6. Dengan semua teks yang dipilih, format saja sesuai kebutuhan.

Metode 2: Ubah Batch Format Teks di Semua Kotak Teks dalam Satu Dokumen

1. Untuk memulai, tekan “Alt+F11” di Word untuk mengaktifkan editor VBA.
2. Selanjutnya klik "Normal".
3. Kemudian klik tab "Sisipkan" dan pilih "Modul".
4. Dan klik dua kali modul baru dan tempelkan makro di bawah ini:

Sub FormatTextsInTextBoxes()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objShape In .Shapes
      If objShape.Type = msoTextBox Then
        objShape.TextFrame.TextRange.Font.Name = "Arial"
        objShape.TextFrame.TextRange.Font.Size = "16"
      End If
    Next
  End With
End Sub

5. Terakhir, klik "Jalankan".

Makro ini menyetel semua teks kotak teks dalam font "Arial" pada 16 pt. Anda dapat mengubah pengaturan ini sesuai kebutuhan.

Metode 3: Ubah Batch Format Teks di Semua Kotak Teks di Beberapa Dokumen

Sekarang kita berbicara tentang pemrosesan batch, kita tidak dapat menghilangkan kebutuhan untuk melakukannya di antara banyak file.

1. Pertama, susun semua dokumen target di bawah direktori yang sama.
2. Selanjutnya instal dan jalankan makro seperti yang Anda lakukan di metode 2. Kali ini ganti kode tersebut dengan yang berikut:

Sub FormatTextsInTextBoxesInMultiDoc()
  Dim strFile As String
  Dim strFolder As String
  Dim objDoc As Document
 
  '  Initialization
  strFolder = InputBox("Enter folder path here: ")
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    Set objDoc = ActiveDocument
 
    With objDoc
      For Each objShape In .Shapes
        If objShape.Type = msoTextBox Then
          objShape.TextFrame.TextRange.Font.Name = "Arial"
          objShape.TextFrame.TextRange.Font.Size = "16"
        End If
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

3. Saat menjalankan makro, akan ada kotak input yang muncul, seperti di bawah ini:
4. Masukkan alamat folder di kotak teks dan klik "OK". Jangan lupa untuk menambahkan "\" di akhir string jalur Anda. Kemudian tunggu saja Word melakukan tugasnya.

Lakukan Persiapan Penuh selagi Bisa

Kami memahami bahwa bahkan sulit untuk memikirkan file Anda menjadi rusak. Namun, kami tidak pernah dapat mengabaikan kemungkinan ini yang, sejujurnya, relatif tinggi. Bagaimanapun, tidak terlalu merepotkan untuk mengambil tindakan pencegahan daripada melompat-lompat untuk a perbaikan dokumen tool.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki Excel ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com