使用vb调用vba在word中插入图片的代码

过程名：wdout

作用：使用定义好的模板，自动将其中的形如｛????｝的字符以字段中的内容替换，并将｛照片｝替换成照片。如果没有照片，则删除相应的替换字符。

参数：photofile——照片文件的路径字符串，为完整绝对路径。不判断文件是否存在，如果不存在将出错。

插入图片其实只有一句
wdApp.Selection.InlineShapes.AddPicture FileName:= _
            PhotoFile, LinkToFile:=False, SaveWithDocument:= _
            True
可以用word的宏记录取得相应的代码。

Private   Function  WdOut(ByVal PhotoFile  As   String )
' '{单位}{费用名称}{费用名细}{大写金额}{金额}{鉴定单位}{经办人}{日期}

Dim  wdApp  As   Object , wdDoc  As   Object
Dim  i  As   Integer

If  CheckWord  =   False   Then
     MsgBox   " 没有安装Word软件或软件安装错误！ " , vbExclamation
     Exit   Function
End   If

If  DotName  =   ""   Or   Not  FileExist(DotName)  Then
         MsgBox   " 没有找到打印模板，无法打印！！ " , vbExclamation
         Exit   Function
End   If

MsgWinShow