过程名: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
' '{单位}{费用名称}{费用名细}{大写金额}{金额}{鉴定单位}{经办人}{日期}
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