Программа работает только на машине с установленным OfficeXP - VB

Формулировка задачи:

Сделал программу, которая выводит отчёт в Ворд. И возникла проблема: программа работает только на машине с установленным OfficeXP. С 2003 офисом не работает. Что не так?

Решение задачи: «Программа работает только на машине с установленным OfficeXP»

textual
                            Листинг программы 
                        

                            Dim objWord As Object
Dim Wordtablo As Variant
Dim X As Integer
Dim Dataone As Date
Dim Datatwo As Date
 
Private Sub btnKnopkas_Click()
Dim Summavremya As Integer
Dim Summavirt As Currency
Dim Summanal As Currency
Dim Summavirtall As Currency
Dim Summanalall As Currency
Dim a As Integer
 
Set objWord = CreateObject('Word.Application')
objWord.Visible = True
 
Set Virabotka = objWord.Documents.Add
Virabotka.Activate
objWord.Application.Selection.PageSetup.Orientation = wdOrientLandscape
With objWord.Application.Selection
.InsertAfter 'lblDataone.Caption & ' - ' & lblDatatwo.Caption & ')'
.Font.Color = wdColorBlue
.Font.Size = 16
.Font.Bold = True
.ParagraphFormat.Alignment = 1
.InsertParagraphAfter
.InsertParagraphAfter
.EndOf
.Font.Color = wdColorBlack
.Font.Size = 12
.Font.Bold = False
End With
End Sub
                        