国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

Private Sub Command1_Click()

Dim wrdApp
Dim wrdDoc
FileName = "r:\413968-12.27.doc"

'Set excel = CreateObject("excel.application")
Set wrdApp = CreateObject("word.application")

wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open(FileName)

  wrdDoc.SaveAs FileName:="r:\test.htm", FileFormat:=wdFormatFilteredHTML, AddToRecentFiles:=True
  wrdDoc.Close
 
 Set wrdDoc = Nothing
 Set wrdApp = Nothing
End Sub