打开WROD 文本

sunredday

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

     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

sunredday

如何判断该WORD 文件是否打开?
将WORD 内容转回TEXT51后如何自动分行？

tmtony

判断 word.appcation是否打开，可以使用
GetObject("Word.application")