设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2492|回复: 2

[模块/函数] 打开WROD 文本

[复制链接]
发表于 2003-7-22 02:11:00 | 显示全部楼层 |阅读模式
打开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
 楼主| 发表于 2003-7-22 20:27:00 | 显示全部楼层
如何判断该WORD 文件是否打开?
将WORD 内容转回TEXT51后如何自动分行?

点击这里给我发消息

发表于 2017-9-11 11:19:21 | 显示全部楼层
判断 word.appcation是否打开,可以使用
GetObject("Word.application")
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 17:02 , Processed in 0.088278 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表