opening a word file

[rodney_malodney]

the word file is open and is saved as a name that come from user input and in the code is named:
fname (with .dot behind it )
or
prname (no .dot)

how do i call the file:

windows. (prname).activate doesnt work so what does???

Private Sub CommandButton1_Click()
'
'yes i can do word as well, this took hours...
'
Dim prname As String
Dim docnew As Document
Dim fname As String
Dim details(0)

setdocnew = Documents.Add

'

prname = InputBox("Please Confirm Project Name/Number, (this MUST match the name given on the project folder")
'
fname = prname & ".doc"
details(0) = fname
With docnew

ActiveDocument.SaveAs FileName:=fname
End With




'
'in theory this should copy all the templates form their seperate folders to the one single folder named prname or fname
'


If CheckBox1 = True Then
Documents.Open FileName:="erectorsinstructions.dot", ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto

 Windows(prname).Activate
    Windows("erectorsinstructions").Activate
    Selection.WholeStory
    Selection.Copy
    Windows(prname).Activate
    Selection.Paste
    Windows("a code").Activate

    

End If


End Sub

 

[rodney_malodney]

what code do i put round the prname or fname to get it to open?????

 

[rodney_malodney]

ive got this but i get an error "the requested member of the collection does not exist" - eh?!!!! im begging to loose hope come on mr excel save me again, plz

Private Sub CommandButton1_Click()
'
'yes, i can do word as well, this took hours...
'
Dim prname As String
Dim docnew As Document
Dim fname As String
Dim details(1)
Dim final As String
'
setdocnew = Documents.Add
'
'
'
prname = InputBox("Please Confirm Project Name/Number, (this MUST match the name given on the project folder)")
'
fname = prname & ".doc"
details(0) = fname
details(1) = prname
With docnew

ActiveDocument.SaveAs FileName:=fname
End With

'
'in theory this should copy all the templates from their seperate folders to the one single folder named prname or fname
'
final = prname
'
If CheckBox1 = True Then
Documents.Open FileName:="erectorsinstructions.dot", ConfirmConversions:= _
False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
Selection.WholeStory
Selection.Copy
Windows(prname).Activate
Selection.Paste
Windows("erectorsinstructions").Activate
ActiveWindow.Close


'



'
End If
'
End Sub

 

[rodney_malodney]

bump somebody must know how to do this!!!

 

[gwkenny]

????

I don't understand what you are asking.

If you are running this from Word, your question makes no sense.

"the word file is open and is saved as a name that come from user input and in the code is named:
fname (with .dot behind it )
or
prname (no .dot)

how do i call the file"

What do you mean by call the file? It's already open because you declared the new file and saved it. You didn't close it. It's the active doc in the active app.

 

[rodney_malodney]

i see, but what do i refer to it as in the "Windows(prname).Activate " part of the code, or should i refer to it as something else????

cheers for your reply