Hoppa till huvudinnehåll

Hur man konverterar alla slutnoter till vanlig text i Word

Konvertera slutnoter till text är bekvämt för dig att redigera eller ta bort dem. Om du till exempel vill välja slutnoterna med den andra vanliga texten på en gång tillåter inte Word det. Hur kan du få det gjort enkelt? Denna handledning visar dig flera metoder för att konvertera slutnoter till vanlig text.

Konvertera slutnoter till text manuellt

Konvertera slutnoter till text med VBA

Konvertera slutnoter till text med Kutools for Wordbra idé3


Konvertera slutnoter till text manuellt

1. Placera markören där slutnoterna finns och tryck sedan på Ctrl + A för att välja alla slutnoter från dokumentet. Se skärmdump:

2. Tryck Ctrl + C för att kopiera slutnoterna.

3. Tryck Ctrl + End för att flytta markören till slutet av hela dokumentet och före slutnoterna.

4. Tryck Ctrl + V för att klistra in slutnoten till slutet av dokumentet. Ordningen på slutnoterna kommer att vara intakt, men de klistrade slutnoterna ändrades. Se skärmdump:

5. Byt ut hela siffran 1 före texten med originalnummerslistan manuellt.


Konvertera slutnoter till text med VBA

I ord kan du också konvertera slutnoter till vanlig text med VBA-kod.

1: Tryck Alt + F11 att öppna en Microsoft Visual Basic for Applications-fönstret;

2: Klicka Modulerna från Insert fliken, kopiera och klistra in följande VBA-kod i Modulerna fönster;

3: Klicka Körning knappen eller tryck på F5 att tillämpa VBA.

VBA som konverterar slutnoter till text:

Underkonverteringsnot ()
Dim aendnote Som Endnote
För varje aendnote i ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Nästa kommentar
För varje aendnote i ActiveDocument.Endnotes
aendnote.Reference.Delete
Nästa kommentar
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find.Replacement.Font
.Superscript = Sant
Sluta med
Med Selection.Find
.Text = "(a) ([0-9] {1,}) (a)"
.Replacement.Text = "\ 2" v Framåt = Sant
.Wrap = wdFindContinue
.Format = sant
.MatchWildcards = Sant
Sluta med
Selection.Find.Execute Replace: = wdReplaceAll
End Sub

Notera: Du kan ändra början och slutet av makrot för att möta dina gillar.


Konvertera slutnoter till text med Kutools for Word

För de nya datorhänderna är VBA för komplicerat att hantera. Men med Kutools för Word installerat kan du snabbt konvertera alla slutnoter till text med Convert Endnotes to Text med ett klick.

Kutools för Word, med mer än  praktiska funktioner, underlättar dina jobb. 

När du har installerat Kutools för Word, gör så här:(Gratis nedladdning Kutools för Word nu!)

1. Använd detta verktyg genom att klicka på Kutools > Konvertera > Convert Endnotes to Text. Se skärmdump:

doc kutools konverterar slutnoter till text 1

2. Efter att ha klickat Convert Endnotes to Text, kommer du att se resultatet som nedanstående skärmdumpar visar:




Relativ artikel:


Tabbad surfning och redigering av flera Word-dokument / Excel-arbetsböcker som Firefox, Chrome, Internet Explore 10!

Du kanske är bekant att visa flera webbsidor i Firefox / Chrome / IE och växla mellan dem genom att enkelt klicka på motsvarande flikar. Här stöder Office Tab liknande bearbetning, som låter dig bläddra i flera Word-dokument eller Excel-arbetsböcker i ett Word-fönster eller Excel-fönster och enkelt växla mellan dem genom att klicka på deras flikar.
Klicka för gratis provversion av Office Tab!

Bläddra i flera orddokument i ett fönster 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