如何从word文件中提取所有word文档对象？ 代码不多，可是费了老劲。亲：一定要及时采纳哟。Sub a()'导出OLE里的文档Dim strPath$，strTopic$，intCount%，intEnt%，OActdOCstrPath=ActiveDocument.Path&\"\\Set OActdOC=ActiveDocumentintCount=ActiveDocument.InlineShapes.CountIf intCount=0 Then Exit SubFor cx=1 To intCountWith OActdOC.InlineShapes(cx).OLEFormatIf InStr(UCase(Format(.ClassType))，\"WORD.DOCUMENT\")<；>；0 ThenWith.ObjectstrTopic=Trim(.Paragraphs(1).Range.Text)intEnt=InStr(strTopic，Chr(13))-1strTopic=Left(strTopic，intEnt)If Len(strTopic)>；200 Then strTopic=Left(strTopic，30)'如果出错，则是内嵌文件第一段里有不适用于文件名的字符，可用正则排除，本人不熟SaveAs strPath+strTopicEnd WithEnd IfEnd WithNextEnd Sub
易语言HTML背景色怎么改 ？超文本浏览框1.取文档对象 () 超文本浏览框1.取文档对象().读对象型属性(“body”，).读对象型属性(“style”，).写属性(“background-color”，“#FF0000”)
请问在word中插入对象，如何不显示图标，只显示文件？ 插入对象－在弹出的“对象”窗口中选“由文件创建”，下面有两个选项“链接到文件”和“显示为图标”，把这两项前面小方框里的小勾勾去掉；
