[求助]如何用VBA使每一行都对齐（顶格也行）

skyya

知道的兄台帮帮！谢谢

如下文件：

TjRDKqSc.rar (1.98 KB, 下载次数: 23)

2006-8-20 12:13 上传

点击文件名下载附件
[求助]如何用VBA使每一行都对齐（顶格也行）

c81

查找替换[0-9]@阿拉伯数字加个点的前的半角空格为空即可。

[此贴子已经被作者于2006-8-20 12:21:20编辑过]

skyya

QUOTE:

以下是引用c81在2006-8-20 12:17:52的发言：
查找替换[0-9]@阿拉伯数字加个点的前的半角空格为空即可。

谢谢你的回复,可要是每一行规律性不一样呢!

c81

如果就是你最上面发的那个例子我的方法应付足够了。如果有更复杂的情况，请将例子发上来。

守柔

欢迎楼主，有几个问题，想请教一下：

什么是行？是行还是段落？

什么叫顶格对齐？是段落的左对齐吗？

如果您觉得您不善于表达，莫不如直接把需要的结果写到附件中，这样不是更好吗？

非得用VBA么？直接查找与替换，实际上也非常简单啊！

skyya

QUOTE:

以下是引用守柔在2006-8-20 16:52:30的发言：

欢迎楼主，有几个问题，想请教一下：

什么是行？是行还是段落？

什么叫顶格对齐？是段落的左对齐吗？

如果您觉得您不善于表达，莫不如直接把需要的结果写到附件中，这样不是更好吗？

非得用VBA么？直接查找与替换，实际上也非常简单啊！

守柔版主你好，读过你的不少代码，受益非浅，这我谢过了。

我的问题是：

我在试题前加编号，有的对不齐？见附件，如何解决？(我想写个宏）

 

eiMrSZks.rar (202.46 KB, 下载次数: 12)

2006-8-21 16:33 上传

点击文件名下载附件
[求助]如何用VBA使每一行都对齐（顶格也行）

c81

楼主，这样的问题很适合用替换法的。

就是写个宏，也是查找替换录的宏，稍改一下。其实总体效率还不如直接查找替换。

本来是简单的事，为什么要弄复杂呢？

skyya

QUOTE:

以下是引用c81在2006-8-21 16:45:44的发言：

楼主，这样的问题很适合用替换法的。

就是写个宏，也是查找替换录的宏，稍改一下。其实总体效率还不如直接查找替换。

本来是简单的事，为什么要弄复杂呢？

 

[em04]我不知查什么,替成什么!

麻烦你帮我录个宏好么,谢谢!

c81

你只查找“【”，突出显示它们，然后执行格式段落首行缩进0个字符，行了么？

如果前面有空格，请按我最上的方法试试。

如果将过程录制成宏，我想应该可以的吧。

skyya

录成宏不好用，可能是因为不能查找后全部选择