小题大作？

守柔

Sub huaxian() Dim i As Integer For i = 1 To 36 '36为页面设置中行数 Set mydocument = ActiveDocument With mydocument.Shapes.AddLine(90, 56 + i * 15.6, 505, 56 + i * 15.6).Line '左页边距，上页边距，线宽，上页边距 End With Next i End Sub 说明：在页面中划出行线。 上述数据来自：页面设置中：A4纸，左右页边距为2.54CM,上下页边距为3.17CM; 循环次数可由页面设置中行数来定;文档文字:宋体,12磅,行距为单倍 ADDLINE中第二四个参数的意义为直线两个端点与上页边距的距离(在图形没有锁定标记情况下以左上方页面标记为准) 优点:先录入文档,最后划线,每行距离可调,适用于一种模式的固定下划线,也可用于竖线或方格式(作文薄式);线条格式可任意设置(同线条格式),可直接在WITH和END WITH中设置 缺点:首次使用,需调整;数据的规律暂时没有找到.

konggs

老大，你以前的注释好像有问题。为方便以后向我这样的人来看遍老大的贴子时的疑或补上帮助吧：

expression.AddLine(BeginX, BeginY, EndX, EndY, Anchor)

expression 必需。该表达式返回一个 Shapes 对象。

BeginX Single 类型，必需。直线起点相对于锁定标记的水平位置，以磅为单位。

BeginY Single 类型，必需。直线起点相对于锁定标记的垂直位置，以磅为单位。

EndX Single 类型，必需。直线终点相对于锁定标记的水平位置，以磅为单位。

EndY Single 类型，必需。直线终点相对于锁定标记的垂直位置，以磅为单位。

守柔

感谢孔兄的锲而不舍！

回顾自己的学习道路，感慨万千！曾经学习的脚步，是那么的无奈与无助。看到目前论坛中，有孔兄这样的古道之肠，勇于奉献的会员，在本版中，不多。

曾经来来去去的人，曾经再三的求问者，如今，俱往矣！

感此，不禁唏嘘。

gues1688

看老贴子，守老大也是锲而不舍的性情中人！

jicano

下载一个WORD稿纸加载项