Foxtable(狐表)用户栏目专家坐堂 → 套印问题


  共有6953人关注过本帖树形打印复制链接

主题:套印问题

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/25 16:57:00 [显示全部帖子]

https://docs.microsoft.com/zh-cn/office/vba/api/word.wdwraptype

参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=126389

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 8:34:00 [显示全部帖子]

.WrapFormat.Type = MSWord.WdWrapType.wdWrapBehind

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 10:15:00 [显示全部帖子]

Dim pic = sel.InlineShapes.AddPicture(img, False, True)
pic .WrapFormat.Type = MSWord.WdWrapType.wdWrapBehind

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 11:53:00 [显示全部帖子]

    Dim pic As MSWord.InlineShape = sel.InlineShapes.AddPicture(img)
    pic.Height = 100 '图片高
    pic.Width = 100 '图片宽
    Dim p2 = pic.ConvertToShape
    p2.WrapFormat.Type = MSWord.WdWrapType.wdWrapBehind 
    Doc.save

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 13:58:00 [显示全部帖子]

    Dim p2 = pic.ConvertToShape
    p2.WrapFormat.Type = MSWord.WdWrapType.wdWrapBehind 
        With p2 
       .Left = .Left - .Width / 2 
       .Top = .Top - .Height / 2     
    End With 
    Doc.save 

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 16:06:00 [显示全部帖子]

比如

tables("表A").current("文档资料") = “c:\abc.doc”

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 17:12:00 [显示全部帖子]

调试

Dim fl As String = ProjectPath & "Reports \ 文档资料 \" & Vars ("事件ID") & Vars ("姓名") & "登记表.doc" '指定模板文件

msgbox(fl)

Dim fl1 As String = ProjectPath & "Reports \ 文档资料 \ " & Vars ("事件ID") & Vars ("姓名") & "登记表(已用印).doc" '指定目标文件

msgbox(fl1 )


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 17:19:00 [显示全部帖子]

说明全局变量没有值

msgbox(Vars ("事件ID"))

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 17:34:00 [显示全部帖子]

学会调试

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/27 16:08:00 [显示全部帖子]

安装的office2007?需要上网下载一个office2007保存为pdf的插件:https://www.baidu.com/baidu?ie=UTF-8&word=saveaspdfandxps

 回到顶部
总数 16 1 2 下一页