- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]这样引用word中的VBA代码，错在哪里？请指教 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=89633)
-- 发布时间：2016/8/25 21:16:00
-- [求助]这样引用word中的VBA代码，错在哪里？请指教
“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
Next
-- 发布时间：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
Next
-- 发布时间：2016/8/25 22:56:00
--
此主题相关图片如下：image 3.jpg
-- 发布时间：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
-- 发布时间：2016/8/26 8:01:00
--
版主，你太强大了!成功操作了word中的VBA,删除了空行。
谢谢！我试着加入我的代码。