code to see if dot-file contains code

[Lina]

Hi
I need to convert many .dot files to dotx or dotm. I would like to do
something like this
If mytemp has code then
save as dotm
else
save as dotx
End if
Can you do this with vba?
thanks

 

[DaveLett]

I think you're looking for something like the following:

If ActiveDocument.VBProject.VBComponents.Count > 1 Then
'''saveas dotm
Else
'''saveas dotx
End If

HTH,
Dave

 

[macropod]

Hi Dave,

Somewhat simpler:

Sub Demo()
With ActiveDocument
If .HasVBProject Then
'saveas dotm
Else
'saveas dotx
End If
End With
End Sub

 

[Lina]

Thank you, now I have a new problem, when I save the dot files as dotm or
dotx with vba the new files become corrupted and can not be opened

im using

mydoc.SaveAs FileName:=strFileName, _
FileFormat:=wdFormatTemplate

Hi Dave,

Somewhat simpler:

Sub Demo()
With ActiveDocument
If .HasVBProject Then
'saveas dotm
Else
'saveas dotx
End If
End With
End Sub


--
Cheers
macropod
[Microsoft MVP - Word]

I think you're looking for something like the following:

If ActiveDocument.VBProject.VBComponents.Count > 1 Then
'''saveas dotm
Else
'''saveas dotx
End If

HTH,
Dave

.

 

[Graham Mayor]

Save as (dotx)
FileFormat:=wdFormatXMLTemplate
or (dotm)
FileFormat:=wdFormatXMLTemplateMacroEnabled

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Thank you, now I have a new problem, when I save the dot files as dotm or
dotx with vba the new files become corrupted and can not be opened

im using

mydoc.SaveAs FileName:=strFileName, _
FileFormat:=wdFormatTemplate

Hi Dave,

Somewhat simpler:

Sub Demo()
With ActiveDocument
If .HasVBProject Then
'saveas dotm
Else
'saveas dotx
End If
End With
End Sub


--
Cheers
macropod
[Microsoft MVP - Word]

I think you're looking for something like the following:

If ActiveDocument.VBProject.VBComponents.Count > 1 Then
'''saveas dotm
Else
'''saveas dotx
End If

HTH,
Dave

:

Hi
I need to convert many .dot files to dotx or dotm. I would like to do
something like this
If mytemp has code then
save as dotm
else
save as dotx
End if
Can you do this with vba?
thanks

.

 

[Lina]

Thanks it works perfectly now!!!

Save as (dotx)
FileFormat:=wdFormatXMLTemplate
or (dotm)
FileFormat:=wdFormatXMLTemplateMacroEnabled

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Thank you, now I have a new problem, when I save the dot files as dotm or
dotx with vba the new files become corrupted and can not be opened

im using

mydoc.SaveAs FileName:=strFileName, _
FileFormat:=wdFormatTemplate

Hi Dave,

Somewhat simpler:

Sub Demo()
With ActiveDocument
If .HasVBProject Then
'saveas dotm
Else
'saveas dotx
End If
End With
End Sub


--
Cheers
macropod
[Microsoft MVP - Word]


I think you're looking for something like the following:

If ActiveDocument.VBProject.VBComponents.Count > 1 Then
'''saveas dotm
Else
'''saveas dotx
End If

HTH,
Dave

:

Hi
I need to convert many .dot files to dotx or dotm. I would like to do
something like this
If mytemp has code then
save as dotm
else
save as dotx
End if
Can you do this with vba?
thanks


.

.

 

[Graham Mayor]

You are welcome

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Thanks it works perfectly now!!!

Save as (dotx)
FileFormat:=wdFormatXMLTemplate
or (dotm)
FileFormat:=wdFormatXMLTemplateMacroEnabled

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Thank you, now I have a new problem, when I save the dot files as dotm
or
dotx with vba the new files become corrupted and can not be opened

im using

mydoc.SaveAs FileName:=strFileName, _
FileFormat:=wdFormatTemplate

:

Hi Dave,

Somewhat simpler:

Sub Demo()
With ActiveDocument
If .HasVBProject Then
'saveas dotm
Else
'saveas dotx
End If
End With
End Sub


--
Cheers
macropod
[Microsoft MVP - Word]


I think you're looking for something like the following:

If ActiveDocument.VBProject.VBComponents.Count > 1 Then
'''saveas dotm
Else
'''saveas dotx
End If

HTH,
Dave

:

Hi
I need to convert many .dot files to dotx or dotm. I would like to
do
something like this
If mytemp has code then
save as dotm
else
save as dotx
End if
Can you do this with vba?
thanks


.

.