Přejít k hlavnímu obsahu

Jak převést všechny vysvětlivky na prostý text v aplikaci Word

Převedení vysvětlivek na text vám usnadní úpravy nebo odstranění. Například pokud chcete vybrat vysvětlivky s jiným běžným textem najednou, Word vám to nedovolí. Jak to můžete snadno udělat? Tento výukový program vám ukáže několik metod převodu vysvětlivek na prostý text.

Převádějte vysvětlivky na text ručně

Převádějte vysvětlivky na text pomocí VBA

Převeďte vysvětlivky na text pomocí Kutools pro Worddobrý nápad3


Převádějte vysvětlivky na text ručně

1. Umístěte kurzor na místo, kde se nacházejí vysvětlivky, a stiskněte Ctrl + vyberte všechny vysvětlivky z dokumentu. Viz snímek obrazovky:

2. lis Ctrl + C kopírovat vysvětlivky.

3. lis Ctrl + End přesunout kurzor na konec celého dokumentu a před vysvětlivky.

4. lis Ctrl + V vložit vysvětlivku na konec dokumentu. Pořadí vysvětlivek bude neporušené, ale vložené vysvětlivky byly změněny. Viz snímek obrazovky:

5. Ručně nahraďte celé číslo 1 před textem původním seznamem čísel.


Převádějte vysvětlivky na text pomocí VBA

V aplikaci Word můžete také převést vysvětlivky na prostý text pomocí kódu VBA.

1: Stiskněte Alt + F11 otevřít a Okno Microsoft Visual Basic pro aplikace;

2: Klepněte na tlačítko Modul od Vložit kartu, zkopírujte a vložte následující kód VBA do souboru Modul okno;

3: Klepněte na tlačítko Běh nebo stiskněte tlačítko F5 použít VBA.

VBA, které převádějí vysvětlivky na text:

Subvertendnote ()
Dim aendnote jako Endnote
Pro každou poznámku v ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote. Rozsah
aendnote.Reference.InsertBefore „a“ & aendnote.Index & „a“
Další poznámka
Pro každou poznámku v ActiveDocument.Endnotes
aendnote.Reference.Delete
Další poznámka
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Se Selection.Find.Replacement.Font
.Horní index = Pravda
Konec s
S výběrem
.Text = "(a) ([0-9] {1,}) (a)"
.Replacement.Text = "\ 2" v Předmět = Pravda
.Wrap = wdFindContinue
.Format = Pravda
.MatchWildcards = Pravda
Konec s
Selection.Find.Execute Nahradit: = wdReplaceAll
End Sub

Poznámka: Začátek a konec makra můžete změnit podle svých představ.


Převeďte vysvětlivky na text pomocí Kutools pro Word

Pro ty nové počítačové handy je VBA příliš složitý na to, aby se s nimi dalo zacházet. Ale s Kutools pro Word nainstalován, můžete rychle převést všechny vysvětlivky na text pomocí Convert Endnotes to Text nástroj jedním kliknutím.

Kutools pro Word, s více než  užitečné funkce, které vám usnadní práci. 

Po instalaci Kutools pro Word, prosím, postupujte takto:(Stažení zdarma Kutools pro Word hned!)

1. Použijte tento nástroj kliknutím Kutools > Konvertovat > Convert Endnotes to Text. Viz snímek obrazovky:

doc kutools převádí vysvětlivky na text 1

2. Po kliknutí Convert Endnotes to Text, uvidíte výsledek, jak ukazují níže uvedené snímky obrazovky:




Relativní článek:


Procházení a úpravy více dokumentů Word / sešitů aplikace Excel jako Firefox, Chrome, Internet Prozkoumejte na kartách 10!

Možná znáte prohlížení více webových stránek ve Firefoxu / Chrome / IE a přepínáte mezi nimi snadným kliknutím na příslušné karty. Zde karta Office podporuje podobné zpracování, které vám umožní procházet více dokumentů aplikace Word nebo sešitů aplikace Excel v jednom okně aplikace Word nebo v okně aplikace Excel a snadno mezi nimi přepínat kliknutím na jejich karty.
Klikněte na bezplatnou zkušební verzi karty Office!

Procházejte více slovních dokumentů v jednom okně 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