Before using this macro, make sure that the Store random number feature is unchecked.
Sub ConvertMacro()
Dim SrcDir As String
Dim TgtDir As String
SrcDir = "C:\Path\Source\Docs\"
'folder containing the _
'documents that need to be stripped of the random number.
TgtDir = "C:\Path\Html\Docs\"
'Temp folder to store the _
'HTML files.
Call ConvertMacro1(SrcDir, TgtDir)
SrcDir = "C:\Path\Source\Includes\"
'folder containing _
'the include documents that need to be stripped of the _
'random number.
TgtDir = "C:\Path\Html\Includes\"
'Temp folder to store _
'HTML include files.
Call ConvertMacro1(SrcDir, TgtDir)
SrcDir = "C:\Path\Html\Docs\"
TgtDir = "C:\Path\Docs\"
'result folder. This folder _
'will contain the cleaned documents.
Call ConvertMacro2(SrcDir, TgtDir)
SrcDir = "C:\Path\Html\Includes\"
TgtDir = "C:\Path\Includes\"
'result folder. This _
'folder will contain the cleaned documents.
Call ConvertMacro2(SrcDir, TgtDir)
End Sub
Sub ConvertMacro1(SrcDir As String, TgtDir As String)
'convert Doc to HTML
Dim FileName As String
FileName = Dir(SrcDir)
While FileName <> ""
'make every doc in the SrcDir HTML
ChangeFileOpenfolder SrcDir
Documents.Open FileName:=FileName, _
ConfirmConversions:=False, _
ReadOnly:=False, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
Revert:=False, _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Format:= wdOpenFormatAuto
ChangeFileOpenfolder TgtDir
ActiveDocument.SaveAs FileName:=FileName, _
FileFormat:=wdFormatHTML, _
LockComments:=False, _
Password:="", _
AddToRecentFiles:=True, _
WritePassword:="", _
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, _
SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close
FileName = Dir()
Wend
End Sub
Sub ConvertMacro2(SrcDir As String, TgtDir As String)
'convert HTML to Doc
Dim FileName As String
FileName = Dir(SrcDir)
While FileName <> ""
'Make every HTML file in HTML temp dir _
'a doc file.
ChangeFileOpenfolder SrcDir
Documents.Open FileName:=FileName, _
ConfirmConversions:=False, _
ReadOnly:=False, _
addToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
Revert:=False, _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto
ChangeFileOpenfolder TgtDir
ActiveDocument.SaveAs FileName:=FileName, _
FileFormat:=wdFormatDocument, _
LockComments:=False, _
Password:="", _
AddToRecentFiles:=True, _
WritePassword:="", _
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, _
SaveFormsData :=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close
FileName = Dir()
Wend
End Sub