Change file type from template to document in VBA

[riggsd]

How do I change a file type from .dotx to .docx in VBA? I can save it with the .docx format but it's actually still saving as a template.

Currently, I have the following code:

'set doc name to contract number, document number, task order, and CDRL item number
docName = (CStr(frmName.Contract_Number.Column(1))) & "-" & txtDOTO & _
"-" & (CStr(frmName.CDRL_Number.Column(1))) & "_" & (CStr(frmName.Document_Number)) & _
"_" & (CStr(frmName.Document_Revision)) & "_Disposition" & ".docx"
fullName = CurrentProject.Path & "" & docName 'set fullName to path plus docName

wrdDoc.SaveAs fileName:=fullName

I know there's a way to set the file type when saving it but so far, the stuff I've found just confuses me more.

Thanks,
Dar

 

[ranman256]

set the format in the saveAs command

doc.SaveAs FileName, wdFormatDocument

 

[HiTechCoach]

How do I change a file type from .dotx to .docx in VBA? I can save it with the .docx format but it's actually still saving as a template.

Currently, I have the following code:

'set doc name to contract number, document number, task order, and CDRL item number
docName = (CStr(frmName.Contract_Number.Column(1))) & "-" & txtDOTO & _
"-" & (CStr(frmName.CDRL_Number.Column(1))) & "_" & (CStr(frmName.Document_Number)) & _
"_" & (CStr(frmName.Document_Revision)) & "_Disposition" & ".docx"
fullName = CurrentProject.Path & "" & docName 'set fullName to path plus docName

wrdDoc.SaveAs fileName:=fullName

I know there's a way to set the file type when saving it but so far, the stuff I've found just confuses me more.

Thanks,
Dar

Dar,

If you are using Word automation to open the template and save it then you may be opening it it incorrectly.

You don't normally open the template file. Instead, with a template (.dotx) you normally create a new word document based on the template. This will automatically convert it to a normally document. then you save as normally for any new document.

Something this to load the template into a new document:

wrdDoc.Documents.Add Template:="path to template file"

then save the new document



See:Documents.Add Method (Word)

 

[riggsd]

I tried this:

tPath = (TrailingSlash(CurrentProject.Path) & "Disposition_Letter_Template_Approved.dotx")
wrdDoc.Documents.Add Template:=tPath

and it opened a Word file but it was blank, it didn't have the text/bookmarks in it from my template.

I'm using VBA to open the file and insert text into various bookmark locations.

 

[HiTechCoach]

I tried this:

tPath = (TrailingSlash(CurrentProject.Path) & "Disposition_Letter_Template_Approved.dotx")
wrdDoc.Documents.Add Template:=tPath

and it opened a Word file but it was blank, it didn't have the text/bookmarks in it from my template.

I'm using VBA to open the file and insert text into various bookmark locations.

It would be helpful to see the rest of the code. That way we can test it.