为了账号安全,请及时绑定邮箱和手机立即绑定

vba如何判断word中对象类型?

/ 猿问

vba如何判断word中对象类型?

慕村225694 2019-04-03 11:07:08

vba如何判断word中对象类型


查看完整描述

3 回答

?
慕虎7371278

typename(变量名)

举例:
'首先在 工程中引用Excel
Private Sub Command1_Click()
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Add()
objExcel.Visible = True

'设置活动工作表
Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("sheet1")
objSheet.Cells(1, 1) = "mather" '对单元格赋值
Print TypeName(objSheet), TypeName(objExcel)

'将会打印 WorkSheet 和Application

objWorkBook.SaveAs "D:\aa.xls" '保存
objWorkBook.Close
objExcel.Quit
Set objSheet = Nothing
Set objWorkBook = Nothing
Set objExcel = Nothing
End Sub



查看完整回答
反对 回复 2019-04-12
?
慕森王

Word VBA 中的对象库比较庞大,建议使用时通过联机的开发人员帮助文档来获取相关对象的体系结构(对象、成员、属性、方法):


查看完整回答
反对 回复 2019-04-12
?
慕斯卡3215842

第一种:是Shape对象(Word中自带的“自选图形”)
第二种:是InlineShape对象(嵌入式图片,也就是所谓的通过点击菜单栏中的“插入”->“图片”->“来自文件”)
-------------------
如何判断word文档中是否存在一张图片呢?这个问题。
我来解答:判断word文档中是否存在一张图片,可以通过看一看word文档中的inlineshape对象的数量来判断。
举例:
Dim doc As Document '当前打开的文档对象Document
Dim MyApp As Word.Application 'Word应用程序对象
Dim MyFileName As String '当前打开的文件名
MyFileName="c;\aaa.doc" '此处可以改成你的文件名字
Set MyApp = CreateObject("Word.Application")
Set doc = MyApp.Documents.Open(MyFileName)

If doc.InlineShapes.Count <> 0 then
msgbox "有嵌入式图片存在!"
Else
msgbox "没有嵌入式图片存在!"
End if
-------------------------------------------------------
如果你非要想知道,用户到底是不是插入了你要求的图片的话,你要必须要再他进行插入图片操作时进行控制,也就是说,你必须把用户所插入的图片的(绝对地址)或者(图片名字)添加到用户所插入图片的“可选文字”中记录下来。

MydocInlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)
FileName String 类型,必需。指定要创建对象的文件名。如果忽略本参数,则使用当前文件夹。

LinkToFile Variant 类型,可选。如果此属性设置为 True,则将 OLE 对象与创建该对象的文件链接。如果设置为 False,则令该 OLE 对象成为该文件的独立副本。默认值为 False。

SaveWithDocument Variant 类型,可选。如果此属性为 True,则将链接的图片与文档一起保存。默认值为 False。

Range Variant 类型,可选。指定一个区域,OLE 对象放置在该区域的文字中。如果该区域未折叠,那么图片将覆盖该区域。如果忽略此参数,则自动放置图片。

ActiveDocument.Shapes.AddPicture "C:\stone.bmp",True, True,MyRange

ActiveDocument.InlineShapes(ID).AlternativeText = App.Path & "\temp" & shapeII & ".bmp" '添加“可选文字”



查看完整回答
反对 回复 2019-04-12

添加回答

回复

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信