How can I "interpret or convert" an Object variable to a Word.Document ?

Question

How can I "interpret or convert" an Object variable to a Word.Document ?

KeldSor 396

In fact it's a FileSystemObject I want to interpret as an Word.Document in VBA !

How can I do that ?

Viorel 127K Reputation points

2023-07-06T14:07:42.9433333+00:00

How did you obtain the FileSystemObject?

KeldSor 396

@Viorel

Here ia my traversing code:

Sub TraverseFolderHierarchy(topFolder As String)
    ' test med denne: TraverseFolderHierarchy "C:\Users\kelds\Desktop\TestFolder\"
    '
    ' ENGANGS-rutine !!!!!!!!!!!!!!!!!!
    '
    ' Gennemløber alle Doc*-filer i pathToTopFolder-mappen
    ' og indsætter en Footer, hvis den ikke allerede ER indsat
    Dim fs As Object
    Dim folder As Object
    Dim file As Object
    ' Create a file system object
    Set fs = CreateObject("Scripting.FileSystemObject")
    ' Get the top folder
    Set folder = fs.GetFolder(topFolder)
    ' Traverse subfolders
    For Each folder In folder.Subfolders
        If Left(folder.Name, 1) <> "~" Then
            ' Process files in the subfolder
            For Each file In folder.Files
                If Left(file.Name, 1) <> "~" Then
                    If Split(file.Name, ".")(1) = LCase("doc") Or Split(file.Name, ".")(1) = LCase("docx") Then prepareDoc file.Path
                    DoEvents
                End If
            Next file
        End If
    Next folder
    ' Process files in the top folder
    Set folder = fs.GetFolder(topFolder)
    For Each file In folder.Files
        If Left(file.Name, 1) <> "~" Then
            If Split(file.Name, ".")(1) = LCase("doc") Or Split(file.Name, ".")(1) = LCase("docx") Then prepareDoc file.Path
        End If
    Next file
    Set fs = Nothing
    Set folder = Nothing
    Set file = Nothing
End Sub

but I changed it to "prepareDoc FIle.Path" instead of an FileSystemObject

2 answers

Your answer

Viorel 127K Reputation points

2023-07-06T14:07:42.9433333+00:00

How did you obtain the FileSystemObject?
KeldSor 396 Reputation points

2023-07-06T14:34:14.4+00:00

@Viorel

Here ia my traversing code:

Sub TraverseFolderHierarchy(topFolder As String) ' test med denne: TraverseFolderHierarchy "C:\Users\kelds\Desktop\TestFolder\" ' ' ENGANGS-rutine !!!!!!!!!!!!!!!!!! ' ' Gennemløber alle Doc*-filer i pathToTopFolder-mappen ' og indsætter en Footer, hvis den ikke allerede ER indsat Dim fs As Object Dim folder As Object Dim file As Object ' Create a file system object Set fs = CreateObject("Scripting.FileSystemObject") ' Get the top folder Set folder = fs.GetFolder(topFolder) ' Traverse subfolders For Each folder In folder.Subfolders If Left(folder.Name, 1) <> "~" Then ' Process files in the subfolder For Each file In folder.Files If Left(file.Name, 1) <> "~" Then If Split(file.Name, ".")(1) = LCase("doc") Or Split(file.Name, ".")(1) = LCase("docx") Then prepareDoc file.Path DoEvents End If Next file End If Next folder ' Process files in the top folder Set folder = fs.GetFolder(topFolder) For Each file In folder.Files If Left(file.Name, 1) <> "~" Then If Split(file.Name, ".")(1) = LCase("doc") Or Split(file.Name, ".")(1) = LCase("docx") Then prepareDoc file.Path End If Next file Set fs = Nothing Set folder = Nothing Set file = Nothing End Sub

but I changed it to "prepareDoc FIle.Path" instead of an FileSystemObject

Answer 1

@Olaf Helper

OK, maybe it's not posible in VBA to 'view' one type of object as another object so I tried something else.

I have this snippet of code:

Sub prepareDoc(fn As String)
    Dim WordApp As New Word.Application
    Dim doc As Document
    Set doc = WordApp.Documents.Open(fn)      <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (A)
    InsertAndUpdateFieldsInFooter doc
    doc.Save
    doc.Close
    Set doc = Nothing
    WordApp.Quit
    Set WordApp = Nothing
End Sub

I know for a fact that:

"InsertAndUpdateFieldsInFooter doc" works as designed because I use it from an event I've set up in Word.
My code for traversing the folder hieraki and returning med file names one by one of the Word files in the folder hieraki works too because I've tested that it returnes all the Word files names in the folder hieraki.

The ONLY thing left now is to "open the returned file name in a hidden Word instance, do the editing of the footer, save the document and quit Word application.

I think the code above is "by the book" and it should do that ...

but the line marked (A) above wont let me do it - it starts an instanse with this dialog locking it all up:

and I CANT do something about that in the "Security center ..." - I've tried, it makes NO difference !

SOMETHING is wrong here - but what is it ?

Answer 2

Olaf Helper 47,621

Your requirements are not clear for me?

A FileSystemObject is something very different then a Word.Document object.

KeldSor 396 Reputation points

2023-07-06T12:30:46.52+00:00

@Olaf Helper

Yeah, yeah, that's why I want to "interpret or convert" it - you see ?

There is a term for that process in C#-programming, but I can't remember what it is ... but maybe it's not posibel in VBA.

The situation is that I have 1000's of Word documents in a folder hieraki, and I'm traversing that hieraki and extracting all of the Word files one by one as a FiliSystemObject.

I want to interpret the returned FileSystemObject as a Word Document (because it IS in fact a Word document), open it and do some editing and saving it again.

... then request a another FiliSystemObject from the folder hieraki ... ect, ect for all Word files in the folde hieraki.

Share via

How can I "interpret or convert" an Object variable to a Word.Document ?

2 answers

Your answer