内部系统生成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