Note: The other languages of the website are Google-translated. Back to English

Excel'den Word belgesindeki metin nasıl bulunur ve değiştirilir?

Word belgesinde, bir metni hızlı bir şekilde bulmak ve değiştirmek için Bul ve Değiştir işlevini uygulayabiliriz. Ancak, bulunması ve değiştirilmesi gereken birden fazla metin varsa, metni tek tek Bul ve Değiştir özelliğine girin, zaman alıcı olacaktır. Bu durumda, hücre listesine bul ve değiştir metinlerini girebilir ve bu işi kolaylıkla gerçekleştirmek için Excel'deki VBA kodu yardımıyla yapabilirsiniz. Bu makalede, birden çok Word belgesindeki metinleri toplu olarak bulmak ve değiştirmek için kullanışlı bir özellik de tanıtacağım.

Excel'den tek bir Word belgesindeki birden çok metni VBA koduyla bulun ve değiştirin

Excel'den birden çok Word belgesindeki birden çok metni VBA koduyla bulun ve değiştirin

Güçlü bir özellikle birden çok Word belgesindeki birden çok metni bulun ve değiştirin


Excel'den tek bir Word belgesindeki birden çok metni VBA koduyla bulun ve değiştirin

Bazı metinleri yalnızca bir Word dosyasında bulmak ve değiştirmek istiyorsanız, aşağıdaki VBA kodu size bir iyilik yapabilir.

1. Excel çalışma sayfasında, bulmak ve değiştirmek istediğiniz metinleri içeren bir sütun ve aşağıdaki ekran görüntüsü gibi değiştirilecek metinleri içeren başka bir sütun oluşturun. Ve sonra basın Alt + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Daha sonra, Ekle > modül, aşağıdaki VBA kodunu kopyalayıp pencereye yapıştırın.

VBA kodu: Tek bir Word dosyasında birden çok metni bulun ve değiştirin

Sub replace_texts_range_of_cells()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
  With xDoc.Application.Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = xRng.Areas.Item(1).Cells.Item(I).Value
    .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
  Set xRng = Nothing
  Set xFileDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Kodu yapıştırdıktan sonra, hala Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Tools > Referanslar, ekran görüntüsüne bakın:

4. Dışarı çıkan Referanslar - VBAProject iletişim kutusunu seçin. Microsoft Word 16.0 Nesne Kitaplığı liste kutusundan, ekran görüntüsüne bakın:

5. tıklayın OK iletişim kutusunu kapatmak için düğmesine basın ve şimdi F5 Bu kodu çalıştırmak için tuşuna basın, açılan Gözat penceresinde, metinleri değiştirmek istediğiniz Word Dosyasını seçin, ekran görüntüsüne bakın:

6. Daha sonra, OK, aşağıdaki iletişim kutusunda tuşuna basın Ctrl kullanmak istediğiniz orijinal metni ve yeni metin hücrelerini ayrı ayrı seçmek için tuşuna basın, ekran görüntüsüne bakın:

7. Ve sonra tıklayın OK butonu, şimdi metinler bulundu ve belirtilen belgenizdeki yeni metinlerle değiştirildi ve dosya da açılıyor, değişiklikleri saklamak için kaydetmelisiniz.


Excel'den birden çok Word belgesindeki birden çok metni VBA koduyla bulun ve değiştirin

Burada, birden çok Word belgesindeki birden çok metni bulmak ve değiştirmek için bir VBA kodu da oluşturuyorum, lütfen şu şekilde yapın:

1. Aşağıda gösterilen ekran görüntüsü gibi değiştirilecek ve değiştirilecek iki değer sütunu içeren Excel dosyasını açın ve ardından düğmesine basın. Alt + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Daha sonra, Ekle > modül, aşağıdaki VBA kodunu kopyalayıp pencereye yapıştırın.

VBA kodu: Birden çok Word dosyasındaki birden çok metni bulun ve değiştirin

Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
  If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
    Set xDoc = xWordApp.Documents.Open(xFile.Path)
    For I = 1 To xRng.Areas.Item(1).Cells.Count
      With xDoc.Application.Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = xRng.Areas.Item(1).Cells.Item(I).Value
        .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
    Next
    xDoc.Close wdSaveChanges
  End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"
ExitSub:
  Set xRng = Nothing
  Set xFolderDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Hala içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Tools > Referanslar, In Referanslar - VBAProject iletişim kutusunu seçin. Microsoft Word 16.0 Nesne Kitaplığı ve Microsoft Komut Dosyası Çalışma Zamanı liste kutusundaki seçenekler, ekran görüntüsüne bakın:

