Birden çok dosyada kelimede nasıl arama yapılır ve değiştirilir?
Aynı içeriği (üstbilgi, altbilgi, bazı özel sözcükler veya sayılar gibi) içeren birkaç düzine sözcük dosyanız varsa ve bu belgelerde aynı içeriği Word'de değiştirmeniz gerekir. Hızlı bir şekilde halletmeniz sizin için ne kadar kolay olurdu? Kesinlikle, aynı içeriği değiştirmek için bu dosyaları tek tek açabilirsiniz, ancak bu zaman alıcı ve zahmetli olacaktır. Bu eğitim, size aynı içeriği Word'deki birden çok belgede aynı anda değiştirmenin zor bir yolunu gösterecektir.
VBA kodu ile aynı anda birden çok kelime belgesinde metinleri bulun ve değiştirin
Kutools for Word ile aynı anda birden fazla belgede farklı metinleri kolayca bulun ve değiştirin
VBA kodu ile aynı anda birden çok kelime belgesinde metinleri bulun ve değiştirin
1. Basın Ara Toplam + F11 açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül, ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.
VBA Kodu: Bir seferde birden çok belgede aynı içeriği arama ve değiştirme
Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
.Filters.Clear
.Filters.Add "All WORD File ", "*.docx", 1
.AllowMultiSelect = True
i = 1
If .Show = -1 Then
For Each stiSelectedItem In .SelectedItems
GetStr(i) = stiSelectedItem
i = i + 1
Next
i = i - 1
End If
Application.ScreenUpdating = False
xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
For j = 1 To i Step 1
Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
Windows(GetStr(j)).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = xFindStr 'Find What
.Replacement.Text = xReplaceStr 'Replace With
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Application.Run macroname:="NEWMACROS"
ActiveDocument.Save
ActiveWindow.Close
Next
Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar.
4. Açılışta Araştır penceresi, lütfen içinde bulacağınız ve değiştireceğiniz belgeleri bulup seçin ve ardından OK buton. Ekran görüntüsüne bakın:
5. İlkinde Kutools for Word iletişim kutusunda, belgeler arasında bulacağınız metni Ne bul ve ardından OK düğmesine basın.
6. saniyede Kutools for Word iletişim kutusunda, değiştireceğiniz metni girin ve OK düğmesine basın.
8. Tıklayın OK sonraki düğme Microsoft Word Bul ve değiştir işlemini bitirmek için iletişim kutusu.
Bu durumda, seçilen belgelerdeki tüm "Word" sözcükleri aynı anda "Excel" ile değiştirilir.
Kutools for Word ile aynı anda birden fazla belgede farklı metinleri kolayca bulun ve değiştirin
İşte kesinlikle tavsiye ederim Toplu Bul ve Değiştir özelliği Kutools for Word. Bu özellikle, farklı metinleri birden çok Word belgesinde aynı anda kolayca bulabilir ve değiştirebilirsiniz. Belgeler arasında metin bulmak ve değiştirmek için bu özelliği nasıl uygulayacağımızı görelim.
Kutools for Word : 100'den fazla kullanışlı Word eklentisiyle, herhangi bir sınırlama olmaksızın denemek için ücretsiz 60 Gün.
1. Lütfen tıklayın Kutools Artı > Toplu Bul ve Değiştir özelliği etkinleştirmek için.
2. içinde Toplu Bul ve Değiştir iletişim kutusu, lütfen aşağıdaki gibi yapılandırın.
- 2.1) satır ekle düğmesi altında Bul ve Değiştir sekme;
- 2.2) Oluşturulan satır alanlarında:
B. Değiştireceğiniz metni metin kutusuna girin. değiştirmek sütun;
C. Bir arama türü, metnin nerede bulunacağını ve metni istediğiniz gibi vurgulamak için bir renk belirtin. Bu durumda seçiyorum Tam kelime eşleme, Ana belge ve belli bir renk Arama Tipi, Bulmak ve Vurgulamak sütun;
- 2.3) Bulacağınız ve değiştireceğiniz daha fazla metin eklemek için 2.1 ve 2.2 adımlarını tekrarlayın;
- 2.4) düğmesi Dosya tipi metinleri bulup değiştireceğiniz Word belgelerini eklemek için bölüm;
- 2.5) değiştirmek or bulmak buton. Ekran görüntüsüne bakın:
3. Kapat Toplu Bul ve Değiştir iletişim kutusu
Bu özellik hakkında daha fazla bilgi için lütfen buraya tıklayın ....
Bu yardımcı programı ücretsiz olarak denemek istiyorsanız, lütfen şu adrese gidin: yazılımı ücretsiz indirin önce ve sonra yukarıdaki adımlara göre işlemi uygulamaya gidin.
En İyi Ofis Üretkenlik Araçları
Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!
🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur / Metni Yeniden Yaz / Belgeleri Özetleyin / Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de
📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / PDF'ye Toplu Dönüştürme / Sayfaları Görüntü Olarak Dışa Aktar / Aynı Anda Birden Çok Dosyayı Yazdırma...
✏ İçerik Düzenleme: Toplu Bul ve Değiştir Birden Çok Dosyada / Tüm Resimleri Yeniden Boyutlandır / Tablo Satırlarını ve Sütunlarını Yer Değiştirme / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar / Bölüm Sonları / Tüm Başlıklar / Metin kutuları / Köprüler / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...
➕ Yaratıcı Ekler: Ekle Bin Ayırıcı / Onay Kutuları / Radyo Düğmeleri / QR Code / Barkod / Çapraz Çizgi Tablosu / Denklem Başlığı / Görüntü Başlık / Tablo başlığı / Çoklu Resimler / Daha fazlasını şurada keşfedin: Grup Ekle...
🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar / tablolar / şekiller / başlık paragrafları / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...
⭐ Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin / tekrarlanan metni otomatik olarak ekle / belge pencereleri arasında sorunsuzca geçiş yapın / 11 Dönüşüm Aracı...