Consulting

Results 1 to 3 of 3

Thread: Solved: Merg two texts and put them in a tables

  1. #1

    Solved: Merg two texts and put them in a tables

    Hallo, I still need help for biblical study.

    I have two documents, the first one contain the basics texts, the second one contain the variants readings.
    I must obtain a third document containing a table formed by two columnes and as many lines as the number of texts in the first document.
    Every basics texts is formed by a number of lines (8) marked by the same number (example 1:1, 1:2, 1:3, 2:1, 2:2,?., x:n); that link it to his variants readings with the same number. Not all the texts has their variants readings.
    Possibly the lines of a text that have the same number should not be divided into two differnts pages.
    Example enclosed.

  2. #2
    Is it, really difficult to do?
    Then it is satisfactory putting in the table only the first document. Thanks
    Pasquale

  3. #3
    This VBA macro works only for first documents.
    [VBA]
    Sub Tabella1()
    '
    ' Tabella1 Macro
    ' Macro registrata il 11/11/05 da Pasquale
    '
    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]
    Pasquale

Posting Permissions

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