- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 水印效果 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90243)
-- 发布时间：2016/9/8 11:34:00
-- 水印效果
求高手帮我把下面两段代码合并
Dim tm As String = ProjectPath & "Attachments\\介绍信.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\介绍信.doc" \'指定目标文件
\'Dim rt As prt.RenderText \'定义一个文本对象
Dim wrt As New WordReport(Tables("介绍信管理"),tm,fl) \'定义一个WordReport
For Each r As Row In Tables("介绍信管理").Rows \'逐行生成报表
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
wrt.BuildOne(r)
Next
wrt.Show() \'显示报表
此主题相关图片如下：搜狗截图16年09月08日1129_2.png
\'水印代码
Dim doc As New PrintDoc() \'定义一个报表
Dim rt As prt.RenderText \'定义一个文本对象
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式
For i As Integer = 0 To 14
rt = New prt.RenderText() \'创建文本对象
rt.Text = "XXXX建设工程有限公司 " & Date.Now \'设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rt.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
rt.Style.TextColor = Color.plum \'设置文本颜色
rt.Width = 53 \'宽度为39毫米
rt.Height = 48 \'宽度为35毫米
rt.Style.Spacing.All = 2 \'设置各个方向的间隔
rt.Style.TextAngle = 25 \'顺时钟旋转45度
doc.Body.Children.Add(rt) \'将文本对象加入到报表
Next
doc.Preview() \'预览
此主题相关图片如下：搜狗截图16年09月08日1129_1.png
帮忙将上面的两段代码合并在 效果如下图：
此主题相关图片如下：搜狗截图16年09月08日1129_21.png
[此贴子已经被作者于2016/9/10 8:48:34编辑过]
-- 发布时间：2016/9/8 17:52:00
--
用word vba操作
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open("f:\\123.doc")
With doc
.Activate
app.WordBasic.RemoveWatermark \'删除旧的水印
For Each oSec As object In doc.Sections \'文档的节中循环
Dim myRange = oSec.Headers(MSWord.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
myRange.Delete \'删除页眉中的内容
Next
.Sections(1).Range.Select
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader \'插入水印前需更改视图样式为页眉视图
Dim i As Integer
For i = 1 To 3
\'设置插入水印,语法:表达式.AddTextEffect(预设文字效果, 文字内容, 字体名, 字体大小, 是否粗体, 是否斜体, 左侧位置, 顶部位置)
app.Selection.HeaderFooter.Shapes.AddTextEffect(10, "Foxtable 2016 ","宋体", 36, False, False, 0,i*200).Select
Next
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument \'恢复视图样式到原来样式
End With
doc.save
app.quit
catch ex As exception
app.quit
msgbox(ex.message)
End try
[此贴子已经被作者于2016/9/8 18:00:48编辑过]