[求助]这个问题有人会吗？

xxxp · 发表于 2004-7-19 16:18

想把行尾不是标点符号或是逗号的行都与下一行合并，如何实现？

cofe2000 · 发表于 2004-7-19 16:57

用你的这个想法解决我的一个问题倒是应该可行，看来又要请守柔出手帮忙了

守柔 · 发表于 2004-7-19 17:02

只不知楼主确切意思，还是与“格式/段落/中文版式”有关。

可以参照一下此贴，将其中一部分代码略作修改。

xxxp · 发表于 2004-7-20 10:07

我对一小段进行了处理，效果还不错，文章较长时速度太慢！

有己处语句不明白，能不能请守柔解释一下:

ActiveDocument.Range(i.Range.End - 2, i.Range.End - 1) 'End-2和End-1是指什么？

Myrange <> "?￡" ?￡代表什么？

wdLine是指什么？

守柔 · 发表于 2004-7-20 10:42

Activedocument.range(i.range.end-2,i.range.end-1)意思是指当前（i)段落的最后一个文字，因为i.range.end是段落标记所在处。

myrange<>"。",由于网页中粘贴中文符号时变形了,你此处可改为"，"

wdline是指在行中移动，相当于使用键盘上的“END”与“HOME”键指将所选内容移动或扩展距离的度量单位。

xxxp · 发表于 2004-7-20 11:00

麻烦守柔再解释一下这三条语句的作用：

Myrange.Select Selection.EndKey Unit:=wdLine Selection.Delete

守柔 · 发表于 2004-7-20 11:04

就是将当前段落的最后一个文字先选定，再移动到最后，再将段落标记给删除了。

xxxp · 发表于 2004-7-20 12:23

我找到了一个更简单的办法：

查找：([!.:]^13

替换：\1

cofe2000 · 发表于 2004-7-20 12:57

以下是引用xxxp在2004-7-20 12:23:00的发言：

我找到了一个更简单的办法：

查找：([!.:]^13

替换：\1

请问你的这个替换怎么用，我怎么不行啊

xxxp · 发表于 2004-7-20 14:42

回cofe2000:

在高级里要把“使用通配符”选上

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