Asp获取数据库中的数据插入Word 时 怎么控制Word内容换行

今天在开发过程中,遇到一个这样的需求问题:

asp页面获取数据库字段中的数据插入到Word的一个已建好的书签位置

 

字段中的内容包含了回车符 Char(10) 和空格符 Char(13)

直接获取字段内容插入到Word时,Word编辑器打不开.

后经过这样的处理:

DataName=Replace(DataName,Chr(10)," ")
DataName=Replace(DataName,Chr(13)," ")

把空格和回车都换成空格符

 

但这样处理后,出现了新的问题,当在Word编辑器中直接敲回车键，点击保存后，回车没有起作用。

经过查找资料，得知：在Word中的换行代码为 /r

 

修改代码如下：

DataName=rs("DataName")
if (instr(DataName,chr(10))>0 or instr(DataName,chr(13))>0)then
           DataName=Replace(DataName,Chr(10),"/r")
           DataName=Replace(DataName,Chr(13)," ")
end if

 

这样就解决问题了