Aşağıdaki bu makalede, Word'ünüzde birden çok otomatik düzeltme girişini toplu olarak ekleme veya silme yolunu size tanıtmak istiyoruz.
Word'de otomatik düzeltme adı verilen yerleşik bir özellik vardır. Birçok kullanıcı zaten buna aşinadır. Aslına bakarsanız, çoğumuz bunu kolayca yanlış yazılan kelimeleri düzeltmek için kullanırız. İhtiyacınız kadar item import edebilmenize rağmen tek tek yapmanız gerekiyor. Genel olarak, buna katlanmak zorunda kalacağız. Ancak, makro söz konusu olduğunda, bir otomatik düzeltme girişleri listesi oluşturarak ve bunları bir tıklamayla bir kez ve tümü için içe aktararak çok zaman kazanabileceksiniz.
Bunu nasıl başaracağınızı gösteren ayrıntılar aşağıdadır:
Birden Çok Otomatik Düzelt Girişini Toplu Olarak Ekleyin
- İlk ve önost, Word'de boş bir belge açın ve 2 sütun ve birden çok satırdan oluşan bir tablo ekleyin.
- Tabloda, tüm yanlış yazılmış sözcükleri ilk sütuna girin.
- Ve tüm doğru kelimeleri ikinci sütuna girin.
- Ondan sonra, Word'de VBA düzenleyicisini çağırmak için "Alt + F11" tuşlarına basın.
- Ardından “Normal” ve “Ekle” sekmesine tıklayın.
- Ve açılır menüden "Modül"ü seçin.
- Ardından, sağ taraftaki yeni modülü açmak için olarak çift tıklayın.
- Şimdi aşağıdaki kodları oraya yapıştırın:
Sub BatchAddAutoCorrectEntries()
Dim objTable As Table
Dim objOriginalWord As Cell
Dim objOriginalWordRange As Range
Dim objReplaceWordRange As Range
Dim nRowNumber As Integer
Set objTable = ActiveDocument.Tables(1)
nRowNumber = 1
For Each objOriginalWord In objTable.Columns(1).Cells
Set objOriginalWordRange = objOriginalWord.Range
objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
Set objReplaceWordRange = objTable.Cell(nRowNumber, 2).Range
objReplaceWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
AutoCorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text
nRowNumber = nRowNumber + 1
Next objOriginalWord
Msgbox("All autocorrect items in the table1 are added.")
End Sub
- Son olarak, makroyu çalıştırmak için "Çalıştır"a tıklayın veya "F5"e basın.
Notlar:
- Makroyu çalıştırmak, tablodaki tüm öğelerin içe aktarıldığını gösteren bir sonuç kutusu görüntüler.
- Tablo hücresindeki öğeyi takip eden boşluk olmadığından emin olun. Aksi halde makro başarısız olacaktır.
Birden Çok Otomatik Düzelt Girişini Toplu Silme
Birden çok otomatik düzeltme girişini saniyeler içinde toplu olarak silmek için karşıt gereksinim buradadır. Neyse ki, bir makro ile bu kolay olmalı.
- İlk olarak, benzer şekilde Word'de yeni bir boş belge oluşturun.
- Ardından, birden çok satırın 1 sütununa bir tablo ekleyin.
- Kaldırmanız gereken tüm yanlış yazılmış kelimeleri tabloya girin.
- Ardından, yukarıdaki tam adımları izleyerek bir makro kurun ve çalıştırın.
- Ancak makroyu bununla değiştirin:
Sub BatchDeleteAutoCorrectEntries()
Dim objTable As Table
Dim objOriginalWord As Cell
Dim objOriginalWordRange As Range
Dim nRowNumber As Integer
Set objTable = ActiveDocument.Tables(1)
nRowNumber = 1
For Each objOriginalWord In objTable.Columns(1).Cells
Set objOriginalWordRange = objOriginalWord.Range
objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
On Error Resume Next
AutoCorrect.Entries.Item(objOriginalWordRange.Text).Delete
nRowNumber = nRowNumber + 1
Next objOriginalWord
Msgbox("All autocorrect items in the table1 are deleted.")
End Sub
- Aynı şekilde, aşağıdaki gibi bir sonuç kutusu var:
Belge Yolsuzluğuyla Mücadele için Silah
Bütün gün bir rapor üzerinde çalıştığınızı hayal edin. Ve birden Word yanıt vermeyi kesiyor. Saniyeler sonra, raporunuzu bilgisayarda hiçbir yerde bulamazsınız. Görünüşe göre ortadan kayboldular! Kendini ne kadar çaresiz hissediyor olmalısın! Yine de, kalp kırmak ve iyi şanslar için dua etmek yerine, gerçek bir silaha ihtiyacın var. docx'i kurtar.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk xls ve pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com