Przejdź do głównej zawartości

Jak przekonwertować wszystkie przypisy końcowe na zwykły tekst w programie Word

Konwersja przypisów końcowych na tekst będzie wygodna podczas ich edycji lub usuwania. Na przykład, jeśli chcesz od razu zaznaczyć przypisy końcowe z innym zwykłym tekstem, program Word nie pozwoli ci tego zrobić. Jak możesz to łatwo zrobić? Ten samouczek pokaże Ci kilka metod konwersji przypisów końcowych na zwykły tekst.

Konwertuj przypisy końcowe na tekst ręcznie

Konwertuj przypisy końcowe na tekst za pomocą VBA

Konwertuj przypisy końcowe na tekst za pomocą Kutools for Worddobry pomysł 3


Konwertuj przypisy końcowe na tekst ręcznie

1. Umieść kursor w miejscu przypisów końcowych, a następnie naciśnij Ctrl + A aby zaznaczyć wszystkie przypisy końcowe z dokumentu. Zobacz zrzut ekranu:

2. naciśnij Ctrl + C skopiować przypisy końcowe.

3. naciśnij Ctrl + End aby przenieść kursor na koniec całego dokumentu i przed przypisami końcowymi.

4. naciśnij Ctrl + V wkleić przypis końcowy na koniec dokumentu. Kolejność przypisów końcowych pozostanie nienaruszona, ale wklejone przypisy zostały zmienione. Zobacz zrzut ekranu:

5. Zastąp ręcznie cały numer 1 przed tekstem oryginalną listą numerów.


Konwertuj przypisy końcowe na tekst za pomocą VBA

Słowem, możesz również konwertować przypisy końcowe na zwykły tekst za pomocą kodu VBA.

1: naciśnij Alt + F11 otworzyć a Okno Microsoft Visual Basic for Applications;

2: Kliknij Moduł od wstawka , skopiuj i wklej następujący kod VBA do pliku Moduł okno;

3: Kliknij run lub naciśnij F5 zastosować VBA.

VBA, który konwertuje przypisy końcowe na tekst:

Podkonwertowany przypis ()
Przyciemnij notatkę jako przypis końcowy
Dla każdego aendnote w ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Następna uwaga
Dla każdego aendnote w ActiveDocument.Endnotes
aendnote.Reference.Delete
Następna uwaga
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Z Selection.Find.Replacement.Font
. Indeks górny = Prawda
Kończyć z
Z wyborem. Znajdź
.Text = "(a) ([0–9] {1,}) (a)"
.Replacement.Text = "\ 2" v .Naprzód = Prawda
.Wrap = wdFindContinue
.Format = Prawda
.MatchWildcards = Prawda
Kończyć z
Selection.Find.Execute Replace: = wdReplaceAll
End Sub

Uwaga: Możesz zmienić początek i koniec makra, aby dostosować się do własnych potrzeb.


Konwertuj przypisy końcowe na tekst za pomocą Kutools for Word

Dla tych komputerowych nowych rąk VBA jest zbyt skomplikowany, aby go obsługiwać. Ale z Kutools dla Worda zainstalowany, możesz szybko przekonwertować wszystkie przypisy końcowe na tekst z Convert Endnotes to Text narzędzie jednym kliknięciem.

Kutools dla Worda, ponad  przydatne funkcje, ułatwiają pracę. 

Po zainstalowaniu Kutools for Word, wykonaj poniższe czynności:(Bezpłatne pobieranie Kutools for Word teraz!)

1. Proszę zastosować to narzędzie, klikając Kutools > konwertować > Convert Endnotes to Text. Zobacz zrzut ekranu:

doc kutools konwertuje przypisy końcowe na tekst 1

2. Po kliknięciu Convert Endnotes to Text, zobaczysz wynik, jak pokazują poniższe zrzuty ekranu:




Względny artykuł:


Przeglądanie w kartach i edycja wielu dokumentów Word / skoroszytów programu Excel, takich jak Firefox, Chrome, Internet Explore 10!

Możesz być zaznajomiony z przeglądaniem wielu stron internetowych w przeglądarce Firefox / Chrome / IE i przełączaniem się między nimi, łatwo klikając odpowiednie karty. Tutaj karta Office obsługuje podobne przetwarzanie, które umożliwia przeglądanie wielu dokumentów programu Word lub skoroszytów programu Excel w jednym oknie programu Word lub oknie programu Excel i łatwe przełączanie się między nimi, klikając ich zakładki.
Kliknij, aby uzyskać bezpłatną wersję próbną karty Office!

Przeglądaj dokumenty zawierające wiele słów w jednym oknie jako Firefox
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank for the macro! Super helpful!

(Fyi - you have a "v" where there should be a linefeed by ".Forward", but you saved me a couple of hours of figuring out writing my own. Awesome!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations