-
-
manca l'allegato. invia se riesci i due documenti e il documento finale
-
Ciao, l'allegato non riesco ad allegarlo.
Lo stesso ? nel forum inglese nel thread chiuso
Solved: Merg two texts and put them in a tables
grazie pasquale
-
Ciao Pasquale. Dunque, mi devi spiegare meglio perch?:
devi specificare quale sia il doc1 e quale il doc2
non trovo apici n? grk
-
Scusa hai ragione nel documento 1 (basic text) ci sono altri apici, il primo ? NA (abbreviazione di Nestle-Aland), il secondo documento ? variants readings, il risultato finale ? final result.
Pasquale
-
Ok, mi sembra abbastanza complesso. ci dar? un'occhiata nei prossimi giorni e vediamo se troviamo una soluzione
-
Grazie resto in attesa.
Pasquale
-
Pasquale, ci ho pensato un p? ma tutte le soluzioni che mi vengono in mente sono complesso e richiedono un bel p? di lavoro. prova a vedere su altri forum italiani se qualcuno ha una soluzione. mi spiace, ALe
-
Ciao Ale,
Grazie lo stesso, ho risolto la prima parte con una macro manuale (per intendersi spostare il testo sulla colonna di sinistra.
Per le varianti (2 documento) dovrei riuscire ad inserire prima nel testo i "versetti mancanti". Se hai notato il documento due non corrisponde esattamente come versetti all'uno.
Quindo dovrei cercare di inserire in qualche modo quei versetti che mancano anche solo come scritta Mt ecc.
Quindi userei la macro che ho fatto che inserisce il testo in una tabella precedentemente creata:
[VBA]
Sub Tabella1()
'
' Tabella1 Macro
' Macro registrata il 11/11/05 da ????????????????????
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "GRK Mt [0-9]{1;3}:[0-9]{1;3} *^13"
.Replacement.Text = "^pGRK"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Cut
Windows(1).Activate
Selection.Paste
Selection.MoveDown Unit:=wdLine, Count:=1
Windows(2).Activate
Selection.Find.ClearFormatting
With Selection.Find
.Text = "GRK Mt [0-9]{1;3}:[0-9]{1;3} *^13"
.Replacement.Text = "^pGRK"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Cut
Windows(1).Activate
Selection.Paste
Selection.MoveDown Unit:=wdLine, Count:=1
Windows(2).Activate
End Sub
[/VBA]
grazie lo stesso
-
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules