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）。但是，这对我有用... const axios = { get: url => Promise.resolve('some value') }; const o = new rxjs.Subject(); o.subscribe(v => { console.log("value: " + v); }); axios.get('url').then(data => { o.next(data); });

用ms中的vba结合部分段落

2 个答案: