- 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=82745)
-- 发布时间：2016/3/24 9:46:00
-- [求助]高手进！WORD套打模板中字体如何设置粗细
现在需要设置套打模板中，引用数据库的部分字体粗体，请问各位大侠，如何实现？
-- 发布时间：2016/3/24 9:54:00
--
模板不能实现，你要先生成报表，然后再用下面的方法设置字体的样式
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open("d:\\test.doc")
Dim gjzs As String = "Test|abc|test"
Dim flag As Boolean = False
For Each gjz As String In gjzs.split("|")
app.ActiveWindow.Selection.WholeStory
With app.ActiveWindow.Selection.Find
.text = gjz
End With
Do While app.ActiveWindow.Selection.Find.Execute
app.ActiveWindow.Selection.Range.HighlightColorIndex = 7
Loop
Next
doc.saved = True
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
End try
-- 发布时间：2016/3/24 10:27:00
--
谢谢版主达人
-- 发布时间：2016/3/24 10:32:00
--
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open("d:\\test.doc")
Dim gjzs As String = "Test|abc|test"
Dim flag As Boolean = False
For Each gjz As String In gjzs.split("|")
app.ActiveWindow.Selection.WholeStory
With app.ActiveWindow.Selection.Find
.text = gjz
End With
Do While app.ActiveWindow.Selection.Find.Execute
app.ActiveWindow.Selection.Range.Font.Bold = True \'加粗
app.ActiveWindow.Selection.Range.Font.ColorIndex = 3\'颜色
Loop
Next
doc.saved = True
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
End try
-- 发布时间：2016/3/24 16:02:00
--
app.ActiveWindow.Selection.Range.Font.Bold = True \'加粗
app.ActiveWindow.Selection.Range.Font.ColorIndex = 3\'颜色
。。。。。。
大红袍版主，能否介绍一下相关知识，比如：选择不同字体，字体加大。。。。
谢谢
-- 发布时间：2016/3/24 16:06:00
--
Rg.Value = "Foxtable操控Excel全攻略"
With Rg.Font
.Name = "黑体" \'字体
.Size = 20 \'字号
.Bold = True \'加粗
.Italic = True \'斜体
.ColorIndex = 3\'颜色
End With