Word宏问题,在线等 我在Word中添加一个控件Label 怎么样在VB中找到这个控件并且为它的Caption 设置值 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 工具---宏--VB编辑器....,里面基本上与vb环境类似..... 恩~~很感谢你不过我问的是这个控件已经在Word文档里面添加了我要在VB编辑器中找到这个控件怎么做?完了马上给分 在VBE的工程资源管理器,第二个按钮--查看对象,可以查看你在Word文档中的按钮.... 比如说我在Word文档里面添加一个Label然后在VB窗体中要调用这个Word文档的Label怎么做????? Selection.InlineShapes(1).Fill.Visible = msoFalse Selection.InlineShapes(1).Fill.Solid Selection.InlineShapes(1).Fill.Transparency = 0# Selection.InlineShapes(1).Line.Weight = 0.75 Selection.InlineShapes(1).Line.Transparency = 0# Selection.InlineShapes(1).Line.Visible = msoFalse Selection.InlineShapes(1).LockAspectRatio = msoTrue Selection.InlineShapes(1).Height = 24.1 Selection.InlineShapes(1).Width = 72# Selection.InlineShapes(1).PictureFormat.Brightness = 0.5 Selection.InlineShapes(1).PictureFormat.Contrast = 0.5 Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic Selection.InlineShapes(1).PictureFormat.CropLeft = 14.17 Selection.InlineShapes(1).PictureFormat.CropRight = 0# Selection.InlineShapes(1).PictureFormat.CropTop = 0# Selection.InlineShapes(1).PictureFormat.CropBottom = 0# 呵呵,好像有点太容易了点吧哈哈哈 ,,很容易呀。。你难道从来没有试过吗??Sub aa() ThisDocument.Label1.Caption = "AAAAAAA"End Sub 哦,你是在VB中用呀,那就是要使用VBA了,你要引用word对象 然后定义 document 对象然后就可以用了。 直接就成了。 不过,你还可以判断是一下嘛。 到底是不是存在Label 对象。 如何用VB将日期分成几列? 学了VB的所有基础知识,现在我想学VB网络编程,我下一步该怎么走呢? 前辈门指点一下迷津!!!! textbox与maxlength(有码) 很急的问题,希望大家给予帮助。 请问:有人说做程序员是吃青春饭??? 如何让DBGrid控件显示指定的数据 一个很急的问题!!!!! UP有分得. 大家不要讨论VB6.0了,都来讨论讨论VB.NET吧! 开发文档都是怎么写的啊,谁告诉我一下都那些内容,一个目录模板也行? 请问 vb 中如何调用 WinAPI 函数 关于Treeview的问题? TCP方式能否实现多个客户通讯
不过我问的是这个控件已经在Word文档里面添加了
我要在VB编辑器中找到这个控件
怎么做?
完了马上给分
然后在VB窗体中要调用这个Word文档的Label
怎么做?????
Selection.InlineShapes(1).Fill.Visible = msoFalse
Selection.InlineShapes(1).Fill.Solid
Selection.InlineShapes(1).Fill.Transparency = 0#
Selection.InlineShapes(1).Line.Weight = 0.75
Selection.InlineShapes(1).Line.Transparency = 0#
Selection.InlineShapes(1).Line.Visible = msoFalse
Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).Height = 24.1
Selection.InlineShapes(1).Width = 72#
Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
Selection.InlineShapes(1).PictureFormat.CropLeft = 14.17
Selection.InlineShapes(1).PictureFormat.CropRight = 0#
Selection.InlineShapes(1).PictureFormat.CropTop = 0#
Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
Sub aa()
ThisDocument.Label1.Caption = "AAAAAAA"
End Sub