【分享成果 ， 随喜正能量】这个世界上 ， 最让人不想接触的 ， 就是没有能力却同时有着大量情绪的人 。VBA可以提高你的能力 ， 学习可以磨砺你的情绪 。
《VBA信息获取与处理》教程是我推出第六套教程 ， 目前已经是第一版修订了 。这套教程定位于最高级 ， 是学完初级 ， 中级后的教程 。
信息 ， 含义非常之广泛 ， 是我们日常生活不可或缺的一部分 。从天气情况和预报 ， 到人际关系 ， 宇宙洪荒 ， 都是信息的组成部分 。信息在某种程度上就是数据 ， 或者可以用数据来体现 ， 获得信息也就是数据的获得 。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作 ， 剪切板应用、Split函数扩展、工作表信息与其他应用交互 ， FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容 。程序文件通过32位和64位两种OFFICE系统测试 。是非常抽象的 ， 更具研究的价值 。
这套教程共两册 ， 八十四讲 ， 今后一段时间会给大家陆续推出修订后的教程内容 。今日的内容是第4讲：在EXCEL中操作WORD应用程序
第四节 在EXCEL中打开及修改WORD文件
在上面的专题中 ， 我们讲了如何在WORD中打开EXCEL 。那么同理 ， 如何在EXCEL中打开WORD呢？在这讲中我给出专题的讲解 ， 这个讲解中我们将利用CreateObject函数和GetObject 函数分别建立一个引用及获取已经打开的WORD文件信息 。这讲的内容为了增加实用性 ， 我在程序中还给出了如何向WORD的表格（非嵌套）中添加数据 ， 这个数据来源于EXCEL 。
【如何在excel中筛选出想要的数据和文字 如何在excel中设置下拉选项】1 EXCEL中判断一个WORD文件是否被打开
在EXCEL中判断WORD文件是否被打开 ， 我们可以利用GetObject 函数获取一个WORD主程序的返回情况 。这里我利用一个WordIsOpen的函数过程 。代码如下：
Function WordIsOpen(ByVal strDocName As String) As Boolean
'判断Word文档是否被重复打开
Dim myWd As Object
WordIsOpen = False
Set myWd = Nothing
On Error Resume Next
strDocName = UCase(strDocName)
'判断是否有Word程序被打开
Set myWd = GetObject(, "WORD.Application")
For Each doc In myWd.Documents
UU = UCase(doc.FullName)
If UU = strDocName Then
WordIsOpen = True
Exit For
End If
Next
Set myWd = Nothing
End Function
代码截图：
代码讲解：这是一个函数过程 ， 需要输入一个strDocName的字符串 ， 用于我们核对是否打开那个文件的文件名 ， 然后我们利用Set myWd = GetObject(, "WORD.Application")语句捕获是否有word打开的主程序 ， 如果有 ， 我们将提取每个文件的文件名 ， 用于我们的判断 。下面看具体的讲解：
① WordIsOpen = False 首先令WordIsOpen初始值为FALSE
② On Error Resume Next 是建立一个错误处理语句 ， 这个语句是当没有word文件打开时以便对后续错误进行处理
③ For Each doc In myWd.Documents
UU = UCase(doc.FullName)
If UU = strDocName Then
WordIsOpen = True
Exit For
End If
Next
上述语句是一个遍历的循环 ， 如果打开的文件中含有名称为给出的文件名的文件 ， 那么返回的将是WordIsOpen = True 。
推荐阅读
- word行间距怎么调不动 word行间距怎么调
- office和excel一样吗
- 武汉黄家湖房价暴跌开始了吗2022-武汉黄家湖板块楼盘前景如何
- 如何大量生产营养土，疫苗如何大量生产？
- 十大装修公司品牌排行榜 装修公司排行榜如何
- 信长之野望新生新生势力如何发展 新生势力发展心得分享
- 如何种植香菜，怎样种香菜的过程 种植方法？
- excel移动整个单元格 excel移动整行
- 真皮沙发龟裂如何修复-真皮沙发开裂属于质量问题吗
- 怎样养富贵竹才能又绿,又旺盛，如何养文竹才能变得又高又绿？