ContactEZ.net

Dim File
Dim MyRootName As String

ChangeFileOpenDirectory "C:\dgschnei\Portfolio\Development\dscan_code\HLP2CMH\verbs\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set Folder = fso.GetFolder("C:\dgschnei\Portfolio\Development\dscan_code\HLP2CMH\verbs")

Set F_Files = Folder.Files

If fso.folderexists("C:\dgschnei\Portfolio\Development\dscan_code\HLP2CMH\verbs") = "True" Then

For Each File In F_Files

If LCase(File.Type) = "rich text format" Then

MyRootName = fso.GetBaseName(File.Name)


Documents.Open FileName:=File.Name, ConfirmConversions:=False, ReadOnly _
:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto, XMLTransform:=""

ActiveDocument.SaveAs FileName:=MyRootName & ".htm", FileFormat:= _
wdFormatFilteredHTML, LockComments:=False, Password:="", AddToRecentFiles _
:=False, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False

ActiveWindow.View.Type = wdWebView
ActiveWindow.Close

End If

Next

End If

End Sub