以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于操作word的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80307)
--  作者：newsun2k
--  发布时间：2016/1/20 14:39:00
--  关于操作word的问题
1、能否在指定的位置插入图片文件
2、能否输出成PDF
这个word是我做好的模版，根据表中的数据，填入后形成的单证
--  作者：大红袍
--  发布时间：2016/1/20 14:46:00
--  

1、参考

 

http://www.foxtable.com/help/topics/2890.htm

 

或者

 

http://www.foxtable.com/help/topics/1300.htm

 

 

 
--  作者：大红袍
--  发布时间：2016/1/20 14:46:00
--  

2、参考

 

http://www.foxtable.com/help/topics/2931.htm

 
--  作者：newsun2k
--  发布时间：2016/1/20 15:55:00
--  
如果我不希望用Dim wrt As New WordReport(Tables("表A"),tm,fl1) \'定义一个WordReport
但是希望用到savetopdf这个功能，能否实现。
因为我的word已经通过其他方式生成了。
--  作者：newsun2k
--  发布时间：2016/1/20 16:12:00
--  
解决了，主要是原来导出一个word文件，后来用户希望导出盖公章的pdf。研究了半天，把代码贴在下面，希望其他人需要的可以参考一下。
没有什么注释，将就看了。
    If Doc.Bookmarks.Exists("thePic") = True Then
        \'添加公章
        If filesys.FileExists(projectPath & "模版\\" & strBankName & ".png") Then
            Dim shp As MSWord.InlineShape 
            Dim mypic As MSWord.shape
            Doc.Bookmarks("thePic").Range.Select
            shp = app.Selection.InlineShapes.AddPicture(projectPath & "模版\\" & strBankName & ".png")
            mypic = shp.converttoshape
            mypic.line.visible =False
        End If
    End If
    doc.SAVE
    Dim fl2 As String = FileName.replace(".doc",".pdf")
    doc.ExportAsFixedFormat(fl2,17)
    Dim Proc As New Process \'打开PDF文件
    Proc.File = fl2
    Proc.Start()
--  作者：newsun2k
--  发布时间：2016/1/21 13:40:00
--  
昨天没有在其他电脑上测试，我自己的电脑是没有问题。今天试了一下，在别人的电脑上报了一个错误。
thePic导出失败，因为此功能尚未安装。
袍哥帮忙看看，是缺少什么？
--  作者：大红袍
--  发布时间：2016/1/21 14:11:00
--  

只有个MS Office2007以上的才能保存为pdf，

 

而且2007版还需要安装一个组件 save as pdf，再低版本不支持。