Bugünkü yazımızda, Word belgenizden aynı renkteki metinleri ayıklamanın 2 hızlı yöntemini sizlerle paylaşmaktan mutluluk duyuyoruz.
Arada sırada, bir Word belgesinde biçimlendirme yaparken, bazı metinlere daha fazla dikkat çekmek için yazı tipi rengi uygulayabiliriz. Genellikle bu renkli kelimeler, tekrar incelemenizi hak eden önemli içeriklerdir. O zaman onları daha sonra net bir kontrol için ihraç edip başka bir yere toplamaya ne dersiniz?
Bu talebe odaklanarak, sonsuz kesme ve yapıştırma işlemleri yerine size 2 hızlı kısayol öneriyoruz.
Yöntem 1: "Bul" Özelliğini Kullanın
- Öncelikle, “Ana Sayfa” sekmesine tıklayın.
- Ardından "Bul"un yanındaki ters üçgen düğmesini tıklamak için "Düzenleme" grubuna gidin.
- Sonra listeden "Gelişmiş Bul" u seçin.
- "Bul ve Değiştir" iletişim kutusunda, imleci "Neyi bul" metin kutusuna getirin ve varsa içeriği temizleyin.
- Daha sonra “Diğer” düğmesine tıklayın.
- Şimdi “Biçimlendir” düğmesine tıklayın ve “Yazı Tipi” ni seçin.
- Metinlerinize tam olarak atadığınız rengi seçmek için "Yazı Tipi Bul" iletişim kutusunda, "Yazı Tipi rengi"nin arkasındaki açılır düğmeyi tıklayın.
- “Tamam”a tıklamayı unutmayın.
- Şimdi “Bul ve Değiştir” kutusuna dönün ve “Bul” düğmesine tıklayın.
- Son olarak, “Ana Belge” seçeneğini seçin.
Ardından hedef renkteki tüm metinler seçilecektir. Şimdi "Ctrl+C" tuşuna basarak bunları kopyalayabilir ve tek seferde başka bir yere yapıştırabilirsiniz.
Yöntem 2: Bir Word Makrosu Çalıştırın
- Öncelikle “Geliştirici” sekmesine tıklayın.
- Ardından, VBA düzenleyicisini tetiklemek için “Visual Basic”e tıklayın.
- Sonra “Normal” ve ardından “Ekle” ye tıklayın.
- Menüden "Modül"ü seçin.
- Ardından kodlama alanını etkinleştirmek için modüle çift tıklayın.
- Sonraki yapıştırma kodları:
Sub ExtractColoredTexts()
Dim objDoc As Document, objDocAdd As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objDocAdd = Documents.Add
objDoc.Activate
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Font.Color = wdColorRed
.Text = ""
.Execute
End With
Do While .Find.Found
Set objRange = Selection.Range
objDocAdd.Range.InsertAfter objRange & vbCr
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
End Sub
- Şimdi "Çalıştır" düğmesini tıklayın.
Ayıklanan tüm metinlerle açık yeni bir belge olacaktır.
Not: “.Font.Color = wdColorRed” kod satırında “wdColorRed” ifadesini metinlerinizin gerçek rengi ile değiştirmeniz gerekmektedir. Ayrıntılı referans için bu sayfayı ziyaret edebilirsiniz: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Adres Kelime Problemi
Çoğumuz zaten Word'ü sıkça kullanıyoruz. Ancak buna rağmen, Word'ün çökmesi gibi bazı zorlu sorunlarla karşılaşabiliyoruz. Bu, oldukça ciddi bir sorundur, çünkü kritik dosyalarınız tehlikede olabilir. Bu gibi durumlarda, bir Word programı edinmeniz önerilir. Word veri hatası onarım aracı Word verilerini yalnızca birkaç dakika içinde kurtaracak olan.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xls veri sorunu onarım aracı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com