[求助]这样引用word中的VBA代码，错在哪里？请指教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这样引用word中的VBA代码，错在哪里？请指教

共有2098人关注过本帖树形打印复制链接主题：[求助]这样引用word中的VBA代码，错在哪里？请指教

jyh7081

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：957 积分：8434 威望：0 精华：0 注册：2012/10/3 13:25:00

[求助]这样引用word中的VBA代码，错在哪里？请指教 发帖心情

Post By：2016/8/25 21:16:00 [只看该作者]

“Paragraph”在word的VBA对象是“段落”，foxtable说明中说“Foxtable内置了Word的VBA支持，命名空间为MSWord。”我想删除word文件中的空段落，但不知道错在哪？请指教。

代码如下：

Dim app As New MSWord.Application

app.Documents.Open("c:\A222.doc")

app.Visible = False

Dim k As MSWord.Paragraph

For Each k In MSWord.Paragraphs

If Len(Trim(k.Range)) = 1 Then k.Range.Delete

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2016/8/25 21:24:00 [只看该作者]

Dim app As New MSWord.Application

app.Documents.Open("c:\A222.doc")

app.Visible = False

Dim k As MSWord.Paragraph

For Each k In app.Paragraphs

If Len(Trim(k.Range)) = 1 Then k.Range.Delete

jyh7081

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：957 积分：8434 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/8/25 22:56:00 [只看该作者]

此主题相关图片如下：image 3.jpg

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/26 [只看该作者]

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    For Each k As object In doc.Paragraphs
        If Len(Trim(k.Range.text)) = 1 Then k.Range.Delete
    Next
    doc.save
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try

jyh7081

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：957 积分：8434 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2016/8/26 8:01:00 [只看该作者]

版主，你太强大了!成功操作了word中的VBA,删除了空行。

谢谢！我试着加入我的代码。

下一主题 >> << 上一主题

主题：[求助]这样引用word中的VBA代码，错在哪里？请指教