[求助]如何用WORD VBA批量自动排版？

xwjsyyx · 发表于 2007-6-15 08:02

设置段落边框线我已设置成功！但颜色无法调整！有什么好办法吗？请教　守柔　版主！！！
With objSelection.Paragraphs(1)
    .Borders(-3).LineStyle = 1‘设置段落边框为下划线
    .Borders(-3).LineWidth = 18’边框宽度
    .Borders(-3).LineStyle.ForeColor.RGB (255, 0, 0)‘这条函数不起作用
End With

[此贴子已经被作者于2007-6-15 8:28:09编辑过]

chylhr · 发表于 2007-6-15 08:43

QUOTE:

以下是引用xwjsyyx在2007-6-14 20:48:09的发言：
请教chylhr：
你写的代码能否转换为VBS的代码？？？
特别是　.Line.ForeColor.RGB = RGB(255, 0, 0) 和　.Line.BackColor.RGB = RGB(255, 255, 255)　如何转换！

惭愧,VBS我不懂,请版主与高手施以援手。一点建议：发贴时最好不要指定某人答复，否则其他人可能会不便回复贴子。

QUOTE:

以下是引用守柔在2007-6-15 6:42:56的发言：
注意，红线只需设置段落边框线即可！

多谢守柔老大的指点，想必老大一定很忙，时常牺牲自己的休息时间，在清晨5~7点来论坛指导工作，又要给每个回贴进行逐步批阅，真是辛苦了，您的敬业精神真是令人钦佩。

fjajie · 发表于 2007-6-15 10:58

谢谢chylhr，我也有给守柔版主发短信，你们二位高手给的代码略有不同，但都可以实现相同的功能，再次感谢!

szqhb · 发表于 2009-11-22 20:55

又来做一个记号

szqhb · 发表于 2009-11-24 00:15

5楼的开头选择文件夹及文档和结尾另存在新文件夹中值得借鉴
若我要把某一文件夹内的word文档逐一复制到新文件夹内，并清除文件格式，然后按照下面要求排版，怎样搞：
1、将第一段清除格式，居中，将字体设置为华文中宋，二号加粗；
2、将第二段清除格式，居中，将字体设置为仿宋，四号；
3、将第三段起至结束的字体设置为四号宋体（英文为Times New Roman），能单独对他们进行段落设置。
4、进行页面设置。
主要是1、2、3.

zhangop9 · 发表于 2012-4-28 16:41

这个学习一下

zhy_ng · 发表于 2013-12-4 11:11

我要站位，以便下次学习用到

wangyunfu1118 · 发表于 2015-12-6 17:07

占位学习，妈妈再也不用担心我不会改论文格式了

dfzaq · 发表于 2016-12-26 20:05

我也占个位子，好好学习

646411527 · 发表于 2017-11-21 14:21

谢谢分享！留个脚印，

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