Office中国论坛/Access中国论坛

标题: 求助打开Word图片编辑的代码（已解决） [打印本页]
作者: wang1950317    时间: 2013-3-5 11:02
标题: 求助打开Word图片编辑的代码（已解决）
本帖最后由 wang1950317 于 2013-3-7 08:22 编辑

各位老师：
   在绑定对象框中添加Word图片的操作是：右键单击对象框>插入对象>Microsoft office Access>在对象类型（T）中选择Microsoft word 图片>确定
   然后就打开一个Word界面。
   上述操作可否在绑定对象框单击事件的代码中完成？
   Excel有宏剥制功能，Access没有。试用在Excel剥制后代码放到Access中，
        放在绑定对向框中提示：运行时错误‘91’  对象变量或with块变量未设置。
         
    ActiveSheet.OLEObjects.Add(ClassType:="Word.Picture.8", Link:=False, _
        DisplayAsIcon:=False).Activate
  
小的代码不行，请教各位老师！
谢谢！

[attach]51367[/attach]

作者: tmtony    时间: 2013-3-5 11:34
With Me.oleDoc
      .Class = "Word.Document"
      .OLETypeAllowed = acOLELinked
      .SourceDoc = strFullNameFile
      .Action = acOLECreateLink
   End With
作者: wang1950317    时间: 2013-3-5 12:25
谢谢tmtony老师指教！
出现以下提示：
       [attach]51369[/attach]
请您再指点！谢谢！
作者: tmtony    时间: 2013-3-5 13:31
你得先有 oleDoc 这个OLE对象
然后 strFullNameFile 改成你的文件名
作者: wang1950317    时间: 2013-3-5 14:19
谢谢tmtony 老师
小的代码很菜，不太懂，我的目的是在点击绑定对象框后打开一个空的word图片编辑器（用来编辑一个OLE对象，把这个对象添加到绑定对象框中）。不是先有一个OLE对象，然后把它添加到绑定对象框中。
  一楼附件：在绑定对象框中添加Word图片的操作是：右键单击绑定对象框>插入对象>Microsoft office Access>在对象类型（T）中选择Microsoft word 图片>确定，这样就打开了一个word文档，可以使用绘图工具编辑一个需要的图，退出后，它就自动添加到绑定对象框中啦。我需要的完成的红字部分功能即可。不知代码怎样改？
请再指教！谢谢！
作者: ly    时间: 2013-3-5 21:10
wang1950317 发表于 2013-3-5 14:19
谢谢tmtony 老师
小的代码很菜，不太懂，我的目的是在点击绑定对象框后打开一个空的word图片编辑器（用来编 ...
  1. Dim obj As Word.Application
  2. Set obj = New Word.Application
  3. obj.Documents.Add Visible:=True
  4. obj.Selection.InlineShapes.AddOLEObject ClassType:="Word.Picture.8", FileName _
  5.         :="", LinkToFile:=False, DisplayAsIcon:=False
复制代码
作者: wang1950317    时间: 2013-3-5 21:56
谢谢ly老师指教！
试过提示这一句：obj As Word.Application  编译错误，用户定义类型未定义。
请再费神指点！
作者: wang1950317    时间: 2013-3-5 22:26
引用的问题，已添加了。可以打开word。但还有问题:
     使用：右键单击绑定对象框>插入对象>Microsoft office Access>在对象类型（T）中选择Microsoft word 图片>确定  打开word后，使用绘图工具作图，关闭、退出word后直接就保存在绑定对相框中啦，没有提示保存位置。
    而使用6楼代码打开word，使用绘图工具作图后，不能关闭word，提示要保存文档保存位置，保存后Access绑定对相框中不显示图片。
   请楼上老师再帮忙！谢谢！
作者: ly    时间: 2013-3-6 11:39
wang1950317 发表于 2013-3-5 22:26
引用的问题，已添加了。可以打开word。但还有问题:
     使用：右键单击绑定对象框>插入对象>Microsoft of ...

试一试
  1. With Me.obj布点图
  2. .Action = acOLECreateEmbed
  3. .Class = "Word.Picture.8"
  4. .Action = acOLEActivate
  5. End With
复制代码
作者: wang1950317    时间: 2013-3-6 12:38
obj布点图
这一句提示：
编译错误
方法和数据成员未找到

谢谢！
作者: ly    时间: 2013-3-6 12:57
wang1950317 发表于 2013-3-6 12:38
obj布点图
这一句提示：
编译错误

这个就是你绑定对象框的名称，修改为自己的名称就是了！
作者: wang1950317    时间: 2013-3-6 13:32
改成绑定对象框后提示它的下一句
.Action = acOLECreateEmbed
运行错误‘2777’
你试图运行的visuai Basic 过程中，CreateObject函数中类参数无效。
谢谢！
作者: ly    时间: 2013-3-6 17:49
wang1950317 发表于 2013-3-6 13:32
改成绑定对象框后提示它的下一句
.Action = acOLECreateEmbed
运行错误‘2777’

抱歉，不知道还会有何错误，请测试！
注：窗体名称和绑定对象名称请自己对应修改。
  1. With Forms.Item("frm布点图").Controls.Item("obj布点图")
  2.     .Action = acOLECreateEmbed
  3.     .Class = "Word.Picture.8"
  4.     .Action = acOLEActivate
  5. End With
复制代码
作者: wang1950317    时间: 2013-3-6 19:51
谢谢您不厌其烦！
还是窗体和绑定对像框名称问题，如果名称改回（“布点图”），则下一句又出现与12楼一样的提示。
如ly老师有空吧一楼附件下来做做看。不胜感谢！
作者: ly    时间: 2013-3-6 22:45
wang1950317 发表于 2013-3-6 19:51
谢谢您不厌其烦！
还是窗体和绑定对像框名称问题，如果名称改回（“布点图”），则下一句又出现与12楼一样 ...

看来不是代码的问题，建议借用9楼的代码，删除.class=Word.Picture.8。
并设置一下对象框。
[attach]51390[/attach]
作者: wang1950317    时间: 2013-3-7 08:21
非常感谢ly老师的指点。终于好啦！谢谢！



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3