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

Question

vba如何判断word中对象类型

Answer 1

typename(变量名）举例：'首先在 工程中引用ExcelPrivate Sub Command1_Click()Dim objExcel As Excel.ApplicationDim objWorkBook As Excel.WorkbookSet objExcel = CreateObject("Excel.Application")Set objWorkBook = objExcel.Workbooks.Add()objExcel.Visible = True'设置活动工作表Dim objSheet As Excel.WorksheetSet objSheet = objExcel.Worksheets("sheet1")objSheet.Cells(1, 1) = "mather" '对单元格赋值Print TypeName(objSheet), TypeName(objExcel)'将会打印 WorkSheet 和ApplicationobjWorkBook.SaveAs "D:\aa.xls" '保存objWorkBook.CloseobjExcel.QuitSet objSheet = NothingSet objWorkBook = NothingSet objExcel = NothingEnd Sub

Answer 2

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

Answer 3

第一种：是Shape对象（Word中自带的“自选图形”）第二种：是InlineShape对象(嵌入式图片，也就是所谓的通过点击菜单栏中的“插入”－＞“图片”－＞“来自文件”）－－－－－－－－－－－－－－－－－－－如何判断word文档中是否存在一张图片呢？这个问题。我来解答：判断word文档中是否存在一张图片，可以通过看一看word文档中的inlineshape对象的数量来判断。举例：Dim doc As Document '当前打开的文档对象DocumentDim 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 thenmsgbox "有嵌入式图片存在!"Elsemsgbox "没有嵌入式图片存在!"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,MyRangeActiveDocument.InlineShapes(ID).AlternativeText = App.Path & "\temp" & shapeII & ".bmp" '添加“可选文字”