vba 字符串参量过长

使用vba将excel中的内容插入word的指定位置，当字符串长度过长时，执行vba报“字符串参量过长”，代码如下：

Dim objApp As Object 
Dim objDoc As Object 
Dim strTemplates As String
Dim Content As String

Set objApp = CreateObject("Word.Application")
Set objDoc = objApp.Documents.Open(strTemplates, , False)

Content = Cells(2, 9)


     With objApp.Application.Selection

        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
           With .Find
              .Text = "{$简历}"
              .Replacement.Text = Content
           End With
        .Find.Execute Replace:=wdReplaceAll
 
      End With

当从excel中读到的Content过大时报错：

这里使用TypeText 将问题解决：

Dim objApp As Object 
Dim objDoc As Object 
Dim strTemplates As String
Dim Content As String

Set objApp = CreateObject("Word.Application")
Set objDoc = objApp.Documents.Open(strTemplates, , False)

Content = Cells(2, 9)

Set objSelection = objApp.Selection
objApp.Options.ReplaceSelection = True
objSelection.Find.Text = "{$简历}"
objSelection.Find.Forward = True
objSelection.Find.MatchWholeWord = True
objSelection.Find.Execute
objSelection.TypeText Content