在Word表格单元格中设置为加粗的特定字符

我有一个MS Excel工作表与自定义脚本。 该脚本的一部分应该是编辑MS Word文档中的信息。

需要编辑的东西是存储在Word文档的表格单元格中的文本。 我设法编辑它自己的文本，但我需要将部分文本设置为粗体。

我怎样才能做到这一点？

这是一个例子。 说我需要在表单元格（1,1）中input“123456789”，并将第一个字符“12345”设置为粗体。 喜欢这个：

从Excel。 这是我试过的：

Dim SavePath as string SavePath = "... path ..." Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open(SavePath) objWord.Visible = True objDoc.Tables(1).Cell(1, 1).Range.Text = "123456789" 'So far, so good. The next part (how to set part of text to bold) is what I can't figure out. This does not work: With objDoc.Tables(1).Cell(1, 1).Range(Start:=0, End:=5) .Content.Font.Bold = True End With 

我知道我可以设置一个完整的单元格，

 objDoc.Tables(1).Cell(ThisRow, ThisCol).Range.Bold = True 

但是，我可以处理单元格内的特定字符吗？

谁能帮我？

Answer 1

试试这个试验和testing在Windows 7公关。 64，Word 2010 32。

 Sub test() Set objDoc = ActiveDocument objDoc.Tables(1).Cell(1, 1).Range.Text = "123456789" Set myrange = objDoc.Tables(1).Cell(1, 1).Range.Paragraphs(1).Range MsgBox myrange.Text lStartPos = myrange.Characters(1).Start lEndPos = myrange.Characters(5).End Set myrange = objDoc.Range(lStartPos, lEndPos) myrange.Font.Bold = True End Sub 

你应该使用这个。

 Sub test() Dim SavePath As String SavePath = "... path ..." Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open(SavePath) objWord.Visible = True objDoc.Tables(1).Cell(1, 1).Range.Text = "123456789" Set myrange = objDoc.Tables(1).Cell(1, 1).Range.Paragraphs(1).Range MsgBox myrange.Text lStartPos = myrange.Characters(1).Start lEndPos = myrange.Characters(5).End Set myrange = objDoc.Range(lStartPos, lEndPos) myrange.Font.Bold = True End Sub