実行時エラー´5854´ 文字列型パラメーターが長すぎます。

VBAで
実行時エラー´5854´　文字列型パラメーターが長すぎます。というエラーが出ました。
解決方法を教えてください。

Sub メイン()
For i = 4 To 16
If Cells(i, 2) = "〇" Then
文 = 文 & Cells(i + 1, 3) & vbCr & vbCr
End If
Next

For i = 4 To 16
If Cells(i, 6) = "〇" Then
文 = 文 & Cells(i + 1, 7) & vbCr & vbCr
End If
Next

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

Set wdApp = New Word.Application
wdApp.Visible = True

Set wdDoc = wdApp.Documents.Open("C:\Users\テンプレート.docx", ReadOnly:=True)

Dim objFind As Word.Find
Set objFind = wdApp.Selection.Find

objFind.Text = "≪当て込み≫"
objFind.Replacement.Text = 文

Call objFind.Execute(Replace:=Word.wdReplaceAll)

End Sub

宜しくお願いします。

質問者からの補足コメント

• すみません、
  Excel vbaに書いてあるものです。
  どこにコピペすればいいかも教えてください。
  よろしくお願いします。

    補足日時：2023/06/09 16:05

No.3 回答者： 冬湖 回答日時： 2023/06/09 16:13

VBAの記述文字はほぼ判るものの順序は全く判りませんので・・m(_ _)m

この回答へのお礼

ありがとうございました。

お礼日時：2023/06/14 23:04

No.2 回答者： 冬湖 回答日時： 2023/06/08 21:40

もう一件　Word-VBA　でのエラー対処

https://stackoverflow.com/questions/65327765/err …

No.1 回答者： 冬湖 回答日時： 2023/06/08 21:37

Wordなどに組み込むVBAでしょうか？

次のページに
メインとなる部分で置換後の文字列が255文字を超えるとエラーになり、対処方法が記載されてます
https://stabucky.com/wp/archives/6675




Mbasicをスタンドアロンで囓っただけの若輩・・m(_ _)m