Discussioni progetto:Bibbia/Diodati/Salmi

Ultimo commento: 12 anni fa, lasciato da Samuele Papa in merito all'argomento Diodati Salmi

Discutiamone!

Impostazione Capitolo e Versetto modifica

In Word uso questa macro e sostituisco tutto in un passaggio:

Sub Capitoli()
 '
 ' Macro1 Macro
 ' Macro registrata il 16/06/06 da Gizetasoft
 '
 ' ricerca solo i capitoli di una sola cifra
 ' e li formatta [ {{v| 1:| *¶
 ' 1 ]
 ' l'asterisco inserito faciliterà la ricerca dell'a capo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Bold = True
        .Text = " ^#:"
        .Replacement.Text = " {{v|^&|*^p"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
 ' ricerca solo i capitoli di due cifre
 ' e li formatta [ {{v| 11:| *¶
 ' 1 ]
 ' l'asterisco inserito faciliterà la ricerca dell'a capo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Bold = True
        .Text = " ^#^#:"
        .Replacement.Text = " {{v|^&|*^p"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
 ' ricerca solo i capitoli di tre cifre (presenti nei Salmi)
 ' e li formatta [ {{v| 111:| *¶
 ' 1 ]
 ' l'asterisco inserito faciliterà la ricerca dell'a capo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Bold = True
        .Text = " ^#^#^#:"
        .Replacement.Text = " {{v|^&|*^p"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
 ' dopo il pipe vi è uno spazio che non serve
 ' lo ricerca
 ' [ {{v| 111:| *¶
 ' 1 ]
 ' e lo elimina
 ' [ {{v|111:|*¶
 ' 1 ]
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Bold = True
        .Text = "| "
        .Replacement.Text = "|"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
 ' ricerca i due punti prima del pipe
 ' [ {{v|111:|*¶
 ' 1 ]
 ' e li cancella
 ' [ {{v|111|*¶
 ' 1 ]
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Bold = True
        .Text = ":|"
        .Replacement.Text = "|"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
 ' nelle ricerche dei versetti inizia da quelli formati da tre cifre
 ' [¶
 ' 111 ]
 ' e li formatta
 ' [¶
 ' 111 }} ]
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^#^#^# "
        .Replacement.Text = "^&}}"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
 ' nelle ricerche dei versetti inizia da quelli formati da due cifre
 ' [¶
 ' 11 ]
 ' e li formatta
 ' [¶
 ' 11 }} ]
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^#^# "
        .Replacement.Text = "^&}}"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
 ' nelle ricerche dei versetti inizia da quelli formati da una cifra
 ' [¶
 ' 1 ]
 ' e li formatta
 ' [¶
 ' 1 }} ]
 Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^# "
        .Replacement.Text = "^&}}"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
 ' prima delle parentesi graffe chiuse vi è uno spazio che non serve
 ' lo ricerca
 ' [¶
 ' 1 }} ]
 ' e lo elimina
 ' [¶
 ' 1}} ]
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " }}"
        .Replacement.Text = "}}"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
 ' l'asterisco inserito facilita la ricerca dell'a capo
 ' [ {{v|111|*¶
 ' 1}} ]
 ' e lo elimina
 ' [ {{v|111|1}} ]
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Bold = True
        .Text = "*^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
 ' sostituisce il Grassetto con i caratteri Normali
    Selection.WholeStory
    Selection.Font.Bold = wdToggle
    Selection.Font.Bold = wdToggle
 
 ' Capitoli e versetti sono formattati!!!
 
 End Sub

Poi faccio cercare il titolo del libro (Salmi in questo caso) e lo sostituisco con nulla. Gizetasoft (disc.) 17:44, 5 ott 2011 (CEST)Rispondi

Non si riesce in nessun modo a recuperare quei corsivi che vengono persi? Samuele 18:06, 5 ott 2011 (CEST)Rispondi
Io alla macro ho aggiunto questo:
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Salmi"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<<"
        .Replacement.Text = "{{Centrato|"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ">>"
        .Replacement.Text = "}}"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Ottimo! Le soprascritte, però, sono in corsivo e con un carattere più piccolo; la sostituzione si potrebbe modificare con:

        .Replacement.Text = "{{Centrato|<small>''"
 e
        .Replacement.Text = "''</small>}}"

Gizetasoft (disc.) 19:34, 5 ott 2011 (CEST)Rispondi

Secondo te (voi) questa vesione dei Salmi potrebbe essere completa per un MATH&SPLIT oppure ci sono altre cose da modificare a livello di tutto il testo? (e non pagina per pagina come intestazioni note eccetera).
Ci sono, purtroppo, altre soprascritte che La Parola non riporta tipo al Salmo 1 Felicità dei giusti; castigo degli empi, ce l'hanno anche il 2, il 3 (oltre a quella già presente) lo stesso il 4 e, girando qualche pagina sembra che ce l'abbiano tutti o quasi; presumo saranno da copiare a mano
l'1 di ogni primo versetto sulla soprascritta dovrebbe scendere al versetto successivo e diventare Capolettera
gli apici ['] ho visto che nel Levitico sono stati sostituiti dagli apostrofi [Alt + 0146 ’] [vedi] Gizetasoft (disc.) 22:33, 5 ott 2011 (CEST)Rispondi

Conoscete il motivo per cui non mi parte questa macro? --Xavier121 23:45, 5 ott 2011 (CEST)Rispondi

Avete visto il lavoro che è riuscito a fare Alex Brollo con python? Mi sembra un che ci sia tutto (versetti, titoli, corsivi, apostrofi) e, attraverso un bot il lavoro diventerebbe ancora più semplice. Lo metto alla prova facendogli caricare qui tutti i salmi e vediamo come se la cava. Se riesce anche qui, il metodo può funzionareSamuele 07:15, 6 ott 2011 (CEST)Rispondi

Diodati Salmi modifica

Ho dato un'occhiata abbastanza completa al cartaceo e ho tratto delle indicazioni che ho postato [qui] cercando di rilevare tutte le difficoltà che si possono incontrare. Poi posterò il risultato delle formattazioni di base per una vostra valutazione. - Gizetasoft (disc.) 10:45, 6 ott 2011 (CEST) Dammi il tuo parere...Rispondi

I Salmi sono pronti [qui]
- Gizetasoft (disc.) 17:13, 6 ott 2011 (CEST) Dammi il tuo parere...Rispondi
Credo che il lavoro eseguito da Gizetasoft sia quasi completo. Adesso si può provare ad inserire già il template RigaIntestazione prima dello split e anche la chiusura delle colonne che poi inseriremo. Non so se chiedo troppo, ma il Phe-bot, riesce anche ad individuare le colonne oppure solo le pagine? Samuele 15:34, 7 ott 2011 (CEST)Rispondi
Ritorna alla pagina "Bibbia/Diodati/Salmi".