Dim WordApp As Word.Application
Dim Document As Word.Document
Dim Range As Word.Range
Dim selection As Word.selection

' открыть документ'
Set WordApp = CreateObject( "Word.Application" )


WordApp.Application.Documents.Add , , , True
WordApp.Application.Visible = True
Set Document = WordApp.Application.ActiveDocument
Set Range = Document.Range
Set selection = WordApp.Application.selection

'все что увидишь ниже легко записывается макрорекордером в Ворде'
'это вставка логотипа'
selection.InlineShapes.AddPicture FileName:= _
     "C:\base\timesheet\pic\rxlogo.GIF" , LinkToFile:=False, _
    SaveWithDocument:=True
  selection.MoveUp Unit:=wdLine, Count:= 1 , Extend:=wdExtend
  selection.InlineShapes( 1 ).Height =  28 . 35 
  selection.InlineShapes( 1 ).Width =  141 . 75 


selection.MoveDown Unit:=wdLine, Count:= 1 , Extend:=wdExtend
  selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
  selection.TypeParagraph

   
   selection.Font.Bold = wdToggle
  selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  selection.TypeText Text:=vbCrLf &  "РЕЗЮМЕ СОТРУДНИКА ООО "  & Chr( 34 ) &  "ФИРМА"  & Chr( 34 )
  selection.TypeParagraph