各位老大帮帮忙，这样的功能可以实现吗？

Question

老师让我在word中动态的插入一幅用户的签名图片，我模糊地感到好像要用VBAword中可以放入一个按钮buttonOK，单击按钮buttonOK，弹出一个form，form中可以让用户签名，签完名后程序连接数据库和数据库中的签名比较，如果签名一致则把数据库中存好的签名图片插入到word中，并且贴上的签名图片要防拷贝，防止printscreen键
谢谢了

Answer 1

如何签名的那一套东西我已经有了，现在不知道word中可不可以调用vb程序呀？

Answer 2

引用word对象
    Set WordApp = GetObject(, "word.application")
    If Err Then
        Err.Clear
        Set WordApp = CreateObject("word.application")
        If Err Then
            MsgBox ("不能运行WORD2000，请检查是否安装了WORD2000！")
            Exit Sub
        End If
    End If
    WordApp.Visible = False
    WordApp.Documents.Add    AddPicture (App.Path + "\Picture\3-1b.jpg")
    WordApp.Documents.Close
    WordApp.Quit
    Set WordApp = Nothing

Answer 3

谢谢楼上的兄弟热心的帮助....如果我想在文章中一个指定的位置插入图片怎么办？
比如说，我想在审稿人后，空四个格，然后插入一张图片我觉得是不是要这样实现：首先查找“审稿人”三个字，让光标停到最后一个“审稿人”后光标移动四个空格，插入图片但是我刚刚接触VBA，不知道这个怎么实现，楼上的兄弟可以再帮我看看吗？

Answer 4

从要插入图片的地方把WORD文档断开，生成两个临时文件
引用Microsoft Scripting Runtime
引用word对象
    Set WordApp = GetObject(, "word.application")
    If Err Then
        Err.Clear
        Set WordApp = CreateObject("word.application")
        If Err Then
            MsgBox ("不能运行WORD2000，请检查是否安装了WORD2000！")
            Exit Sub
        End If
    End If
    WordApp.Visible = False
    WordApp.Documents.Add
    WordApp.Selection.InsertFile (App.Path + "\doc\ss01.doc")'临时文件1
    AddPicture (App.Path + "\Picture\3-1b.jpg")'插入图片
    WordApp.Selection.InsertFile (App.Path + "\doc\ss02.doc")'临时文件2
    '删除临时文件
    FileOperate.DeleteFile App.Path + "\doc\*.doc", False   
    WordApp.ActiveDocument.SaveAs (App.Path + "\doc\JSS.doc")'需要的正式文件    WordApp.Documents.Close
    WordApp.Quit
    Set WordApp = Nothing

Answer 5

还是没有解决
运行到addpicture()方法时报错：未定义的函数和过程？怎么查找某个文本并将光标移到那个位置？还有我在VB里面好像没找到关于这方面的帮助，我应该去哪找一下帮助？

Answer 6

这样的功能比较合适的方案是做加载项
参见：http://office.9zp.com/dispbbs.asp?boardID=15&ID=220
不过“并且贴上的签名图片要防拷贝”这功能实现不了。