4 Metode Berguna untuk Menemukan dan Mengganti Teks di Bagian Dokumen Word

Solusi Kata September 28, 2025
Bagikan sekarang:

Dalam dokumen ini, kami dengan senang hati menunjukkan kepada Anda 4 metode berguna untuk menemukan dan mengganti teks di bagian dokumen Word.

Biasanya, ketika kita melakukan "Temukan dan Ganti" di Word, efeknya secara global. Jadi, hari ini kami ingin menawarkan cara untuk menemukan dan mengganti teks di bagian dokumen, seperti dalam pilihan, satu halaman, atau bagian tertentu.Temukan dan Ganti Teks di Bagian dari Dokumen Word

Metode 1: Memanfaatkan Fitur "Temukan dan Ganti" dalam Pilihan

  1. Pertama, pilih teks target.
  2. Kedua, tekan "Ctrl + H" untuk membuka kotak "Temukan dan Ganti".
  3. Selanjutnya masukkan teks temuan di kotak teks "Temukan apa" dan teks pengganti di kotak "Ganti dengan".
  4. Kemudian klik tombol "Ganti Semua".
  5. Sebuah kotak akan muncul, menanyakan apakah Anda ingin melanjutkan pencarian di seluruh dokumen. Pastikan Anda mengklik "Tidak".Masukkan Teks di "Temukan apa" dan "Ganti dengan" Kotak Teks-> Klik "Ganti Semua" -> Klik "Tidak"

Metode 2: Jalankan Kode VBA untuk Menemukan dan Mengganti Teks dalam Pilihan

  1. Pertama-tama, pilih berbagai konten dokumen.
  2. Selanjutnya picu editor VBA dengan menekan "Alt + F11".
  3. Kemudian klik "Normal" dan klik "Sisipkan".
  4. Pilih "Modul" di menu.Klik "Normal" -> Klik "Sisipkan" -> Klik "Modul"
  5. Sekarang buka modul dengan klik dua kali.
  6. Salin dan tempel kode berikut di sana:
Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub
  1. Tekan berikutnya "F5".Tempel Kode-> Klik "Jalankan"
  2. Akan ada dua kotak masukan yang muncul. Masukkan teks temuan dan ganti masing-masing dalam dua kotak.
  3. Klik "OK" untuk melanjutkan.Masukkan Teks untuk Ditemukan

Anda akan mencapai efek yang sama persis seperti pada metode 1.

Metode 3: Jalankan Makro Word untuk Menemukan dan Mengganti Teks di Halaman yang Ditunjuk

Makro berikut memungkinkan Anda menemukan dan mengganti teks pada halaman tertentu.

  1. Pertama, instal dan jalankan makro mengikuti langkah-langkah di metode 2.
  2. Kemudian ganti makro itu dengan yang ini:
Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub
  1. Setelah menjalankan kode-kode ini, akan ada 3 kotak masukan. Masukkan nomor halaman di kotak pertama, dan masukkan teks temuan di kotak kedua, dan ketik teks pengganti di kotak ketiga.
  2. Ingatlah untuk mengklik "OK" untuk melanjutkan.Masukkan Nomor Halaman -> Klik "OK"

Metode 4: Jalankan Makro Word untuk Menemukan dan Mengganti Teks di Bagian

  1. Demikian pula, lakukan langkah yang sama di metode 2 untuk menginstal dan menjalankan makro.
  2. Hanya kali ini gunakan makro ini sebagai gantinya:
Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub
  1. Ingatlah untuk memasukkan nomor bagian di kotak pertama. Dan masukan pencarian dan penggantian teks dalam dua kotak berikut.
  2. Tetap saja, klik "OK" untuk melanjutkan.

Atasi Masalah Word

Ada banyak jenis masalah yang terjadi di dokumen Anda. Beberapa mudah ditangani, sementara yang lain lebih parah yang dapat menyebabkan Kerusakan kata. Dalam skenario seperti itu, Anda harus mendapatkan alat perbaikan sesegera mungkin untuk menyelamatkan data Anda.

Pengantar Penulis:

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

Bagikan sekarang:

Komentar ditutup.