如何在Visual Studio(VB)中为Word段落部分内容设置粗体

我完全懂你遇到的麻烦——当段落里有长度不固定的变量时，想精准给部分文本加格式确实容易踩坑。你之前的做法问题出在先设置格式再写入文本，而且直接修改Paragraph.Range的Start/End也没意义，因为当你给Range赋值新文本时，它的范围会自动覆盖整个新段落，之前设置的Start/End会被重置，导致整个段落都继承了加粗格式。

给你两个简单直接的思路，都不用全局遍历文档字符，完全在Paragraph对象内操作：

方法一：先写完整文本，再截取固定部分设置格式 #

这是最稳妥的方案，先把所有内容写入段落，就能准确基于固定文本的长度来定位需要加粗的范围：

Dim Para1 As Word.Paragraph
Set Para1 = WordDoc.Content.Paragraphs.Add ' VB里对象赋值必须用Set

' 先写入完整的段落文本（固定文本+变量）
Para1.Range.Text = "Job number is: " & myJobID ' 用&连接字符串比+更安全

' 创建一个子Range，只覆盖需要加粗的固定文本部分
Dim boldRange As Word.Range
Set boldRange = Para1.Range
' 让Range的结束位置停在固定文本的末尾
boldRange.End = boldRange.Start + Len("Job number is: ")
' 设置加粗格式
boldRange.Font.Bold = True

这个方法的核心是：先确定完整文本的范围，再从里面截取需要格式化的子范围。因为固定文本的长度是已知的，不管后面的变量myJobID多长，都不会影响前面固定部分的定位。

方法二：分段插入带格式的文本 #

如果你不想先写完整文本，也可以分两次插入：先插入加粗的固定文本，再插入不加粗的变量内容，全程基于同一个Paragraph的Range操作：

Dim Para1 As Word.Paragraph
Set Para1 = WordDoc.Content.Paragraphs.Add

' 先设置当前Range的格式为加粗，插入固定文本
Para1.Range.Font.Bold = True
Para1.Range.Text = "Job number is: "

' 把Range的起点移到当前文本的末尾，取消加粗，插入变量
Para1.Range.Collapse Direction:=wdCollapseEnd ' 折叠到当前Range的末尾
Para1.Range.Font.Bold = False
Para1.Range.Text = myJobID

这个方法的关键是用Collapse方法把Range的起点和终点合并到当前文本的末尾，这样后续插入的内容就不会覆盖之前的格式。

额外提醒 #

1. VB里操作Word对象时，必须用Set关键字给对象变量赋值（比如Paragraph、Range），你之前的代码里Para1 = WordDoc.Content.Paragraphs.Add少了Set，这也是潜在的问题。
2. 连接字符串尽量用&而不是+，因为+在遇到数值类型变量时会触发加法运算，容易出错。

内容的提问来源于stack exchange，提问作者JohnA