Recherche logiciel traitement de texte ou éditeur "particulier"

[Cyrille999]

Bonjour,

Pour ma grand mère qui a un grave problème de vision (DMLA), je désirais lui imprimer des documents avec les numéros de ligne, mais à la fois sur la marge gauche comme sur la marge droite (elle a une sorte de loupe grossissante qui ne lui permet pas de lire une ligne complète, ce qui fait qu'elle décroche régulièrement);

Ca peut être un traitement de texte, un truc sous word (ou du code VBA), un éditeur que vous connaissez, suis preneur de tout type de dispositif qui me permettra de numéroter chaque lignes dans les marges gauches et droites en même temps.

Merci,

Cyrille
-----

[Dormeur74]

Il y a Notepad++ (excellent et gratuit) qui dispose d'un zoom et d'une numérotation des lignes sur le côté gauche. Mais rien à droite : normal, lorsqu'on clique sur un numéro de ligne, toute la ligne se met en surbrillance.

[Dormeur74]

Désolé, j'avais mal lu (impression). Je vois ça ce matin.

[Dormeur74]

Je pense que ton besoin est un peu trop particulier pour le trouver tout cousu sur la toile.
En attendant, voici une macro sous Word qui te permettra de mettre en forme une page de 32000 lignes en Arial 14 avec les numéros de lignes à droite et à gauche. A toi de copier le texte dans la colonne centrale et de la mettre en forme avant impression.

Cette macro pourra être améliorée dans la mesure où l'ouverture d'un fichier peut être automatisé, de même que la mise en forme de la colonne centrale. Je n'ai malheureusement pas le temps en ce moment.

Sub MiseEnPage()
    Dim objWord As Application
    Dim objRange As Range
    Dim objTable As Table
    Dim objDoc As Document
    Dim I As Integer
    Dim NL As String
    Dim Col1 As String
   
    MsgBox "Veuillez patienter pendant le chargement des n° de lignes", vbInformation + vbOKOnly, "Chargement en cours"
    
    NL = Chr(13) ' New Line
    For I = 1 To 32000
        Col1 = Col1 & Trim(Str(I)) & NL
    Next I

    ' Pour ne pas toucher au modèle, on travaille dans un autre document
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    Set objDoc = objWord.Documents.Add()
    
    Set objRange = objDoc.Range()

    objDoc.Tables.Add objRange, 1, 3 ' On insère un tableau de 1 ligne et 3 colonnes
    
    Set objTable = objDoc.Tables(1)
    objTable.AutoFitBehavior (wdAutoFitContent)
    With objTable
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleDot
        .Borders(wdBorderVertical).LineStyle = wdLineStyleDot
    End With
    objTable.Cell(1, 2).Width = 480
    objTable.Cell(1, 1).Range.Text = Col1
    objTable.Cell(1, 3).Range.Text = Col1
    objTable.Cell(1, 2).Range.Text = "Copiez ici le document à imprimer et mettez la colonne centrale en Arial 14 avant de lancer l'impression."
    objTable.Range.Font.Size = 14
    objTable.Range.Font.Name = "Arial"
    objTable.Range.Font.Bold = True

   
End Sub

[A voir en vidéo sur Futura]

[Fistos]

Bonjour,

Et si tu utilisais Excel en créant trois colonnes : une étroite, une large et une étroite
Tu mets les numéros de ligne dans les colonnes étroites (automatisme après avoir tapé 1 et 2) et le texte (copier coller) au milieu.
Tu adaptes les largeurs pour correspondre à une page A4
C'est peut-être à essayer.

[Cyrille999]

Bonjour à vous deux,

Merci d'abord pour votre réponse.

@Fistos: J'ai déjà essayé --- mais c'était pas génial et peu pratique; Je vais récupérer des textes du net sur des sujets qui l'intéressent, et les petits essais que j'ai pu effectué n'ont rien donné.

@Dormeur74: Oui, NotePad+++ ainsi que d'autres éditeurs ne numérotent qu'à gauche; En revanche, je te remercie BEAUCOUP pour la macro sous WORD, je vais la copier, la tester et je te fais un retour dès que possible !

A+
Cyrille