Condividi:        

Testo da modificare con word 2007

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Testo da modificare con word 2007

Postdi giankar » 25/06/13 14:43

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
giankar
Newbie
 
Post: 5
Iscritto il: 25/06/13 13:26

Sponsor
 

Re: Testo da modificare con word 2007

Postdi ricky53 » 26/06/13 00:04

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 ?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Testo da modificare con word 2007

Postdi Anthony47 » 26/06/13 01:21

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Testo da modificare con word 2007

Postdi giankar » 26/06/13 13:23

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
giankar
Newbie
 
Post: 5
Iscritto il: 25/06/13 13:26

Re: Testo da modificare con word 2007

Postdi ricky53 » 26/06/13 13:26

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Testo da modificare con word 2007

Postdi Flash30005 » 26/06/13 16:52

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

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Testo da modificare con word 2007

Postdi giankar » 27/06/13 19:48

Bene
metto il link con il file di esempio e....un augurio a chi ci prova
Grazie
http://rapidshare.com/files/3619678202/ ... inale.docx
giankar
Newbie
 
Post: 5
Iscritto il: 25/06/13 13:26

Re: Testo da modificare con word 2007

Postdi Flash30005 » 28/06/13 09:21

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Testo da modificare con word 2007

Postdi Anthony47 » 01/07/13 01:33

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Testo da modificare con word 2007

Postdi giankar » 01/07/13 18:26

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
giankar
Newbie
 
Post: 5
Iscritto il: 25/06/13 13:26

Re: Testo da modificare con word 2007

Postdi Flash30005 » 02/07/13 03:57

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Testo da modificare con word 2007

Postdi Anthony47 » 02/07/13 11:45

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Testo da modificare con word 2007

Postdi giankar » 03/07/13 16:58

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
giankar
Newbie
 
Post: 5
Iscritto il: 25/06/13 13:26

Re: Testo da modificare con word 2007

Postdi Flash30005 » 04/07/13 11:36

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Testo da modificare con word 2007":


Chi c’è in linea

Visitano il forum: Nessuno e 62 ospiti