用代码打开WROD 文档

时　间:2007-10-29 09:04:10
作　者:褚玉春   ID：11  城市：上海  QQ：3002789054
摘　要:用代码打开WROD 文档
正　文:

打开WROD 文本
将WORD 文本现有内容删除
拷贝文本51 内容到WORD 文本
问题：
如何判断该WORD 文件是否打开， 是则不在打开，直接转到该WORD 文档
多次打开关闭后出现问题，
如何优化


来源：爱赛思
作者：sunredday
　　 intI = ActiveDocument.Paragraphs.Count


Dim oApp As Word.Application
　　Dim myRange As Range
　　Dim intI As Integer
'
　　Set oApp = CreateObject("Word.Application")
　　oApp.Visible = True
　 oApp.Documents.Open MyPath
　　 intI = ActiveDocument.Paragraphs.Count
　　 Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(1).Range.Start, _
　　End:=ActiveDocument.Paragraphs(intI).Range.End)
　　myRange.Delete
　　myRange.InsertAfter Me.文本51


Access软件网QQ交流群 (群号:483923997) 　　　　　　Access源码网店