带特殊字符的Word VBA字符串插入

Question

代码段

String1 = "the quick brown" & " fox " &  "jumped over..."
With wdoc.Tables(pos)
   .Rows(1).Cells(1).Range.Text = String1
End with

很简单-分配字符串，然后将字符串分配给单元格。

我想做的是告诉“狐狸”这个词，他很大胆。这能做到吗？有特殊的字符序列吗？例如^B，有人知道在哪里可以找到完整的列表吗？文本显然可以是任何东西。。。

谢谢并问候塞恩

Answer 1

我只能为你需要的东西提出一个解决方案——据我所知，没有任何简单的解决方案。请参阅代码中的一些注释和解释。

'put each part of your text into array,
'No white-spaces inside quotation marks
String1 = Array("the quick brown", "fox", "jumped over...")

'let's change With structure a bit:
With wDoc.Tables(pos).Rows(1).Cells(1)

    'put text to table as a result of Joining all array elements
   .Range.Text = Join(String1, " ")

   'assuming you want to bold 2nd element of your text/array which ever long it is
   'we search range within document which refers to this part of our text
   'which could be done in this way:
   wDoc.Range( _
                .Range.Start + Len(String1(0)), _
                .Range.Start + Len(String1(0)) + Len(String1(1)) + 1). _
                Font.Bold = True

End With

结果如下所示：