Gå til hovedindhold

Sådan konverteres alle slutnoter til almindelig tekst i Word

Konvertering af slutnoter til tekst vil være praktisk for dig at redigere eller slette dem. For eksempel, hvis du vil vælge slutnoter med den anden almindelige tekst på én gang, tillader Word dig ikke at gøre det. Hvordan kan du få det gjort let? Denne vejledning viser dig flere metoder til konvertering af slutnoter til almindelig tekst.

Konverter slutnoter til tekst manuelt

Konverter slutnoter til tekst med VBA

Konverter slutnoter til tekst med Kutools til Wordgod idé3


Konverter slutnoter til tekst manuelt

1. Placer markøren, hvor slutnoterne er placeret, og tryk derefter på Ctrl + A for at vælge alle slutnoter fra dokumentet. Se skærmbillede:

2. Trykke Ctrl + C for at kopiere slutnoterne.

3. Trykke Ctrl + slut for at flytte markøren til slutningen af ​​hele dokumentet og før slutnoterne.

4. Trykke Ctrl + V at indsætte slutnoten til slutningen af ​​dokumentet. Slutnoternes rækkefølge vil være intakt, men de indsatte slutnoter blev ændret. Se skærmbillede:

5. Udskift hele nummer 1 foran teksten med den originale nummerliste manuelt.


Konverter slutnoter til tekst med VBA

I ord kan du også konvertere slutnoter til almindelig tekst med VBA-kode.

1: Tryk på Alt + F11 at åbne en Vinduet Microsoft Visual Basic til applikationer;

2: Klik Moduler fra indsatte fanen, kopier og indsæt følgende VBA-kode i Moduler vindue;

3: Klik Kør knappen eller tryk på F5 at anvende VBA.

VBA, der konverterer slutnoter til tekst:

Underkonverteringsnote ()
Dim dæmon som slutnote
For hver bilag i ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Næste kommentar
For hver bilag i ActiveDocument.Endnotes
aendnote.Reference.Delete
Næste kommentar
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find.Replacement.Font
.Superscript = Sandt
Slut med
Med Selection.Find
.Text = "(a) ([0-9] {1,}) (a)"
.Replacement.Text = "\ 2" v .Forward = True
.Wrap = wdFindContinue
.Format = sandt
.MatchWildcards = Sandt
Slut med
Selection.Find.Execute Replace: = wdReplaceAll
End Sub

Bemærk: Du kan ændre begyndelsen og slutningen af ​​makroen for at imødekomme din lignende.


Konverter slutnoter til tekst med Kutools til Word

For disse nye computere er VBA for kompleks til at håndtere. Men med Kutools for Word installeret, kan du hurtigt konvertere alle slutnoter til tekst med Convert Endnotes to Text hjælpeprogram med et enkelt klik.

Kutools for Word, med mere end  praktiske funktioner, der gør dine job lettere. 

Efter installation Kutools til Word, gør venligst som nedenfor:(Gratis download Kutools til Word nu!)

1. Anvend dette værktøj ved at klikke Kutools > Konverter > Convert Endnotes to Text. Se skærmbillede:

doc kutools konverterer slutnoter til tekst 1

2. Efter at have klikket Convert Endnotes to Text, vil du se resultatet, som nedenstående skærmbilleder viser:




Relativ artikel:


Tabbed browsing og redigering af flere Word-dokumenter / Excel-projektmapper som Firefox, Chrome, Internet Explore 10!

Du er måske bekendt med at se flere websider i Firefox / Chrome / IE og skifte mellem dem ved let at klikke på tilsvarende faner. Her understøtter Office-fanen lignende behandling, som giver dig mulighed for at gennemse flere Word-dokumenter eller Excel-projektmapper i et Word-vindue eller Excel-vindue og nemt skifte mellem dem ved at klikke på deres faner.
Klik for gratis prøveversion af Office Tab!

Gennemse flere orddokumenter i et vindue som 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