在文本框中插入符号 VBA Word答案

【问题标题】：Insert Symbol in Text box VBA Word在文本框中插入符号 VBA Word
【发布时间】：2016-03-29 20:24:20
【问题描述】：

我有以下代码可以将文本框插入到 word 文档中：

Sub mark()
    Dim Box As Shape
    Set Box = ActiveDocument.Shapes.AddTextbox( _
        Orientation:=msoTextOrientationHorizontal, _
        Left:=20, Top:=20, Width:=20, Height:=20)
        Box.TextFrame.TextRange.Text = "tick"
End Sub

texbox里面的文字需要是：

Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3844, Unicode :=True

【问题讨论】：

我想通了：Box.TextFrame.TextRange.InsertSymbol 252, "Wingdings", True

标签： vba ms-word

【解决方案1】：

我知道您已经找到了答案，但是有一种更优化的方式来使用您找到的方法。由于无法在评论中很好地格式化代码，因此我将在答案空间中为您（以及可能有相同问题的其他人）编写它。此外，该网站更喜欢将有用信息放在“答案”中，因为评论往往会被忽略或删除......

要从“插入符号”对话框插入内容，请使用 InsertSymbol 方法，该方法适用于 Range 或 Selection`对象。

使用Rangeobject 始终是首选方法。为了获取文本框内容的 Range 对象，请调整您的代码，如下所示：

Sub mark()
  Dim Box as Word.Shape
  Dim rngBox as Word.Range
  Set Box = ActiveDocument.Shapes.AddTextBox( _
            Orientation:=msoTextOrientationHorizontal, _
            Left:=20, Top:=20, Width:=20, Height:=20,  _
  Set rngBox = Box.TextFrame.TextRange
  rngBox.Text = "tick"
  rngBox.Collapse wdCollapseEnd 'focus at end of Range
  rngBox.InsertSymbol Font:="Wingdings", CharacterNumber:=-3844, Unicode:=True
End Sub

Collapse 方法允许您根据需要继续添加文本（可选地带有格式）...

【讨论】：

不客气，我很高兴它有帮助。由于您是 StackOverflow 的新手：提出问题的人通常会单击“the”旁边的复选标记回答：1）站点管理员，2）其他可能以后有相同问题的人，3）授予“积分” “对答主。如果您认为您在评论中发布的信息是更好的答案，您可以将其放入“答案”中，然后（稍后）将其标记为“最”答案。