替换文档中多余的换行符

hank2611 · 发表于 2011-3-6 23:48

从网上复制的文档或者pdf转来的文档经常会有多余的换行符，例如下段文字

阿尔金山自然保护区（AltunshanNatureRe-serve）中国国家级自然
保护区，属高原生态系统的保护区。位于新疆维吾尔自治区若羌县南部阿尔
金山以南，东至新疆、青海省界，南至新疆、西藏间的昆仑山，西至且末县
东南角，北沿祁漫塔格山脊向东向西延伸。介于北纬.. 36°～37°38＇，东经
87°10＇～91°18＇，全区地处高山环绕的封闭性高山盆地内，面积.. 4.494
万平方公里。1983年设立。自然地理分区为青藏高原的一部分，水文分区属
于羌塘内流区。自然环境特点是高寒，平均海拔超过.. 4500米，有.. 5000米以
上高峰.. 35处。最高的木孜塔格峰（意为雪山）海拔.. 7723米，位于且末、若
羌、西藏边界上。次为东南角的布喀（意为野牛）达坂，海拔.. 6860米。盆地
底部有众多盐湖，最大的阿牙克库木湖，海拔.. 3867米，面积.. 510平方公里；
西边的阿其克库勒湖，海拔.. 4250米，面积.. 350平方公里。由于相对高差不大，

一个个删除回车符会很繁琐，尤其内容很多的时候
可使用查找替换的方法
一般情况下 “ 。？！ ”为句子结束标点，通常会作为分段位置，所以这三个标点和段落符号标记在一起时不做更改。
注：硬回车代码 ^13
   软回车代码 ^11
如图

查找框输入 ([!！？。])^13
替换框       \1

[ 本帖最后由 hank2611 于 2011-3-7 13:48 编辑 ]

wshcw · 发表于 2011-3-7 00:29

查找替换很复杂,学习了.

szh9388 · 发表于 2011-3-7 07:58

学习学习，查找与替换功能强大

BAODL · 发表于 2011-3-7 11:27

真是巧了，今天上论坛就是要解决这个问题，就发现了这个帖子，工作中多次遇到这个问题，我预想的解决办法也和楼主的想法一样，但是像下面这种带标题行的情况就不行了，所以这个方法不是通用的办法，因此想请教高手用VBA来解决这个问题。如：
（一）阿尔金山自然保护区
阿尔金山自然保护区（AltunshanNatureRe-serve）中国国家级自然
保护区，属高原生态系统的保护区。位于新疆维吾尔自治区若羌县南部阿尔
金山以南，东至新疆、青海省界，南至新疆、西藏间的昆仑山，西至且末县

象（一）阿尔金山自然保护区，这样的标题段落，在替换时也会一并的划入到紧跟后面的段落里去了，变成：
（一）阿尔金山自然保护区阿尔金山自然保护区（AltunshanNatureRe-serve）中国国家级自然保护区，属高原生态系统的保护区。位于新疆维吾尔自治区若羌县南部阿尔金山以南，东至新疆、青海省界，南至新疆、西藏间的昆仑山，西至且末县

所以我遇到这个问题，以目前的水平根本解决不了，只能手动的一个个来删除了，网上下载的各式排版小软件也解决不了。

请哪位懂VBA语言的伸一下援手，做个宏来解决吧。我的设想是首先要进行一个判断，一个回车符看它的位置在第几列以前，如果大于这个列，则进行删除，如果在这个列之前的，就视为标题的换行符，而不进行替换。
请帮助，谢谢，我想此问题应该是共性的，所以编出这个是能利益大家的。

[ 本帖最后由 BAODL 于 2011-3-7 11:29 编辑 ]

szqhb · 发表于 2011-3-7 13:25

毕竟标题是不多的，你就将就一下吧，多打几个回车符

BAODL · 发表于 2011-3-7 13:37

有的文档不但有标题，还有类似于如下：
(1)AAAAAAAA
(2)BBBBBBBB
(3)CCCCCCCC

这种情况也很多见，用查找替换的方法也都会合并到一块儿去了，如果能将就，连查找替换都不用，一个个手动改好了，我想EXCELHOME的初衷也是为了大家相互交流技术，共同提高而设的，将就不是治学的状态。

hank2611 · 发表于 2011-3-7 13:47

