From Excel/VBA open a Word Doc and change opened document style to "normal"

[drom]

Hi and Thanks in advance!


I am Opening a Word Doc Using Excel/VBA (No problem)

Dim wApp As New Word.Application
Dim wDoc As Word.Document

wApp.Visible = True 'False
Application.DisplayAlerts = False
Set wDoc = wApp.Documents.Open(wPageFile, False)
                                                  'wPageFile   =   Is a existing FullName File
Dim docMultiple As Document
Set docMultiple = wApp.Documents(1)
docMultiple.Content.Select                        'Selects the entire  Word Dument (I do not know If this is necessarym If no avoid selecting the entire word doc

Here this does not work:

                                      docMultiple.Style = ActiveDocument.Styles("Normal")

'ActiveDocument.FullName = wPageFile

I get this err Code:

?Err, Err.Description
 438          Object doesn't support this property or method

Thanks!

 

[Logit]

Your macro does not work here. Receiving too many error messages.

The following does work here :

Option Explicit

Sub OpenWordDocument()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim filePath As String
    
    ' Set the file path of the Word document to open
    filePath = "C:\Users\logit\OneDrive\Desktop\Untitled 1.docx"
    
    On Error Resume Next
    ' Create a new Word Application object
    Set wdApp = CreateObject("Word.Application")
    On Error GoTo 0
    
    ' Check if Word application was created successfully
    If wdApp Is Nothing Then
        MsgBox "Microsoft Word is not installed or cannot be accessed.", vbCritical
        Exit Sub
    End If
    
    ' Make the Word application visible
    wdApp.Visible = True
    
    ' Open the Word document
    On Error Resume Next
    Set wdDoc = wdApp.Documents.Open(filePath)
    On Error GoTo 0
    
    ' Check if the document was opened successfully
    If wdDoc Is Nothing Then
        MsgBox "The file could not be opened. Please check the file path.", vbCritical
        wdApp.Quit
        Set wdApp = Nothing
        Exit Sub
    End If
    
    MsgBox "Word document opened successfully!"
End Sub

 

[drom]

Ok
The Word file is open with any err, but how can I change The entire word document style to "normal" ?

If possible without selecting the word doc​

In my case my FilePath comes with a few different styles like heading1, 2 etc…

Thanks

 

[Logit]

I can't answer that question for you. Sorry.