VBA编译错误用户定义类型未定义原因

2019-12-14 00:40:12  阅读 1932 次 评论 0 条

折腾个WORD批量导出图片,运行代码时出现编译错误:用户定义类型未定义,一直以为是代码问题,然而,并不是。。。

比如我的代码需要操作WORD类文档,则需要点击:“工具”-"引用"中将可使用的引用勾选

QQ图片20191214003832.jpg

Private Sub CommandButton1_Click()

Dim imagtream As Object, fol As Object, doc As Document, p As InlineShape

Dim pa$, f$, pf$, pu$

Set fol = CreateObject("Shell.Application").BrowseForFolder(0, "GetFolder", 0)

If Not fol Is Nothing Then pa$ = fol.Items.Item.Path Else MsgBox "请选目标文件夹": Exit Sub

Set imagtream = CreateObject("ADODB.Stream")

f = Dir(pa & "\*.doc*"): pu = ThisDocument.Path & ""

Do While f <> ""

If ThisDocument.Name <> f Then

Set doc = Documents.Open(pa & "" & f, Visible:=False)

pf = Left(f, InStrRev(f, ".") - 1)

For Each p In doc.InlineShapes

i = i + 1

With imagtream

.Type = 1: .Open

.Write p.Range.EnhMetaFileBits

.SaveToFile pu & pf & i & ".jpg", 2: .Close

End With

Next

doc.Close 0

End If

f = Dir

Loop

MsgBox "导出完毕!图片保存于本文档所在文件夹内"

End Sub

还没折腾好,先存着

WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS表格数据付费处理请加QQ:3247742

发表评论


表情

还没有留言,还不快点抢沙发?