VBA Help with Workbooks.Open not working..

[BenGee]

Hi

I have this code to open up a file which works when it's an excel doc;

    Workbooks.Open Filename:="[URL="file://\\servertest\Test Administration\Dep"]\\servertest\Test Administration\Dep[/URL]artment Name\Dashboards\Test 1\Book1.xlsx"

But doesn't work when it's a word doc (run-time error 1004) with this code;

    Workbooks.Open Filename:="[URL="file://\\servertest\Test Administration\Department Name"]\\servertest\Test Administration\Department Name[/URL]\Dashboards\Test 1\Test.docx"

I'm unsure why? Any help would be appreciated.

 

[Fluff]

A word file is not a workbook, hence you cannot open it like one.
What are you trying to do?

 

[BenGee]

Oh that's embarrassing and fairly obvious.

Essentially, I'm just trying to open a word document in a specified network location

 

[Fluff]

Can you post your complete code?

 

[BenGee]

At the moment, it's literally just;

Sub CoverPage_Button4_2_Click()
    Workbooks.Open Filename:="\\servertest\Test Administration\Department Name\Dashboards\Test 1\Test.docx"
End Sub

Since it worked for a workbook, I thought it would be something similar for a word doc.

 

[Joe4]

See here for how to open a Word Document using Excel VBA: https://social.msdn.microsoft.com/F...ocument-from-an-excel-vba-module?forum=isvvba

 

[BenGee]

Perfect, thank you. Got it all working now.

Complete code is;

Sub CoverPage_Button4_3_Click()
    Dim Name As String
    Name = Environ("username")
    Set wordapp = CreateObject("word.Application")
    
    wordapp.documents.Open "[URL="file://\\servertest\Test"]\\servertest\Test[/URL] Administration\Department Name\Dashboards\Test Environment\Test Doc" & Name & ".docx"
    wordapp.Visible = True
    wordapp.Activate
End Sub

 

[BenGee]

Adapted version for password word being password protected;

Sub CoverPage_Button4_3_Click()
    
    Dim Name As String
    Dim Password As String
    Dim Path
    Dim Form
    
    Name = Environ("username")
    Password = "Password"
    Path = "[URL="file://\\servertest\Test"]\\servertest\Test[/URL] Administration\Department Name\Dashboards\Test Environment\Test Doc" & Name & ".docx"
        
    Set wordapp = CreateObject("word.Application")

    
    Form = wordapp.Documents.Open(Path, PasswordDocument:=Password)
    wordapp.Visible = True
    wordapp.Activate
End Sub