如何在 Visual Studio (VB) 中仅将 Word 段落的一部分加粗

Question

我正在尝试从 Visual Basic 程序中导出 Word 文档。文档的不同部分需要不同的格式。

我有几个段落，我只需要将每个段落的部分加粗。我正在尝试设置需要加粗的每个段落中的范围，但无论我做什么，它似乎只想加粗整个段落。

我想做这样的事情：

Dim Para1 As Word.Paragraph
Para1 = WordDoc.Content.Paragraphs.Add
Para1.Range.Start = 1
Para1.Range.End = 14
Para1.Range.Font.Bold = True
Para1.Range.Text = "Job number is: " + myJobID

... 使其从“J”加粗到“:”（在 Para1.Range.Text 中），但不加粗 myJobID（这是我从用户那里获得的变量）。但是，无论我做什么，它都会将整个段落加粗，包括 myJobID。

我也尝试过创建一个 Range 变量来设置基于整个文档的范围，但问题是，我在 Word 文档中输出的几个变量的长度会有所不同，并且因此没有办法知道我想加粗的下一部分的开始位置。所以基本上，我必须在 Paragraph 对象中工作，而不是遍历整个文档中的所有字符。

希望这是有道理的。有什么想法吗？

Answer 1

为了格式化单个文本运行，插入时有必要将文本分解为单个运行。此外，最好使用独立的Range 对象。在格式化命令之间，Range 需要“折叠” - 可以将其想象为按下选择的右（或左）箭头以使其成为闪烁的光标。类似的东西

Dim Para1 As Word.Paragraph
Dim rng as Word.Range
Para1 = WordDoc.Content.Paragraphs.Add
rng = Para1.Range
rng.Text = "Job number is: "
rng.Font.Bold = True
rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
rng.Text = myJobID
rng.Font.Bold = False
rng.Collapse Word.WdCollapseDirection.wdCollapseEnd

如果确实需要一次性插入全文，那么查找/替换来定位应该以不同格式设置的文本是一种事后格式化的方法，尽管效率较低。

另一种可能性是使用字符串操作函数，例如Instr（或Contains）、Left、Mid 等来确定子字符串在较长字符串中的位置。然后Range.Start 和Range.End 可以使用这些值。但通常最好不要依赖start 和end 值，因为Word 可以插入不可见的字符，这些字符会导致此编号失效。

Answer 2

创建另一个 Range 对象，该对象仅覆盖您要加粗的字符。

下面的代码没有经过测试（这台机器上没有设置完整的VS），但应该给你一个想法：

Dim para1 As Word.Paragraph
Dim textToBeBolded As Word.Range

para1 = WordDoc.Content.Paragraphs.Add 'ThisDocument.Paragraphs.Add in VBA
para1.Range.Text = "Job number is: " + myJobID
para1.Range.SetRange 1, 14
textToBeBolded = para1.Range
textToBeBolded.SetRange 1, 14
textToBeBolded.Font.Bold = True