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:
- 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.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!
