用MS Word中的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

接受的答案对我不起作用，因为我无法正确执行Range（x，y）。 但是这对我doc.Paragraphs(paragraphIndex).Range.Sentences(1).Font.Bold = True ... doc.Paragraphs(paragraphIndex).Range.Sentences(1).Font.Bold = True