title: runtime error 5854 string parameter is too long
body: <p>I use following macro and sometimes it gives parameter is too long error. how can I solve it?</p>
  
  <pre><code>Sub BoldFirstLetterInSentence()
  Dim s As Range
  Dim doc1 As Document
  Dim doc2 As Document
  
  Set doc1 = Word.Documents("Doc1.docx")
  Set doc2 = Word.Documents("Doc2.docx")
  
  For Each s In doc1.Sentences
      If s.Characters(1).Bold = True Then
          Debug.Print s
          With doc2
              Selection.Find.ClearFormatting
              With Selection.Find
                  .Text = s
                  .Replacement.Text = ""
                  .Forward = True
                  .Wrap = wdFindContinue
                  .Format = False
                  .MatchCase = False
                  .MatchWholeWord = False
                  .MatchWildcards = False
                  .MatchSoundsLike = False
                  .MatchAllWordForms = False
              End With
              a = Selection.Find.Execute
              If a = True Then
                  Selection.Font.Bold = True
              End If
          End With
      End If
  Next
  
  End Sub
  </code></pre>