PDA

View Full Version : Solved: Merg two texts and put them in a tables



Pasquale
11-02-2005, 10:25 AM
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.: pray2: : pray2: : pray2:

Pasquale
11-09-2005, 05:41 AM
Is it, really difficult to do?
Then it is satisfactory putting in the table only the first document. Thanks
Pasquale

Pasquale
11-15-2005, 04:01 AM
This VBA macro works only for first documents.

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

Pasquale