Testo da modificare con word 2007

[giankar]

Salute a tutti
sono nuovo, purtroppo ho un problema che non riesco a risolvere, ho dei testi biblici abbastanza lunghi con numeri e versetti
riporto un esempio ridotto

testo originale
1 In principio Dio creò i cieli e la terra. 2 Ora la terra risultò essere informe e vuota e c'erano tenebre sulla superficie delle acque dell'abisso; e la forza attiva di Dio si muoveva sulla superficie delle acque. 3 E Dio diceva: "Si faccia luce". Quindi si fece luce. 4 Dopo ciò Dio vide che la luce era buona, e Dio operò una divisione fra la luce e le tenebre.

Vorrei disporre il testo con tutti i numeri riportati sulla sinistra come da esempio modificato esposto qui sotto

1 In principio Dio creò i cieli e la terra.
2 Ora la terra risultò essere informe e vuota e c'erano tenebre sulla superficie delle acque dell'abisso; e la forza attiva di Dio muoveva sulla superficie delle acque.
3 E Dio diceva: "Si faccia luce". Quindi si fece luce .
4 Dopo ciò Dio vide che la luce era buona, e Dio operò una divisione fra la luce e le tenebre.

Lavoro con word 2007 Forse ci vuole una macro? Non sono un esperto
Qualcuno mi può aiutare? Grazie infinite

[ricky53]

Ciao,
prima di tutto benvenuto nel nostro forum.

Nei testi oltre ai numeri che identificano i versi ci sono altri numeri?

Quanti sono i versetti ?

[Anthony47]

Ciao giankar, benvenuto anche da parte mia.
L' alternativa alla macro esiste, ed e' la tastiera...
Se la legge sul copyright te lo consente, prova a pubblicare uno stralcio del file di partenza, per verificare se ci sono i presupposti per individuare con certezza l' inizio dei versetti; per come fare guarda qui: viewtopic.php?f=26&t=80395

Ciao

[giankar]

Grazie del benvenuto e dell'interesse
provo a rispondere a ricki53
(Nei testi oltre ai numeri che identificano i versi ci sono altri numeri?) Si ci sono anche i numeri dei capitoli ad esempio il primo libro della Bibbia chiamato Genesi contiene capitoli numerati da 1 fino a 50

(Quanti sono i versetti ?) I versetti all'interno dei capitoli non sono sempre dello stesso numero, ad esempio il capitolo numero 1 della Genesi contiene 31 versetti, il capitolo 2 ne contiene 25 e così via

Dovendo seguire il consiglio di Anthony47,

dovrei caricare su Rapidshare un file in formato word che contiene un capitolo della Bibbia nella formattazione che io posseggo, in modo che ci si possa lavorare sopra? Dico bene?
Scusate se non ho capito
Saluti

[ricky53]

Ciao,
si un tuo file di esempio sarebbe utilissimo per cercare di individuare un criterio che ci consenta di arrivare al risultato che vuoi ottenere.

Il file, senza dati riservati, deve essere una copia ridotta ma rispondete alla tua situazione reale.

[Flash30005]

Ciao Giankar e benvenuto anche da parte mia
come server host è preferibile questo

ciao

[giankar]

Bene
metto il link con il file di esempio e....un augurio a chi ci prova
Grazie
http://rapidshare.com/files/3619678202/ ... inale.docx

[Flash30005]

In attesa di soluzioni migliori puoi provare questa macro

Codice: Seleziona tutto

Sub ACapo()

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "."
        .Replacement.Text = ".^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ShowVisualBasicEditor = True
End Sub

Che trova tutti i punti e aggiunge, in questo caso, un a capo ma...

ciao

[Anthony47]

Mah... Il testo presentato non contiene nessun elemento per identificare inequivocabilmente la numerazione di un versetto (mi aspettavo di trovare ad esempio caratteri con effetto superscript).
Questa versione di macro e' appena piu' sofisticata di quella di Flash:

Codice: Seleziona tutto

Sub ACapoc()
For I = 1 To 1000
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ". " & I
        .Replacement.Text = ".^p" & I
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ShowVisualBasicEditor = True
Next I

End Sub


Invece di cercare semplicemente il "punto" cerca ". 1", ". 2", ". 3" etc fino a 1000

Ciao

[giankar]

Vi ringrazio moltissimo
le macro mi vanno bene così era quello che cercavo, una cosa semplice, ma per me molto difficile.
Chiedo un'ultima cosa, se volessi evidenziare i numeri in grassetto che istruzione dovrei aggiungervi?
Saluti

[Flash30005]

Tre cose manuali le devi fare
1) elimini il testo "Capitolo 1"
2) elimini il numero 1 del primo paragrafo

poi attivi questa macro combinata

Codice: Seleziona tutto

Sub ACapoc()
For I = 1000 To 1 Step -1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ". " & I
        .Replacement.Text = ".^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ShowVisualBasicEditor = True
Next I
FormEle
End Sub
Sub FormEle()

    Selection.WholeStory
    With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = "%1."
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0.63)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.27)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = True
            .Italic = False
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = ""
    End With
    ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _
        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
        wdWord10ListBehavior
End Sub


3) Digiti il testo "Capitolo 1" e lo formatti

Ciao

[Anthony47]

Nel caso che il risultato della macro di Flash (vedi sopra) non sia risolutivo, questa lavora acro formattando il testo del capoverso:

Codice: Seleziona tutto

Sub ACapoc2()

For I = 1 To 100
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ". " & I
        .Replacement.Text = ".^p" & I
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ShowVisualBasicEditor = True
Next I
'
'Aggiunta per formattare i capoversi
For I = 1 To 100
    Selection.HomeKey Unit:=wdStory
    StringaF = "^p" & I
    '
reFind:
    With Selection.Find
    .Text = StringaF
    .Execute Forward:=True, Format:=False
    End With
    If Selection.Characters.Count = Len(Mid(StringaF, 2, 99)) Then Selection.Font.Bold = True
        Selection.MoveEnd Unit:=wdCharacter, Count:=2
    If Selection.Characters.Count > Len(StringaF) Then
        Selection.Move Unit:=wdWord, Count:=1
        GoTo reFind
    End If
Next I
    Selection.HomeKey Unit:=wdStory
End Sub


Ciao

[giankar]

Tutto bene solo un particolare che penso di aver rimediato, ossia tutte e due le macro dopo aver compilato quattro pagine complete, le successive sono quasi in bianco si vede solo un versetto numerato per ogni pagina, le pagine si sono così moltiplicate a dismisura.
Ho selezionato il tutto ho agito sugli stili ho eliminato le spaziature ed il testo è rientrato in poche pagine, in ogni caso come a me interessava, con i numeri a sinistra ed in grassetto.
Vi ringrazio enormemente per i vostri suggerimenti
Saluti

[Flash30005]

Evidentemente superi i 1000 versi
devi solo modificare il valore 1000 della macro in questa riga codice

Codice: Seleziona tutto

For I = 1000 To 1 Step -1

e portare il valore ad un numero superiore ai versi che hai (se esageri è meglio)

ciao