用ASP实现超长内容的word模板替换objDoc.Content.Find.Execute

内部系统生成DOC报表时，会因为数据内容过长而出错，做了一下修正，实现超长内容的WORD模板下的替换。

 

Sub WordReplace(objDoc,strFind,strReplace)
 Dim i,strContent
if isnull(strReplace) then
 objDoc.Content.Find.Execute strFind, , True, , , , , , , "", 2
else
 if len(strReplace)<=200 then
  objDoc.Content.Find.Execute strFind, , True, , , , , , , strReplace, 2
 else
  i=0
  do while i*200<len(strReplace)
   strContent=mid(strReplace,i*200+1,200)+strFind
   objDoc.Content.Find.Execute strFind, , True, , , , , , , strContent, 2
   i=i+1
  loop
  objDoc.Content.Find.Execute strFind, , True, , , , , , , "", 2
 end if
end if
end sub