Question

只是想知道是否有人知道为什么这不会将我的书签字体大小设置为12.我已经尝试在我声明Bookmark文本之前和之后使用它。也尝试了12和“12”。

myWordDoc.Bookmarks("DefText").Range.Font.Size() = 12
    myWordDoc.Bookmarks("DefText").Range.Text = Final1

任何帮助都会很棒。

Answer 1

经过一番搜索，找到了一个非常直接的解决方案。使用MS-Word样式。

myWordDoc.Bookmarks.Item("DefText").Range.Style = "Heading 3"
myWordDoc.Bookmarks.Item("DefText").Range.Style = "Defs"
myWordDoc.Bookmarks("DefText").Range.Text = Final1

第一种风格＆＃34;标题3＆＃34;将文本格式化为Times NR和12pt，然后是第二个＆＃34; Defs＆＃34;将其格式化为编号列表。（出于某种原因，＆＃34; Defs＆＃34;样式只格式化编号而不是内容）

Final1是从checkedboxlist构建的一串定义。这是一个例子：

For Each Def In CheckedListBox4.CheckedItems
If Def = "Other 1" Then Final1 = Final1 & TextBox2.Text & vbCrLf
If Def = "Other 2" Then Final1 = Final1 & TextBox41.Text & vbCrLf
If Def = "Other 3" Then Final1 = Final1 & TextBox42.Text & vbCrLf
If Def = "Other 4" Then Final1 = Final1 & TextBox43.Text & vbCrLf
If Def = "Other 5" Then Final1 = Final1 & TextBox44.Text & vbCrLf
Next

这对使用样式很有帮助： http://www.docs.is.ed.ac.uk/skills/documents/3738/3738.pdf

设置书签的格式。 VB.Net

1 个答案: