Office中国论坛/Access中国论坛

标题: 打开WROD 文本 [打印本页]

作者: sunredday 时间: 2003-7-22 02:11
标题: 打开WROD 文本
打开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 时间: 2003-7-22 20:27
如何判断该WORD 文件是否打开?
将WORD 内容转回TEXT51后如何自动分行？

作者: tmtony 时间: 2017-9-11 11:19
判断 word.appcation是否打开，可以使用
GetObject("Word.application")

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)