Greetings !

Programming is my weak spot but that doesnt stop me from trying to ease up my work. I have found code on internet that retrieves data in formfields in Word documents that are in directory. This is code:
Sub PoberiPodatke()
Dim oPath As String
Dim FileArray() As String
Dim oFileName As String
Dim i As Long
'Requires reference to MS ActiveX Data Objects 2.8 Library
Dim vConnection As New ADODB.Connection
Dim vRecordSet As New ADODB.Recordset
Dim myDoc As Word.Document
'Call a Function to identify the common batch folder
oPath = GetPathToUse
If oPath = "" Then
MsgBox "A folder was not selected"
Exit Sub
End If
'Identify the files names
oFileName = Dir$(oPath & "*.doc")
ReDim FileArray(1 To 1000) 'A number larger the expected number of replies

When I try to apply this same code (macro) in HTTP enviroment through SharePoint Portal server it doesnt work.
Problem probably lies in bolded and underlined part.

Can someone help ? With what can I swap bolded line to be able to get Word data?

I would be very gratefull and thankfull !!!

Kepezzo