Transcriptie met regelnummers

Beste allemaal,

Bij het maken van transcripties is het handig om de regels te nummeren,

Loe Giesen...

[knip]

zodat er eenvoudig naar verwezen kan worden. Bij het maken van een
nieuwe transcriptie kan daar rekening mee worden gehouden, maar wat
moet je doen als de tekst al helemaal klaar is? Handmatig de nummering
aanbrengen is nu eenmaal geen prettig klusje.
Maar ook hier hebben we weer een computer voor. Het enige dat nodig is,
is een korte macro voor Word, zie de volgende code:

Loe Giesen...

Hallo Richard,

Word voorziet hier al standaard in. Op de werkbalk Opmaak zit de knop
Nummering.
Gewoon tekst selecteren, op knopje klikken. Klaar!

Niks macro dus, tenzij je gewoon van moeilijk houdt ;-)

Loe

PS: t.b.v. van de communicatie binnen de groep transcripties kan
regelnummering inderdaad zeer zinvol zijn bij wat langere teksten. Als
zodanig is het dan ook goed dat het onderwerp een keertje genoemd wordt.

Sub regelnummers()
Dim nummer As Single
Selection.HomeKey Unit:=wdStory
nummer = 1
Do
If (nummer Mod 5 = 0) Or nummer < 5 Then
Selection.TypeText nummer & vbTab
Else
Selection.TypeText " " & vbTab
End If

Selection.HomeKey Unit:=wdLine
If Selection.MoveDown(wdLine, 1) = 0 Then Exit Do
nummer = nummer + 1
Loop
End Sub

Dit werkt niet goed, wanneer de tekstregels te lang zijn. Pas de macro
dus alleen toe op documenten met een bescheiden regellengte, of kies je
instellingen zodanig (een liggend papierformaat, in plaats van staand)
dat er in het document geen wrapping plaatsvindt.
Let er ook op dat iedere regel wordt afgesloten met een
(carriage return, zegt de kenner).
Laat deze routine ook niet los op een origineel document, maar op een
kopie. Mocht er dan wat misgaan, dan is er geen man overboord.

Groeten van Richard