删除段落首尾空格及空行（宏）——最新成果！

413191246se · 发表于 2012-5-23 11:16

本帖最后由 413191246se 于 2012-5-24 15:49 编辑

从《仿WPS排版工具》作者的代码里，发现一个叫 sendkeys 的语句，效果似乎奇好，但后来发现无法进行下一条语句，昨晚，查找了其用法，加上了一个“TRUE”参数，就 OK 了！好东东不敢独享，发上来献给大家，敬请测试……

Sub 删除段落首尾空格及空行()
With ActiveDocument.Content.Find
.Execute findtext:="^l", replacewith:="^p", Replace:=wdReplaceAll
.Execute findtext:="^13", replacewith:="^p", Replace:=wdReplaceAll
.Execute findtext:="(", replacewith:="（", Replace:=wdReplaceAll
.Execute findtext:=")", replacewith:="）", Replace:=wdReplaceAll
End With
SendKeys "^(aej)", True
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then i.Range.Delete
Next
End Sub

复制代码

wudixin96 · 发表于 2012-5-23 11:24

这啥会不会有副作用啊，有时候半角括号并不一定想转成全角的。

413191246se · 发表于 2012-5-23 15:47

2楼说法有一定道理，但考虑大多数时候咱们中国人处理的是汉字，就加上这个，其实去掉也是可以的；但是如果不这样的话，形如“（一）、或（1）”这样的标题不会被自动”样式化“，快速自动排版就不给力了。

tangqingfu · 发表于 2012-5-23 17:07

能否解释sendkeys的作用？

413191246se · 发表于 2012-5-24 01:53

*** 微软官方 VBA 帮助：

SendKeys 语句：
将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。

语法：
SendKeys string[, wait]

SendKeys 语句的语法具有以下几个命名参数：
部分描述
string 必需的。字符串表达式，指定要发送的按键消息。
Wait 可选的。指定等待方式的 BooleandefBooleanDataType@veendf98.chm 值。如果为 False（缺省值），则控件在按键发送出去之后立刻返回到过程。如果为 True，则按键消息必须在控件返回到过程之前加以处理。

说明
每个按键由一个或多个字符表示。为了指定单一键盘字符，必须按字符本身的键。例如，为了表示字母 A，可以用 "A" 作为 string。为了表示多个字符，就必须在字符后面直接加上另一个字符。例如，要表示 A、B 及 C，可用 "ABC" 作为 string。
对 SendKeys 来说，加号 (+)、插入符 (^)、百分比符号 (%)、上划线 (~) 及圆括号 ( ) 都具有特殊意义。为了指定上述任何一个字符，要将它放在大括号 ({}) 当中。例如，要指定正号，可用 {+} 表示。方括号 ([ ]) 对 SendKeys 来说并不具有特殊意义，但必须将它们放在大括号中。在其它应用程序中，方括号有特殊意义，在出现动态数据交换 (DDE) 的时候，它可能具有重要意义。为了指定大括号字符，请使用 {{} 及 {}}。

****************************
SendKeys 语句示例
本示例使用 Shell 函数来运行 Microsoft Windows 所附的计算器程序；然后使用 SendKeys 语句来按下计算器的某些数字键，最后退出计算器。（若要观察示例运行过程，可将示例粘贴到过程中，再运行过程即可。因为 AppActivate 会将焦点转移到计算器应用程序，故本示例不能以单步方式来运行。）。在 Macintosh上，使用Macintosh 应用程序接受键盘输入而不是用Windows 计算器。

Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' 运行计算器。
AppActivate ReturnValue ' 激活计算器。
For I = 1 To 100 ' 设置计数循环。
SendKeys I & "{+}", True ' 按下按键给计算器
Next I ' 将所有 I 值相加。
SendKeys "=", True ' 取得总合。
SendKeys "%{F4}", True ' 按 ALT+F4 关闭计算器。

413191246se · 发表于 2012-5-24 15:48

用一个VBA代码运行时间测试后，得出结论：新的代码是旧的代码运行时间的 1/10，新代码运行时间0.27秒，旧代码运行时间2.73秒。顶以周知！

tangqingfu · 发表于 2012-5-24 18:13

请教提速的的关键在哪里？

413191246se · 发表于 2012-5-25 00:12

汤兄真好学啊！以1楼宏为例，删除段落首尾空格用Sendkeys语句（效果如同按键盘上的按钮），可以说是神速（瞬秒空格）。为什么会这么快？我也说不清楚。

kqbt · 发表于 2012-5-25 08:56

纠结这个问题很久了，通过前台进行段落“居中”操作能把段落首尾的“空白区域”剔除，但通过后台VBA的段落“居中”却无能为力。但没想到过用 SendKeys。
试了一下 SendKeys "^(aej)", True 效果的确不错，只是可能要受一些前提所限制，比如在代码运行的过程中，必须始终保持“当前文档”窗口是有焦点的活动窗口才行。

413191246se · 发表于 2012-5-25 09:39

同感！同感！

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

[分享] 删除段落首尾空格及空行（宏）——最新成果！