Consulting

Results 1 to 10 of 10

Thread: Italiano: Fondere due documenti

  1. #1

    Italiano: Fondere due documenti

    Ciao a tutti gli utenti che conoscono l'italiano.
    Spero di ricevere aiuto.
    Ho due lunghi documenti da inserire in una tabella con due colonne e tante righe.
    Nella colonna di sinistra deve andare il contenuto del documento 1 e nella colonna di destra il contenuto del secondo documento.
    Fin qui ? facile copia e incolla.
    Quindi il testo della colonna di sinistra dovrei dividerlo in tante righe quanti sono dei blocchi di testo - blocchi che cominciano con la parola GRK (carattere apice): Ogni blocco ? anche differenziato dagli altri da due numeri separati da :
    esempio 1:2, 1:2, 1:3 eccetera 2:1, 2:2, e cos? via.

    Il secondo documento deve essere inserito nella colonna di sinistra e nelle righe corrispondenti ai blocchi di testo della colonna di sinistra in base al numero proima citato.

    I font devono restare inalterati.
    Ho postato questo thread sul forum normale ma forse il mio inglese era troppo incomprensibile.
    Allegato un esempio dei due documenti con il risultato finale voluto.
    grazie Pasquale

  2. #2
    VBAX Mentor ALe's Avatar
    Joined
    Aug 2005
    Location
    Milan
    Posts
    383
    Location
    manca l'allegato. invia se riesci i due documenti e il documento finale

  3. #3
    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

  4. #4
    VBAX Mentor ALe's Avatar
    Joined
    Aug 2005
    Location
    Milan
    Posts
    383
    Location
    Ciao Pasquale. Dunque, mi devi spiegare meglio perch?:

    devi specificare quale sia il doc1 e quale il doc2
    non trovo apici n? grk

  5. #5
    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

  6. #6
    VBAX Mentor ALe's Avatar
    Joined
    Aug 2005
    Location
    Milan
    Posts
    383
    Location
    Ok, mi sembra abbastanza complesso. ci dar? un'occhiata nei prossimi giorni e vediamo se troviamo una soluzione

  7. #7
    Grazie resto in attesa.

    Pasquale

  8. #8
    VBAX Mentor ALe's Avatar
    Joined
    Aug 2005
    Location
    Milan
    Posts
    383
    Location
    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

  9. #9
    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

  10. #10
    VBAX Mentor ALe's Avatar
    Joined
    Aug 2005
    Location
    Milan
    Posts
    383
    Location
    Bel lavoro!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •