Повторяющиеся данные, длинные строки, VBS

[Boris26rus]

Добрый вечер.
Я только учусь писать на VBS. Общий смысл такой - берем данные из Excel и переносим их в Word.
Проблема:
1. в Excel-файле бывают несколько одинаковых строк, которые все переносятся в Word. Но мне не надо их переносить, если они одни и те же (например в Excel есть: Иванов, Петров,Иванов, то перенести нужно: "Иванов, Петров")

Но получается так:
"Петров
прож. по адресу:
Иванов
прож. по адресу:
Иванов
прож. по адресу:"
А нужно:
"Иванов
прож. по адресу:
Петров
прож. по адресу:"

2. при запуске, когда много фамилий, выдает ошибку - "Слишком длинный строковый параметр"
3. после создания нового файла, если закрыть документ ворд и потом открыть, то фамилии отображаются в одну строку, а не в столбец.

Set oArg = Wscript.Arguments
fName = oArg.Item(0)

Set objCon = CreateObject("ADODB.Connection")
Set objRec = CreateObject("ADODB.Recordset")

'objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&fName&";Extended Properties=""Excel 8.0;HDR=Yes;"";"
objCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&fName&";Extended Properties=""Excel 12.0 Xml;HDR=Yes;"";"
objRec.Open "Select * From [1$]",objCon,3,3

i=1
Do Until objRec.EOF
	 	
	 IF i=2 THEN raschet=objRec.Fields(0)
	 i=i+1

	 IF objRec.Fields(2) = "Фамилия" 	THEN por1 	= por1&chr(13)&objRec.Fields(3)&"," &chr(13)& "прож. по адресу:"
	 IF objRec.Fields(2) = "Договор:" 	THEN dp 	= dp&objRec.Fields(3)&", "
                            
 	 objRec.MoveNext
Loop

Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Const wdReplaceAll = 2

autor = oWord.username

Set oDoc = oWord.Documents.Open("C:\1\Данные\1.rtf")
Set oSel = oWord.Selection
oSel.Find.Forward = TRUE
oSel.Find.MatchWholeWord = TRUE

oSel.Find.Execute "por1"   	,,,,,,,,,por1    	,wdReplaceAll
oSel.Find.Execute "dp"   	,,,,,,,,,dp	    	,wdReplaceAll
oSel.Find.Execute "raschet"	,,,,,,,,,raschet 	,wdReplaceAll
oSel.Find.Execute "autor"	,,,,,,,,,autor		,wdReplaceAll

oDoc.SaveAs("c:\1\1 "&dp&".doc")

Помогите, пожалуйста!