W tym artykule dowiesz się, jak usunąć formatowanie wklejonego tekstu za pomocą makra i VBA w Twoim słowie.
Często się to zdarza, gdy kopiujesz tekst online i okazuje się, że jest on w bogatym formatowaniu. Na przykład występują powtarzające się słowa, puste wiersze, znaki tabulacji itp. Jednak takie formatowanie może być dość denerwujące, szczególnie czasami, gdy nie jest potrzebne. Oczywiście formatowanie można usunąć ręcznie za każdym razem. A co jeśli tekst jest naprawdę długi? Wtedy powyższa metoda będzie mniej wydajna.
W rzeczywistości istnieje sposób na wykorzystanie makra, aby raz na zawsze usunąć całe formatowanie tekstu. Oto więcej:
Kroki, aby zarejestrować makro w programie Word
- Po pierwsze, otwórz swoje słowo.
- I upewnij się, że najpierw dodałeś kartę „Deweloper” na Wstążce. Szczegółowe instrukcje dodawania „programisty” można znaleźć w artykule: Jak wstawić muzykę w tle do dokumentu Word
- Gdy karta „Deweloper” będzie dostępna, kliknij ją.
- Następnie kliknij „Record Macro” w grupie „Code”.
- Teraz pojawi się okno dialogowe „Record Macro”. Najpierw wpisz tutaj nazwę makra, na przykład „kopytekst”.
- Następnie w części „Przypisz makro do” wybierz „Przycisk” lub „Klawiatura”. Tutaj przejdziemy do „przycisku”.
- Następnie kliknij „OK”.
- Teraz zobaczysz okno „Opcje programu Word”. Kliknij „Dostosuj wstążkę”.
- Następnie znajdź lokalizację makra po prawej stronie. Tutaj klikniemy „New Group”, aby ustawić nową dla makra.
- Noe nadal wybiera „Makra” z rozwijanej listy „Wybierz polecenia z”.
- Następnie kliknij makro, które właśnie utworzyłeś.
- Następnie kliknij „Dodaj” na środku okna.
- Teraz makro zostanie umieszczone w nowej grupie. Kliknij prawym przyciskiem myszy makro.
- I wybierz opcję „Zmień nazwę”.
- W oknie dialogowym „Zmień nazwę” wybierz symbol makra.
- Następnie wpisz nazwę wyświetlaną.
- Kliknij OK".
- Wróć teraz do okna „Opcje programu Word” i kliknij „OK”. Makro rozpocznie nagrywanie.
Wklej tekst jako niesformatowany tekst
- Najpierw skopiuj część długiego tekstu.
- Następnie kliknij kartę „Strona główna”.
- Kliknij „Wklej”.
- Następnie wybierz „Wklej specjalnie”.
- I wybierz „Niesformatowany tekst” w oknie dialogowym „Wklej specjalnie”.
- Następnie kliknij „OK”. Możesz otrzymać tekst z formatowaniem takim jak poniżej:
Usuń powtarzające się słowa
- Następnie zacznij czyścić formatowanie po lewej stronie. Naciśnij „Ctrl+H”, aby otworzyć okno dialogowe „Znajdź i zamień”.
- I wpisz „Strzałkę” w polu tekstowym „Znajdź”.
- Następnie kliknij „Zamień wszystko”.
Usuń znaki tabulacji
- Najpierw naciśnij „Ctrl + H”, aby otworzyć okno dialogowe „Znajdź i zamień”.
- Następnie wpisz „^ t” w polu tekstowym „Znajdź co”.
- Następnie kliknij „Zamień wszystko”, aby usunąć wszystkie znaki tabulacji.
Usuń dodatkowe puste miejsca
- Nadal naciśnij „Ctrl + H”, aby otworzyć okno dialogowe „Znajdź i zamień”.
- W polu tekstowym „Znajdź” naciśnij dwukrotnie pusty klawisz.
- Następnie kliknij przycisk „Zamień wszystko”.
Usuń razem puste linie i dodatkowe spacje
Czasami, gdy używasz funkcji „Znajdź i zamień” w celu usunięcia formatowania, musisz trochę dostosować, aby spełnić własne potrzeby. Na przykład, jeśli nie uda Ci się usunąć wszystkich dodatkowych spacji podczas stosowania powyższych kroków, możesz wykonać poniższe czynności, aby usunąć je razem z pustymi wierszami.
- Podobnie naciśnij „Ctrl + H”, aby otworzyć okno dialogowe „Znajdź i zamień”.
- Następnie w polu tekstowym „Znajdź” najpierw naciśnij pusty klawisz.
- Następnie wpisz „^ p”.
- W polu tekstowym „Zamień na” wpisz „^ p”.
- Kliknij „Zamień wszystko”.
- Ponownie otwórz okno dialogowe „Znajdź i zamień”.
- A w polu tekstowym „Znajdź co” najpierw wpisz „^ p”.
- Następnie naciśnij raz pusty klawisz.
- Następnie wpisz „^ p” w polu tekstowym „Zamień na”.
- Na koniec kliknij przycisk „Zamień wszystko”.
W razie potrzeby usuń lewe puste linie
Jeśli jednak pozostały puste linie, spróbuj wykonać następujące czynności:
- Naciśnij „Ctrl + H”, aby otworzyć okno dialogowe „Znajdź i zamień”.
- następnie wpisz „^ p ^ p” w polu tekstowym „Znajdź”.
- I wpisz „^ p” w polu tekstowym „Zamień na”.
- Na koniec kliknij przycisk „Zamień wszystko”.
Do tej pory możesz otrzymać wynik jak poniżej:
Sugerujemy tutaj, aby wykonać powyższą kolejność, aby usunąć formatowanie tekstu, aby ogólnie można było usunąć formatowanie. Jak już wspomnieliśmy, czasami trzeba wyczyścić inne rodzaje formatowania, a następnie należy samodzielnie użyć funkcji „Znajdź i zamień”. Więcej sposobów usuwania formatowania można znaleźć w tym artykule: 3 sposoby natychmiastowego usuwania niechcianych elementów z dokumentów programu Word
Możesz sprawdzić poniższy film, aby zobaczyć demonstrację:
Zatrzymaj nagrywanie makra
- Po zakończeniu usuwania formatowania tekstu kliknij kartę „Deweloper”.
- Następnie kliknij „Zatrzymaj nagrywanie”. Teraz makro zostanie zapisane.
Jak uruchomić makro
- Powiedzmy, że skopiuj tekst z formatowaniem online.
- Otwórz Word następny.
- Następnie kliknij zakładkę „Deweloper”.
- Kliknij ikonę makra, a zobaczysz tekst na dokumencie bez dodatkowego formatowania.
Uwaga: początkujący mogą po prostu wykonać powyższe kroki, aby utworzyć i uruchomić makro. Uruchomienie makra pomoże Ci pozbyć się irytującego formatowania, które jest wystarczające.
Kody VBA dla eksperta
Najpierw jest sposób na przeglądanie kodów VBA.
- Najpierw kliknij zakładkę „Deweloper”.
- Następnie kliknij „Visual Basic” w grupie „Kod”.
- W edytorze „Microsoft Visual Basic for Applications” najpierw kliknij „Normalny” po lewej stronie.
- Następnie kliknij „Moduły”.
- Następnie kliknij dwukrotnie „NewMacros” i będziesz mógł zobaczyć kod po prawej stronie.
W tym przypadku kody są następujące:
Sub copytext ()
"
„copytext Macro
"
"
Selection.PasteSpecial Link: = False, DataType: = wdPasteText, Placement: = _
wdInLine, DisplayAsIcon: = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Z wyborem. Znajdź
.Text = „Strzałka”
.Replacement.Text = „”
.Naprzód = Prawda
.Wrap = wdFindContinue
.Format = Fałsz
.MatchCase = Fałsz
.MatchWholeWord = Fałsz
.MatchWildcards = Fałsz
.MatchSoundsLike = Fałsz
.MatchAllWordForms = Fałsz
Kończyć z
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Z wyborem. Znajdź
.Text = „^ t”
.Replacement.Text = „”
.Naprzód = Prawda
.Wrap = wdFindContinue
.Format = Fałsz
.MatchCase = Fałsz
.MatchWholeWord = Fałsz
.MatchWildcards = Fałsz
.MatchSoundsLike = Fałsz
.MatchAllWordForms = Fałsz
Kończyć z
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Z wyborem. Znajdź
.Text = ”“
.Replacement.Text = „”
.Naprzód = Prawda
.Wrap = wdFindContinue
.Format = Fałsz
.MatchCase = Fałsz
.MatchWholeWord = Fałsz
.MatchWildcards = Fałsz
.MatchSoundsLike = Fałsz
.MatchAllWordForms = Fałsz
Kończyć z
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Z wyborem. Znajdź
.Text = ”^ p”
.Replacement.Text = „^ p”
.Naprzód = Prawda
.Wrap = wdFindContinue
.Format = Fałsz
.MatchCase = Fałsz
.MatchWholeWord = Fałsz
.MatchWildcards = Fałsz
.MatchSoundsLike = Fałsz
.MatchAllWordForms = Fałsz
Kończyć z
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Z wyborem. Znajdź
.Text = „^ p”
.Replacement.Text = „^ p”
.Naprzód = Prawda
.Wrap = wdFindContinue
.Format = Fałsz
.MatchCase = Fałsz
.MatchWholeWord = Fałsz
.MatchWildcards = Fałsz
.MatchSoundsLike = Fałsz
.MatchAllWordForms = Fałsz
Kończyć z
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Z wyborem. Znajdź
.Text = „^ p ^ p”
.Replacement.Text = „^ p”
.Naprzód = Prawda
.Wrap = wdFindContinue
.Format = Fałsz
.MatchCase = Fałsz
.MatchWholeWord = Fałsz
.MatchWildcards = Fałsz
.MatchSoundsLike = Fałsz
.MatchAllWordForms = Fałsz
Kończyć z
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Z wyborem. Znajdź
.Text = „^ p ^ p”
.Replacement.Text = „^ p”
.Naprzód = Prawda
.Wrap = wdFindContinue
.Format = Fałsz
.MatchCase = Fałsz
.MatchWholeWord = Fałsz
.MatchWildcards = Fałsz
.MatchSoundsLike = Fałsz
.MatchAllWordForms = Fałsz
Kończyć z
Selection.Find.Execute Replace: = wdReplaceAll
End Sub
Mówiąc o ekspertach i zaawansowanych użytkownikach, którzy znają VBA, możesz całkowicie dostosować kody do swoich wymagań, co będzie wygodniejsze i bardziej precyzyjne.
Zabezpiecz swoje pliki
Użytkownicy programu Word na całym świecie zazwyczaj wykorzystują go najlepiej. To świetny, a także niebezpieczny pomysł, ponieważ zwiększa ryzyko załamania programu Word przy niewłaściwych operacjach. Dlatego zawsze powinieneś znaleźć sposoby na zabezpieczenie swoich plików. Wśród dostępnych opcji uzyskanie pliku naprawa doc narzędzie wcześniej brzmi nieźle.
Wprowadzenie autora:
Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym excel regeneracja i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com