Dessverre finnes det ikke noen metode for å automatisk endre et fotnote formatert Word dokument med EndNote referanser, til et forfatter-år formatert dokument (f.eks. endre fra Chicago 16th Footnote stil til APA 7th).
Bruk visuelle tagger til å organisere dine referanser. Beskytt arbeidet ditt med nye funksjoner for gjenoppretting av ditt bibliotek og tilbakestilling av referansedata. Send oss en epost til info (at) alfasoft.com eller Kjøp her!
Her er våre to løsningsforslag
Manuell metode
I korthet: Konverter dokumentet ditt til uformaterte referanser, og klipp-og-lim-inn de uformaterte fotnote referansene over fotnote-tallet i teksten. Deretter formaterer du dokumentet på nytt med din nye stil.
1. Lag en hurtigtast for å raskt hoppe fra fotnote i tekst til fotnote nederst på siden, og tilbake igjen.
Word: Fil > Alternativer > Tilpass båndet > Hurtigtaster: Tilpass > Velg først "Fanen Referanser" i venstre vindu, og deretter "VisFotnoter" i høyre vindu. > Trykk en gang i "Trykk ny hurtigtast" feltet, og trykk deretter tastene du ønsker å bruke som hurtigtast for å hoppe til/fra fotnoter (mitt valg ble de tre tastene Shift+Alt+F).
2. Åpne Word dokumentet du ønsker å konvertere fra fotnoter til forfatter-år stil, og konverter det til uformaterte referanser.
- Husk å ta en backup! (Word: Fil > Lagre som > Lagre en kopi av dokumentet)
- Konverter til uformaterte referanser. (Word [EndNote]: Convert citations and bibliography > Convert to unformatted citations)
3. For hver fotnote-tall i dokumentet ditt, klikk fotnoten, hopp til fotnoten nederst på siden (ved å bruke hurtigtast eller dobbelklikke fotnoten), klipp ut referansen med krøllparentesene, gå tilbake til fotnoten i teksten (ved å brukehurtigtasten eller navigere), slett fotnotetallet og lim inn den uformaterte referansen.
4. Formater dokumentet i din nye forfatter-år stil.
Word [EndNote]: Bytt til ønsket stil i Bibliography nedtrekksmenyen og klikke deretter Update citations and bibliography.
Her er en video som viser dette:
https://youtu.be/RRGehx4pGBw
Automatisk metode
I korthet: Legg til en makro til din Word som sletter og bytter ut fotnote-tallet i teksten din, med det som står i fotnoten din nederst på siden (og sletter tegn foran fotnote-tall, legger til mellomrom foran, og punktum etter).
1. Opprett en ny, tom makro i din Word.
Word [Visning]: Makroer > Skriv inn Fotnote2Tekst i Fotnotenavn: feltet øverst i vinduet som dukker opp > Opprett
2. Kopier makro-koden under, og lim inn i makro-redigeringsvinduet i din Word (overskriv alt, slett det som måtte ligge av kode i makro vinduet).
3. Velg Lagre. Du har nå opprettet en ny makro i din Word og kan lukke Makro redigeringsvinduet.
4. Åpne Word dokumentet du ønsker å konvertere fra fotnoter til forfatter-år stil, og konverter det til uformaterte referanser.
- Husk å ta en backup! (Word: Fil > Lagre som > Lagre en kopi av dokumentet)
- Konverter til uformaterte referanser. (Word [EndNote]: Convert citations and bibliography > Convert to unformatted citations)
5. Kjør din Fotnote2Tekst makro.
Word [Visning]: Makroer [Pil] > Vis makroer > Klikk/marker Fotnote2Tekst makroen i listen og klikk Kjør knappen.
6. Formater dokumentet i din nye forfatter-år stil.
Word [EndNote]: Bytt til ønsket stil i Bibliography nedtrekksmenyen og klikke deretter Update citations and bibliography.
Her er en video som viser dette:
https://youtu.be/cF-Owv9a_30
Merk at makroen sletter tegnet foran fotnote-tallet (som oftest er jo dette punktum), legger inn et mellomrom, så referansekoden, og til slutt setter makroen inn et punktum. Skulle du ønske noe annet kan du endre koden under. Fjern f.eks. "Selection.TypeBackspace" dersom du ikke ønsker at makroen skal slette et tegnet foran fotnote-tallet, og fjern f.eks. "." fra linjen Selection.Text = " " + szFootNoteText + ".", for å ikke sette inn punktum etter referansen.
- - - MAKRO KODE - KOPIER ALT UNDER DENNE LINJEN - - -
Sub Footnote2Intext()
Dim oFeets As Footnotes
Dim oFoot As Footnote
Dim oRange As Range
Dim szFootNoteText As String
' Grabs the collection of FootNotes
Set oFeets = Word.ActiveDocument.Footnotes
' Iterates through each footnote
For Each oFoot In oFeets
szFootNoteText = oFoot.Range.Text
'Start search from beginning of document
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^f" ' Looks for all footnotes
.Forward = True
.Wrap = wdFindStop
End With
Selection.Find.Execute
' Delete the footnote
oFoot.Delete
Selection.TypeBackspace
'Insert the footnote text
Selection.Text = " " + szFootNoteText + "."
'Disables undo to save memory on very large documents.
ActiveDocument.UndoClear
Next
End Sub