W dzisiejszym wpisie chętnie podzielimy się z Wami dwiema szybkimi metodami umożliwiającymi wyodrębnienie tekstów o tym samym kolorze z dokumentu Word.
Od czasu do czasu podczas formatowania w dokumencie programu Word prawdopodobnie zastosujemy kolor czcionki do niektórych tekstów, aby skreślić je, aby uzyskać dodatkową uwagę. Zazwyczaj te kolorowe słowa są ważnymi treściami, które zasługują na ponowne sprawdzenie. A co powiesz na wyeksportowanie i zebranie ich w inne miejsce, aby później je sprawdzić?
Skupiając się na tym żądaniu, proponujemy 2 szybkie skróty zamiast niekończących się operacji wycinania i wklejania.
Metoda 1: Wykorzystaj funkcję „Znajdź”
- Najpierw kliknij kartę „Strona główna”.
- Następnie przejdź do grupy „Edycja”, aby kliknąć odwrócony trójkątny przycisk obok „Znajdź”.
- Następnie wybierz z listy „Szukanie zaawansowane”.
- W oknie dialogowym „Znajdź i zamień” umieść kursor w polu tekstowym „Znajdź, co” i wyczyść zawartość, jeśli istnieje.
- Następnie kliknij przycisk „Więcej”.
- Teraz kliknij przycisk „Format” i wybierz „Czcionka”.
- W oknie dialogowym „Znajdź czcionkę” kliknij przycisk rozwijany za „Kolor czcionki”, aby wybrać dokładnie kolor, jaki przypisujesz swoim tekstom.
- Pamiętaj, aby kliknąć „OK”.
- Wróć teraz do pola „Znajdź i zamień” i kliknij „Znajdź w”.
- Na koniec wybierz „Dokument główny”.
Następnie wszystkie teksty w kolorze docelowym zostaną zaznaczone. Teraz możesz nacisnąć „Ctrl+C”, aby skopiować je i wkleić w innym miejscu za jednym razem.
Metoda 2: Uruchom makro programu Word
- Przede wszystkim kliknij zakładkę „Deweloper”.
- Następnie kliknij „Visual Basic”, aby uruchomić edytor VBA.
- Następnie kliknij „Normalne”, a następnie „Wstaw”.
- Wybierz z menu „Moduł”.
- Następnie kliknij dwukrotnie moduł, aby aktywować przestrzeń kodowania.
- Następne wklej kody:
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
- Teraz kliknij przycisk „Uruchom”.
Otworzy się nowy dokument zawierający wszystkie wyodrębnione teksty.
Uwaga: W linii kodu „.Font.Color = wdColorRed” musisz zamienić „wdColorRed” na rzeczywisty kolor tekstów. Aby uzyskać szczegółowe informacje, możesz odwiedzić tę stronę: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Adres problem ze słowem
Większość z nas korzysta już regularnie z Worda. Mimo to, wciąż możemy napotkać poważne problemy, takie jak awaria Worda. Jest to z pewnością dość poważny problem, ponieważ Twoje ważne pliki mogą być zagrożone. W takich okolicznościach zaleca się uzyskanie… Narzędzie do naprawy błędów danych programu Word który odzyska dane Worda w zaledwie kilka minut.
Wprowadzenie autora:
Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym xls narzędzie do naprawy problemów z danymi i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com