Userform appearing on Documents saved from template
Good Morning,
I suspect this may be quite simple but I'm trying to get my head round it through forums etc.. I have a Template that has userform for input on it, I hide the application so the users only see the Userform on launch of the template. Its basically a simple tool to print labels, They enter 7 fields worth of data and hit print, in the background I have the code save a copy of the label as a docx file.
Unfortunately the docx file that is being created is still linking to the template, when the user open the saved documents (docx) it is still opening to the Userform and not the plain document with the label as I hoped.
This is an extract of the code I use to Save the file: I have tried various FileFormats as well.
Code:
strPath = "C:\Temp\"
strFileName = "Pallet - " & ActiveDocument.Bookmarks("bkPallet").Range.Text & "_" & ActiveDocument.Bookmarks("bkShortDesc").Range.Text & ".docx"
ActiveDocument.SaveAs2 FileName:=strPath & strFileName, FileFormat:=wdFormatDocumentDefault, SaveFormsData:=False
I have looked at the ActiveDocument.Attachedtemplate = "\...\Normal.dot" and tried to change it to Normal.dot but the code keeps failing with 4198.
I have found some other code that someone had kindly released but I cant get it to work, it doesn't seem to find any VB Project to remove?
This was a bit over my head though, I'm just getting bits of code as I search through forums.
Code:
Sub RemoveAllMacros(objDocument As Object)
' deletes all VBProject components from objDocument
' removes the code from built-in components that can't be deleted
' use like this: RemoveAllMacros ActiveWorkbook ' in Excel
' or like this: RemoveAllMacros ActiveDocument ' in Word
' requires a reference to the
' Microsoft Visual Basic for Applications Extensibility library
Dim i As Long, l As Long
If objDocument Is Nothing Then Exit Sub
i = 0
On Error Resume Next
i = objDocument.VBProject.VBComponents.Count
On Error GoTo 0
If i < 1 Then ' no VBComponents or protected VBProject
MsgBox "The VBProject in " & objDocument.Name & _
" is protected or has no components!", _
vbInformation, "Remove All Macros"
Exit Sub
End If
With objDocument.VBProject
For i = .VBComponents.Count To 1 Step -1
On Error Resume Next
.VBComponents.Remove .VBComponents(i)
' delete the component
On Error GoTo 0
Next i
End With
With objDocument.VBProject
For i = .VBComponents.Count To 1 Step -1
l = 1
On Error Resume Next
l = .VBComponents(i).CodeModule.CountOfLines
.VBComponents(i).CodeModule.DeleteLines 1, l
' clear lines
On Error GoTo 0
Next i
End With
End Sub
Any help would be very much appreciated.
Mark
