作者:A丶Iice-fjl | 来源:互联网 | 2023-09-25 12:30
Codebelowwascreated(notbyme,andsavedas*.dotm)inMicrosoftWord97-2003,whendefaultins
Code below was created (not by me, and saved as *.dotm) in Microsoft Word 97-2003, when default "insert shape/line" was black. Used as procedure template with specific cover page, header, outline style, etc. When the *.doc files are saved to *.docx, and the "SignoffLine
" macro is activated, the inserted line's color is blue (MS Word 2010 default for Insert Shape/Line?).
当默认的“插入形状/线条”为黑色时,下面的代码是在Microsoft Word 97-2003中创建的(不是我,并保存为* .dotm)。用作具有特定封面,标题,大纲样式等的过程模板。当* .doc文件保存到* .docx,并且激活“SignoffLine”宏时,插入的行的颜色为蓝色(MS Word 2010默认为插入形状/线?)。
I can change the default color per document, and I can change it via Normal.dotm
, but want to edit the macro below so inserted line is always black.
我可以更改每个文档的默认颜色,我可以通过Normal.dotm更改它,但想要编辑下面的宏,所以插入的行总是黑色。
Sub SignoffLine()
On Error GoTo endthis
i = Selection.Information(wdVerticalPositionRelativeToPage)
Set oFFline = ActiveDocument.Shapes.AddLine(554, i + 12, 524, i + 12).Line
With oFFline.Line
.Weight = 0.75
End With
oFFline.Name = "hline" & idi
idi = idi + 1
endthis:
End Sub
1 个解决方案