Помагите люди добрые, очень надо

:-)

МАкросы работают! в приложении 2 файла    
excel - исходная информация  
word - то что должно получиться  
 
как сделать чтобы автоматически раставлялись абзацы,выравнивания.    
 
Внешний вид документа должен соответствовать как в Word-овском файле.

Записал макрос с помощью макрорекордера в Ворде, вот что получилось:  
 
Sub Макрос6()  
'  
' Макрос6 Макрос  
'  
'  
   Selection.TypeText Text:="Договор"  
   Selection.TypeParagraph  
   Selection.TypeText Text:="Купли-Продажи"  
   Selection.TypeParagraph  
   Selection.TypeText Text:="№ 1212"  
   Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend  
   Selection.MoveLeft Unit:=wdCharacter, Count:=6, Extend:=wdExtend  
   Selection.Font.Bold = wdToggle  
   Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter  
   Selection.MoveDown Unit:=wdLine, Count:=1  
   Selection.TypeParagraph  
   Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft  
   Selection.Font.Bold = wdToggle  
   Selection.TypeText Text:="10.03.2010  " & vbTab & vbTab & vbTab & vbTab & _  
       vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "г.Москва"  
   Selection.TypeParagraph  
   Selection.TypeText Text:="Дата                                     " & _  
       vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & _  
       "город"  
   Selection.TypeParagraph  
   Selection.TypeText Text:=vbTab & _  
       "Мы, гр. Иванов, проживающий по адресу......"  
   Selection.TypeParagraph  
   Selection.TypeText Text:=vbTab & "1. Продавец"  
   Selection.WholeStory  
   With Selection.ParagraphFormat  
       .LeftIndent = CentimetersToPoints(0)  
       .RightIndent = CentimetersToPoints(0)  
       .SpaceBefore = 0  
       .SpaceBeforeAuto = False  
       .SpaceAfter = 0  
       .SpaceAfterAuto = False  
       .LineSpacingRule = wdLineSpaceSingle  
       .WidowControl = True  
       .KeepWithNext = False  
       .KeepTogether = False  
       .PageBreakBefore = False  
       .NoLineNumber = False  
       .Hyphenation = True  
       .FirstLineIndent = CentimetersToPoints(0)  
       .OutlineLevel = wdOutlineLevelBodyText  
       .CharacterUnitLeftIndent = 0  
       .CharacterUnitRightIndent = 0  
       .CharacterUnitFirstLineIndent = 0  
       .LineUnitBefore = 0  
       .LineUnitAfter = 0  
       .MirrorIndents = False  
       .TextboxTightWrap = wdTightNone  
   End With  
End Sub  
 
ВОПРОС: КАК ЭТО ВСЕ ВСТАВИТЬ ВОТ СЮДА????? У меня выскакивыют непонятные ошибки  
 
Sub Create_Word_Doc()  
Dim wbApp As object,wDoc As object,sStr as string  
 
sStr = "до города " & Range("A2") & " осталось " & Range("A1")  
Set wbApp = CreateObject("Word.Application"):wbApp.Visible = True  
Set wDoc = wbApp.Documents.Add  
wbApp.Selection.Text = sStr  
wDoc.SaveAs Filename:="C:\Test.doc"  
wDoc.Close:wbApp.Quit  
Set wDoc = Nothing:Set wbApp = Nothing  
End Sub