word控件问题

各位老大，找了这么一段代码，可以结决word控件字符串参量过长的问题，可是是用delphi写的，怎么可以改成js格式阿，帮帮忙阿，这是代码：
//strfind是要被替换的字符；strRplc是替换后的字符，突破了500个字符的限制。   
  //其实原理很简单，先查找字符如果找到用‘   ’替换，然后在当前位置用typetext方法输入超长字符串   
  //在word中先录了一段宏，然后移植到delphi中，以后涉及office的问题建议大家都可以用这种方法试试。
 Function   ReplaceMemo(strfind,   strRplc:   String;   vDocApp:   Variant):  Boolean;   
  Var   
      i:   integer;   
  Begin   
      Try   
          Result   :=   false;   
          vDocApp.Options.ReplaceSelection   :=   True;   
          vDocApp.Selection.Find.ClearFormatting;   
          vDocApp.Selection.Find.Text   :=   strfind;   
          vDocApp.Selection.Find.Replacement.Text   :=   '';   
          vDocApp.Selection.Find.Forward   :=   True;   
          vDocApp.Selection.Find.Wrap   :=   wdFindContinue;   
          vDocApp.Selection.Find.Format   :=   false;   
          vDocApp.Selection.Find.MatchCase   :=   false;   
          vDocApp.Selection.Find.MatchWholeWord   :=   false;   
          vDocApp.Selection.Find.MatchByte   :=   True;   
          vDocApp.Selection.Find.MatchWildcards   :=   false;   
          vDocApp.Selection.Find.MatchSoundsLike   :=   false;   
          vDocApp.Selection.Find.MatchAllWordForms   :=   false;   
          If   vDocApp.Selection.Find.Execute   Then   
              If   strRplc   <>   ''   Then   
                  vDocApp.Selection.TypeText(strRplc)   
              Else   
                  vDocApp.Selection.TypeText('   ');   
          vDocApp.Selection.homekey(Unit   :=   wdStory);           
          Result   :=   True;   
      Except   
          Result   :=   false;   
      End;   
  End;