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

http://club.excelhome.net/thread-319765-1-1.html用excel中的VBA打开word文档

http://club.excelhome.net/thread-516002-1-6.html怎样用Word VBA删除文档的第一行到第三行？

http://club.excelhome.net/thread-246201-1-1.html

http://www.360doc.com/content/09/0428/10/25463_3298335.shtml 用VBA实现光标移动与内容选择

http://www.360doc.com/content/09/0428/10/25463_3298335.shtml