VBA word 文件类型html,word VBA 打开word文件

Sub Macro1()

Dim wdApp

Set wdApp = CreateObject("word.application")

On Error Resume Next

Set myDoc = wdApp.Documents.Open("c:\fold\cc.doc")

myDoc.Range(myDoc.Paragraphs(1).Range.Start,

myDoc.Paragraphs(3).Range.End).Delete

wdApp.Visible = True

Set wdApp = Nothing

End Sub

------------------------------------------------------------------------------

Private Sub cmdOpen_Click()

Set WdApp =

CreateObject("Word.Application")

WdApp.Visible = True '可见

WdApp.Documents.Open "d:\temp\2.doc"

End Sub

------------------------------

Sub Word文件改名()

Selection.WholeStory

Selection.HomeKey Unit:=wdLine

Selection.Expand wdLine

Dim myRange As Range

Set myRange = Selection.Range

myRange.SetRange myRange.Start, myRange.End - 1

myRange.Select

ActiveDocument.SaveAs FileName:="C:\" & Selection

& ".doc"

ActiveWindow.Close

End Sub