Noten omzetten naar tekst in Word 2003
Frans T.Stoks
Ik ben op zoek naar een macro die het volgende voor mij doet in Word 2003.
Ik krijg ter redactie een wetenschappelijke tekst met honderden
voetnoten in Word aangeleverd. De hoofdstukken worden samengevoegd tot
een boek.
De noten moeten uit de Word tekst worden gehaald en in een apart
hoofdstuk met alleen de nootteksten achter in het boek komen. Op de
plaats waar de noot stond in de broodtekst, moet het nootcijfer in
superscript komen te staan.
Wie weet hoe ik dit handig en snel kan aanpakken, want zoals altijd is
er niet veel tijd voor de klus en het gaat om een boek van 500 pagina's
met wel 1000 noten.
Deze operatie is nodig omdat het boek in Quark Xpress of InDesign wordt
opgemaakt.
Of is er een manier voor de opmakers om dit probleem te omzeilen en kan
ik van de voetnoten eindnoten maken die de opmaker gewoon kan importeren?
Dank alvast voor alle tips. Het is een vaak voorkomend probleem bij de
productie van boeken.
FranS
jan
Eerst is er de mogelijkheid om alle voetnoten te converteren naar eindnoten.
Dit doe je via het scherm waarlangs je voet- en eindnoten kunt plaatsen.
Daarop staat een knop die dit mogelijk maakt.
Jan
"Frans T.Stoks" <frans.stoksatxs4all.nl> schreef in bericht
news:489bf4a1$0$29373$e4fe...@dreader25.news.xs4all.nl...
Frans T. Stoks
Dank voor je reactie.
Zo ver was ik ook al. Maar hoe gaat het nu verder? In de broodtekst en
in de nootteksten staan nu noten (een of andere ingewikkelde code van
Word, en ik moet daar eenvoudige superscript-cijfers krijgen.
Dat is het grootste probleem.
FranS
jan
Bedoel je dat de nummering met romeinse cijfers gaat.
Dat is blijkbaar standaard in Word.
Voordat je converteert (maar erna mag ook) open je het scherm waarmee je noten
toevoegt.
Kies daar Eindnoten.
Kies in de lijst de nummering die je wenst.
Klik op Toepassen.
Nu zou je nummering al een stuk dichter in de buurt moeten komen van wat je wilt.
Jan
"Frans T. Stoks" <frans.stoksatxs4all.nl> schreef in bericht
news:489d9b67$0$28653$e4fe...@dreader21.news.xs4all.nl...
jan
Als je voornoemde handelingen hebt uigevoerd, dan staan de eindnoten allemaal
bijelkaar aan het eind van het document.
Handmatig kun je alle eindnoten selecteren en dan op de knop Nummering drukken.
Als de eindnoten geen paragraaf-einden bevatten, komt die nummering nu overeen met
de eindnootnummering. Bevatten ze wel paragraaf-einden, dan moet hier een andere
oplossing voor komen.
Kopiëer de geselecteerde eindnoten en plak ze in een nieuw document.
Het enige dat je hier nog moet doen is alle eindnootnummeringen (nu allemaal 1)
verwijderen.
Als je in het oorspronkelijke document vervolgens deze macro draait, zullen alle
eindnoten worden verwijderd en elke verwijzing in de broodtekst omgezet worden naar
een superscript nummer, overeenkomend met de oorspronkelijke verwijzing.
Sub VervangNoten()
Dim i As Long
Dim rng As Range
With ActiveDocument
For i = .Endnotes.Count To 1 Step -1
Set rng = .Endnotes(i).Reference
rng = .Endnotes(i).Index
rng.Font.Superscript = True
Next
End With
End Sub
Gaat dit een beetje de gewenste kant op?
Jan
"Frans T. Stoks" <frans.stoksatxs4all.nl> schreef in bericht
news:489db98d$0$29015$e4fe...@dreader31.news.xs4all.nl...
> jan schreef:
> Jan,
> Het punt is juist dat er dan nog steeds Word-noten staan. Ik wil dat er
> alleen maar cijfers, uiteraard dezelfde als er stonden, staan in
> superscript, zonder al die nootinformatie. Die moet eruit gehaald worden
> en in een apart bestand (hoofdstuk) komen), zoals in wetenschappelijke
> boeken gebruikelijk is.
> Ik doe er een voorbeeldje bij.
> Het eerste fragment heeft nog steeds een echte Word-noot.
> Het tweede alleen een superscript-cijfer.
> Overigens alvast dank voor het meedenken.
> FranS
>
Frans T. Stoks
Er lijkt stralend licht aan het einde van een lange tunnel te gloren.
Dit is inderdaad wat ik zoek!
Helaas (?) moet ik nu met mijn echtgenote wat gaan eten buiten de deur.
Ik ga de macro een dezer dagen zo snel mogelijk proberen. Het ziet er
veelbelovend uit.
Dank en groet,
FranS
jan
Ik ben benieuwd of het einde van de tunnel inderdaad dichterbij gaat komen
Hier nog een kleine toevoeging om de weg wat te vergemakkelijken.
Ik schrijf:
"Kopiëer de geselecteerde eindnoten en plak ze in een nieuw document.
Het enige dat je hier nog moet doen is alle eindnootnummeringen (nu allemaal 1)
verwijderen."
Als je Plakken Speciaal kiest en kiest daar voor tekst zonder opmaak, dan zijn alle
eindnootnummeringen direkt al verdwenen.
Jan
"Frans T. Stoks" <frans.stoksatxs4all.nl> schreef in bericht
news:489dc814$0$28254$e4fe...@dreader11.news.xs4all.nl...