一石激起千层浪，
鄙人抛了一块砖头，迎来无数的美玉，
看来这是一个大家都比较关心的问题，呵呵

hank2611 · 发表于 2011-3-7 14:06

把word文档的帮助内容贴出来，以供大家参考

要查找和替换的项目的通配符注释

选中“使用通配符”复选框后，Word 将只查找与指定的内容精确匹配的文本。请注意，“区分大小写”和“全字匹配”复选框将不可用（灰显），以表示这些选项已自动开启。您无法关闭这些选项。
要搜索已被定义为通配符的字符，请在字符前面键入一个反斜杠 (\)。例如，键入 \? 可查找问号。
可使用括号对通配符和文本进行分组，以指明处理顺序。例如，键入 <(pre)*(ed)> 可以查找“presorted”和“prevented”。
可使用 \n 通配符搜索表达式，然后将其替换为经过重新排列的表达式。例如，在“查找内容”框中键入 (Ashton) (Chris)，并在“替换为”框中键入 \2 \1。Word 将找到 Ashton Chris 并将其替换为 Chris Ashton。

要查找	键入	示例
任意单个字符	?	s?t 可查找“sat”和“set”。
任意字符串	*	s*d 可查找“sad”和“started”。
单词的开头	<	<(inter) 可查找“interesting”和“intercept”，但不可查找“splintered”。
单词的结尾	>	(in)> 可查找“in”和“within”，但不可查找“interesting”。
指定字符之一	[ ]	w[io]n 可查找“win”和“won”。
指定范围内任意单个字符	[-]	[r-t]ight 可查找“right”和“sight”。范围必须是升序。
括号内的范围中的字符以外的任意单字符	[!x-z]	t[!a-m]ck 可查找 tock 和 tuck，但不可查找 tack 或 tick。
n 个重复的前一字符或表达式	{n}	fe{2}d 可查找“feed”，但不可查找“fed”。
至少 n 个前一字符或表达式	{n,}	fe{1,}d 可查找 fed 和 feed。
n 到 m 个前一字符或表达式	{n,m}	10{1,3} 可查找“10”、“100”和“1000”。
一个或一个以上的前一字符或表达式	@	lo@t 可查找“lot”和“loot”。

返回页首
使用代码查找字母、格式、域或特殊字符使用下面的代码可以查找字母、格式、域或特殊字符。请注意，有些代码只有开启或关闭“使用通配符”选项时才能使用。
可以在“查找内容”或“替换为”框中使用的代码

要查找	键入
段落标记 ( )	^p（开启“使用通配符”选项时，在“查找内容” 框中无效），或 ^13
制表符 ( )	^t 或 ^9
ASCII 字符	^nnn，其中 nnn 代表字符代码。
ANSI 字符	^0nnn，其中 0 代表零，nnn 代表字符代码
长划线 ( - )	^+
短划线 ( - )	^=
脱字号	^^
手动换行符 ( )	^l 或 ^11
分栏符	^n 或 ^14
分页符或分节符	^12（替换时，插入分页符）
手动分页符	^m（当“使用通配符”选项开启时，还将查找或替换分节符）
不间断空格 ( )	^s
不间断连字符 ( )	^~
可选连字符 ( )	^-

只能在“查找内容”框中使用的代码（开启“使用通配符”时）

要查找	键入
图片或图形（仅限内嵌）	^g

只能在“查找内容”框中使用的代码（关闭“使用通配符”时）

要查找	键入
任意字符	^?
任意数字	^#
任意字母	^$
Unicode 字符	^Unnnn，其中 nnnn 代表字符代码
图片或图形（仅限内嵌）	^1
脚注标记	^f 或 ^2
尾注标记	^e
域	^d
域左大括号（当域代码可见时）	^19
域右大括号（当域代码可见时）	^21
批注	^a 或 ^5
分节符	^b
全角空格 (Unicode)	^u8195
半角空格 (Unicode)	^u8194
空白	^w（常规空格、不间断空格和制表符的任意组合）

xpczff · 发表于 2011-9-16 16:05

以前都在看关于EXCEL的东西，没有想到今天到这里一看也是受用无穷啊！！！

顶！
顶顶！
顶顶顶！

beyond008 · 发表于 2012-7-11 12:01

原来查找和替换也有这么多的东西

		自动登录	找回密码
密码			免费注册

[分享] 替换文档中多余的换行符