4. İki seçeneği işaretledikten sonra tıklayın ve OK iletişim kutusunu kapatmak için ve ardından düğmesine basmaya devam edin. F5 açılışta bu kodu yürütmek için anahtar Araştır penceresinde, bulmak ve değiştirmek istediğiniz Word belgelerini içeren bir klasör seçin, ekran görüntüsüne bakın:

5. tıklayın OK düğmesine basın, açılan iletişim kutusunda Ctrl tuşuna basın, kullanmak istediğiniz orijinal metni ve yeni metin sütunlarını ayrı ayrı seçin, ekran görüntüsüne bakın:

6. Son olarak, OK, ve orijinal metinler tez dosyalarında yenileriyle değiştirilir, tamamlandıktan sonra, aşağıda gösterilen ekran görüntüsü gibi bir iletişim kutusu açılır:

7. tıklayın OK iletişim kutusunu kapatmak için Ve dönüştürülen sonuçları kontrol etmek için dosyalara gidebilirsiniz.


Güçlü bir özellikle birden çok Word belgesindeki birden çok metni bulun ve değiştirin

Bu bölümde, Excel yerine Word'den birden çok Word belgesindeki metinleri toplu olarak nasıl bulacağınız ve değiştireceğiniz hakkında konuşacağım. Güçlü bir araçla-Kutools for Word, belirli metinleri hızlı bir şekilde bulabilir ve değiştirebilir ve bunları ana dosya, üstbilgi, altbilgi, yorumlar vb.'deki yeni metinlerle değiştirebilir ve sonuçları istediğiniz gibi vurgulayabilirsiniz.

1. Bir Word dosyası açın ve ardından Kutools Artı > Toplu Bul ve Değiştir, ekran görüntüsüne bakın:

2. Açılan Toplu Bul ve Değiştir iletişim kutusu, lütfen aşağıdaki işlemleri yapın:

  • Tıkla Ekle metinleri bulmak ve değiştirmek istediğiniz Word dosyalarını eklemek için düğme;
  • Sol bölmede, tıklayın Satır ekle üst şeritten;
  • Eklenen alana orijinal metni ve yeni metni girin. bulmak ve değiştirmek bulmak ve değiştirmek istediğiniz sütunları ayrı ayrı seçin. Ayrıca, değiştirilen metinleri ihtiyacınıza göre vurgulamak için bir renk belirleyebilirsiniz.

3. Arama kriterlerini oluşturduktan sonra tıklayın. değiştirmek düğmesine gitmek için Sonucu Önizle Bul ve değiştir sonuçlarını görüntülemek için sekmesine tıklayın. Ekran görüntüsüne bakın:

4. Daha sonra, Kapanış düğmesine tıklayın ve bu senaryoyu kaydetmek isteyip istemediğinizi size hatırlatmak için bir bilgi istemi kutusu açılır, Evet kaydetmek için ve tıklayın Yok hayır görmezden gelmek için ekran görüntüsüne bakın:

İpuçları: Bu özellik ayrıca aşağıdaki işlemlerin gerçekleştirilmesine yardımcı olabilir:
  • Birden çok Word belgesinde özel karakterleri bulun ve değiştirin;
  • Birden çok Word belgesinde belirli biçimlendirmeye sahip birden çok dizeyi bulun ve değiştirin;
  • Birden çok txt/htm/html dosyasında birden çok dizeyi bulun ve değiştirin.

Bu özellik hakkında daha detaylı bilgi almak için tıklayın…


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (4)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Selamlar,
ilk kod:
VBA kodu: Tek bir Word dosyasında birden çok metni bulun ve değiştirin

hata gösterir: derleme hatası kullanıcı tanımlı tip tanımlı değil
https://i.imgur.com/FZPBy4I.png
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba erik
Kod iyi çalışıyor.
Belki kontrol etmedin Microsoft Word 16.0 Nesne Kitaplığı itibaren Referanslar - VBAProject iletişim kutusu.
Bu, bu makalenin 3. Adımını ve 4. Adımını kaçırabileceğiniz anlamına gelir.
Lütfen tekrar deneyin, eğer hala başka bir sorununuz varsa, lütfen buraya yorum yapın.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
Bu yorum sitedeki moderatör tarafından en aza indirildi
İşe yaramıyor.

Derleme hatası: Kullanıcı tanımlı tür tanımlanmadı
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Param
Kod iyi çalışıyor.
Belki kontrol etmedin Microsoft Word 16.0 Nesne Kitaplığı itibaren Referanslar - VBAProject iletişim kutusu.
Bu, bu makalenin 3. Adımını ve 4. Adımını kaçırabileceğiniz anlamına gelir.
Lütfen tekrar deneyin, eğer hala başka bir sorununuz varsa, lütfen buraya yorum yapın.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır