有一个Word文件,其内容是从网页上复制并粘贴的,因而格式比较乱。
一个自然段还没有结束,但段间已经有好几个回车符了。对于一个正常
的自然段,段的首行都是以4个空格字符开始。下面是一个例子:-----------------------------------------------------------------
年轻人!扶你的祖母一把!在外出时,为她探看前面的路,[CR]
预警每一块不平的地面,并为她推开厚重的门,说:"小心![CR]
别辗了手!该带的东西带了吗?"如同老人家以前对你说的一般。[CR]
这样,你就真正地成熟了。而且老一辈也便可以安然地离去,[CR]
因为留在你心中的,是他们不朽的精神形象,而非暂时的肉体衰逝![CR]
----------------------------------------------------------------- 其中[CR]表示一个回车符。实际上该例子中只有两个段落,但直接复制、
粘贴到Word中时,就成了5个段落。
我想请教一下,能否用VB编一个程序,直接操作Word文档,将其中多余的
回车符删掉,但保留其他的所有信息(如文本格式、图片等)Thx!
一个自然段还没有结束,但段间已经有好几个回车符了。对于一个正常
的自然段,段的首行都是以4个空格字符开始。下面是一个例子:-----------------------------------------------------------------
年轻人!扶你的祖母一把!在外出时,为她探看前面的路,[CR]
预警每一块不平的地面,并为她推开厚重的门,说:"小心![CR]
别辗了手!该带的东西带了吗?"如同老人家以前对你说的一般。[CR]
这样,你就真正地成熟了。而且老一辈也便可以安然地离去,[CR]
因为留在你心中的,是他们不朽的精神形象,而非暂时的肉体衰逝![CR]
----------------------------------------------------------------- 其中[CR]表示一个回车符。实际上该例子中只有两个段落,但直接复制、
粘贴到Word中时,就成了5个段落。
我想请教一下,能否用VB编一个程序,直接操作Word文档,将其中多余的
回车符删掉,但保留其他的所有信息(如文本格式、图片等)Thx!
解决方案 »
- VB中调用MATLAB为什么运行时说“DDE初始化时无外部应用程序响应”?
- 一个棘手的Access数据库同步问题
- 各位高手,请进来帮我呀!------->可着急呢!
- 求 从数据库里读数据到word模板里的例子!
- vbscript调用COM函数的返回值,无法访问数组内容,头疼阿,各位大侠请出手
- 我编写了一个DLL文件,并且在我的机器上注册了
- 華強科技有限公司為您提供進銷存、MRP-II、會計財務整套軟件的開發資料與VB源代碼!
- 关于SQL数据库间数据传输的难题。
- 键盘控制问题(高分相送!)
- 输出2000~2100年的所有闰年
- 水晶报表的enablezoomcontral 能否在运行时设定固定的大小,设置成%75
- 关于临时创建控件的深入问题
然后:
strWord = Replace(strWord,vbcrLf,"")'替换掉所有的回车,包括正常的自然段
strWord = Replace(strWord," ",vbCrLf & " ")'在每个段开始之前加一个回车