用ms中的vba结合部分段落

Question

我无法在MS WORD中加入段落的一部分。我正在逐段建立一份文件。只有其中一个我想只加一个数字。该数字可能在文档中出现不止一次，但在此特定段落中应仅加粗一次。

例：

我的第一段。

我的第二段。

我的号码是123。

我使用以下代码访问段落：

Dim paragraphN As Integer
paragraphN = 3
ActiveDocument.Sections(1).Range.Paragraphs(paragraphN).Range

我不知道如何只指定这个特定段落的一部分。我试过了：

ActiveDocument.Sections(1).Range.Paragraphs(paragraphN).Range(Start:=14, End:=17).Font.Bold = True

ActiveDocument.Sections(1).Range.Paragraphs(paragraphN).Range.Characters(Start:=14, End:=17).Font.Bold = True

ActiveDocument.Sections(1).Range.Paragraphs(paragraphN).Characters(Start:=14, End:=17).Range.Font.Bold = True

ActiveDocument.Sections(1).Range.Paragraphs(paragraphN).Characters.Range(Start:=14, End:=17).Font.Bold = True

ActiveDocument.Sections(1).Range.Paragraphs(paragraphN).Range(14,17).Font.Bold = True

都失败了。这个问题似乎很简单，但我没有想法......

Answer 1

我能够使用稍微不同的方法让它工作：

   ActiveDocument.Range(ActiveDocument.Paragraphs(1).Range.Characters(5).Start, _
   ActiveDocument.Paragraphs(1).Range.Characters(10).End).Font.Bold = True

您可以使用变量调整段落编号和字符编号。

Answer 2

接受的答案对我不起作用，因为我无法在没有错误的情况下执行范围（x，y）。然而，这对我有用... doc.Paragraphs(paragraphIndex).Range.Sentences(1).Font.Bold = True