用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