Foxtable(狐表)用户栏目专家坐堂 → 生成文档


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

主题:生成文档

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


加好友 发短信
等级:四尾狐 帖子:811 积分:9175 威望:0 精华:0 注册:2017/1/26 14:38:00
生成文档  发帖心情 Post By:2025/1/7 17:01:00 [只看该作者]

生成文档的时候,如果生成的表格边框颜色用black,貌似上面会粗一点

另外,这个页码,有没有可能从第二页或者第三页开始编


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


加好友 发短信
等级:超级版主 帖子:111651 积分:568379 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/7 17:09:00 [只看该作者]

我感觉边框一样

至于页码,如果是放在页眉页脚,现在只能统一设置

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


加好友 发短信
等级:管理员 帖子:47506 积分:251448 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2025/1/8 15:02:00 [只看该作者]

可以这样:

Dim wdc As New WordCreator()
For i As Integer = 1 To 10
    wdc.AddParagraph("Foxtable 2025春季更新").Alignment = Word.RtfHorizontalAlignment.Left
    wdc.NewPage() '必须用NewPage
    wdc.CurrentSection.Footer.Add(New Word.Objects.RtfString("第" & i & "页")) '通过CurrentSection设置
Next 
Dim fl As String = "c:\temp\test.docx"
wdc.Save(fl) '保存文件
Process.Start(fl) '打开文件

 回到顶部