Bugünkü yazımızda, Word belgenizden belirli bir vurgu rengini kaldırmanın etkili yolunu sizlerle paylaşmaktan mutluluk duyuyoruz.
Önceki yazılarımızdan birinde, vurgu renklerini çıkarmanın yollarından bahsetmiştik. Ayrıntılı bilgi için şu linke başvurabilirsiniz: Word Belgenizdeki Vurgulamayı veya Gölgelendirmeyi Kaldırmanın 5 Yöntemi
Bugün, bir belgenin farklı içerik türlerini öne çıkarmak için birden fazla vurgu rengi içerebileceği başka bir duruma bakalım. Böyle bir durumda, olağan yöntemler belirli bir vurgu rengini tanıyamaz. Aslında, tek hızlı ve etkili yol bir Word makrosu çalıştırmaktır.
Şimdi aşağıdaki yaklaşıma bir göz atın.
Belirli Bir Vurgu Rengini VBA aracılığıyla Kaldırma
- Öncelikle, Şerit'teki "Geliştirici" sekmesine tıklayın.
- Ardından Word'de VBA düzenleyicisini tetiklemek için "Visual Basic"e tıklayın. Henüz "Geliştirici" sekmesine sahip olmayabileceğinizi düşünürsek, bunun yerine "Alt + F11" tuşlarına basabilirsiniz.
- Daha sonra düzenleyicide sol sütundaki "Normal" projeye tıklayın.
- Ardından menü çubuğundaki “Ekle” sekmesine tıklayın.
- Açılır menüden "Modül"ü seçin.
- Şimdi kodlama alanını açmak için yeni modüle çift tıklayın.
- Aşağıdaki makroyu modüle yapıştırın:
Sub RemoveSpecificHighlightColor()
Dim objDoc As Document
Dim objRange As Range
Dim strHighlightColor As String
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strHighlightColor = InputBox("Choose a Highlight colour to remove (enter the value):" & vbNewLine & _
vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _
vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _
vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _
vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _
vbTab & "DarkYellow" & vbTab & "14" & vbNewLine & _
vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _
vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _
vbTab & "Green" & vbTab & vbTab & "11" & vbNewLine & _
vbTab & "Pink" & vbTab & vbTab & "5" & vbNewLine & _
vbTab & "Red" & vbTab & vbTab & "6" & vbNewLine & _
vbTab & "Teal" & vbTab & vbTab & "10" & vbNewLine & _
vbTab & "Turquoise" & vbTab & "3" & vbNewLine & _
vbTab & "Violet" & vbTab & vbTab & "12" & vbNewLine & _
vbTab & "White" & vbTab & vbTab & "8" & vbNewLine & _
vbTab & "Yellow" & vbTab & vbTab & "7", "Highlight Color")
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.Highlight = True
Do While .Execute
If Selection.Range.HighlightColorIndex = strHighlightColor Then
Set objRange = Selection.Range
objRange.HighlightColorIndex = wdNoHighlight
Selection.Collapse wdCollapseEnd
End If
Loop
End With
End With
MsgBox ("The chosen highlight color has been removed in the document.")
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
- Ardından kodları çalıştırmak için “Çalıştır” düğmesine tıklayın veya “F5” tuşuna basın.
- Ardından, “Vurgu Rengi” kutusu var. Her renk için bir değer vardır. Kaldırılacak vurgu rengiyle ilgili değeri girmeniz yeterlidir.
- Son fakat en az değil, devam etmek için "Tamam" ı tıklayın.
- Tamamlandığında, böyle bir mesaj kutusu alacaksınız:
İşte olası sonuç:
Verilerinizi Güvende Tutun
Veri bütünlüğü kolayca tehlikeye girebilir. Her şey çok geç olmadan önleyici tedbirler almak zamanı geldi. Örneğin, en çok önerilen yöntem dosyaları düzenli olarak yedeklemektir. Beklenmedik bir şey olduğunda başvurabileceğiniz en son sürüme sahip olduğunuzdan emin olun. Aksi takdirde, çok daha uzun bir süreçten geçmek zorunda kalacaksınız. Kelime kurtarma verileri geri almak için.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xlsx'i düzelt hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com