这个菜单是怎样加上去的？

cofe2000

附件中没看见有添加菜单的代码啊!这个菜单是怎样加上去的？

守柔

这是个模板文件呀！它的代码在模板中。

来生缘

这个公章不太像的

cofe2000

以下是引用守柔在2004-7-20 16:27:00的发言： 这是个模板文件呀！它的代码在模板中。

我就看见这一段代码啊，没有看见添加菜单的代码，晕！！！！

Sub 公章() '

' 宏在 2003-6-11 由周民录制并编写 On Error GoTo zm: Dim txt1 As String Dim txt2 As String txt1 = InputBox("请输入公章上文字", "公章制作", "南京财经大学") txt2 = InputBox("请输入公章下文字", "公章制作", "图书馆") Application.ScreenUpdating = False If ActiveDocument.Shapes.Count = 1 Then ActiveDocument.Shapes(1).Delete End If ActiveDocument.Shapes.AddShape(msoShapeOval, 279#, 95.4, 108#, 108# _ ).Select Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 3# Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 111.95 Selection.ShapeRange.Width = 111.95 Selection.ShapeRange.Rotation = 0# Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositionColumn Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionParagraph Selection.ShapeRange.Left = CentimetersToPoints(6.67) Selection.ShapeRange.Top = CentimetersToPoints(0.83) Selection.ShapeRange.LockAnchor = False Selection.ShapeRange.WrapFormat.AllowOverlap = True Selection.ShapeRange.WrapFormat.Side = wdWrapBoth Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom ActiveDocument.Shapes.AddTextEffect(msoTextEffect3, txt1, "仿宋_GB2312" _ , 36#, msoFalse, msoFalse, 211.1, 121.1).Select Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 1.2 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 67.75 Selection.ShapeRange.Width = 67.75 Selection.ShapeRange.Rotation = 0# Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositionColumn Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionParagraph Selection.ShapeRange.Left = CentimetersToPoints(4.27) Selection.ShapeRange.Top = CentimetersToPoints(1.73) Selection.ShapeRange.LockAnchor = False Selection.ShapeRange.WrapFormat.AllowOverlap = True Selection.ShapeRange.WrapFormat.Side = wdWrapBoth Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom Selection.ShapeRange.IncrementLeft 0.2 Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementTop -0.45 Selection.ShapeRange.IncrementTop -7.8 Selection.ShapeRange.TextEffect.Tracking = 1.2 Selection.ShapeRange.Adjustments.Item(1) = 210 ActiveDocument.Shapes.AddShape(msoShape5pointStar, 351#, 103.2, 36#, _ 34.2).Select Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 1.2 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 35.45 Selection.ShapeRange.Width = 35.45 Selection.ShapeRange.Rotation = 0# Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositionColumn Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionParagraph Selection.ShapeRange.Left = CentimetersToPoints(9.21) Selection.ShapeRange.Top = CentimetersToPoints(1.1) Selection.ShapeRange.LockAnchor = False Selection.ShapeRange.WrapFormat.AllowOverlap = True Selection.ShapeRange.WrapFormat.Side = wdWrapBoth Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom Selection.ShapeRange.IncrementTop 5.35 Selection.ShapeRange.IncrementTop 7.8 Selection.ShapeRange.IncrementTop 7.8 Selection.ShapeRange.IncrementTop 7.8 Selection.ShapeRange.IncrementLeft -0.1 Selection.ShapeRange.IncrementLeft -9# Selection.ShapeRange.IncrementLeft -9# Selection.ShapeRange.IncrementLeft -9# Selection.ShapeRange.IncrementLeft -9# ActiveDocument.Shapes.AddTextEffect(msoTextEffect1, txt2, "仿宋_GB2312", _ 36#, msoFalse, msoFalse, 265.1, 121.1).Select Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 1.2 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 28.35 Selection.ShapeRange.Width = 62.35 Selection.ShapeRange.Rotation = 0# Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositionColumn Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionParagraph Selection.ShapeRange.Left = CentimetersToPoints(6.18) Selection.ShapeRange.Top = CentimetersToPoints(1.73) Selection.ShapeRange.LockAnchor = False Selection.ShapeRange.WrapFormat.AllowOverlap = True Selection.ShapeRange.WrapFormat.Side = wdWrapBoth Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom Selection.ShapeRange.IncrementTop 2.4 Selection.ShapeRange.IncrementTop 7.8 Selection.ShapeRange.IncrementTop 7.8 Selection.ShapeRange.IncrementTop 7.8 Selection.ShapeRange.IncrementTop 7.8 Selection.ShapeRange.IncrementTop 7.8 Selection.ShapeRange.IncrementTop 3

Selection.ShapeRange.IncrementLeft 5.45 Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementTop 7.8 'Selection.ShapeRange.IncrementLeft 9# Selection.ShapeRange.IncrementLeft 0.65 Selection.ShapeRange.IncrementLeft 0.75 Selection.ShapeRange.IncrementLeft 0.75 Selection.ShapeRange.IncrementLeft 0.75 Selection.ShapeRange.IncrementLeft 0.75 Selection.ShapeRange.IncrementLeft 2.25 Selection.ShapeRange.IncrementTop -4.5 ActiveDocument.Shapes.SelectAll Selection.ShapeRange.Group.Select Application.ScreenUpdating = True Exit Sub zm: MsgBox "由于参数错误输入,导致制作失败", vbCritical, "友情提示" End Sub

cxffxc

好象太复杂了

守柔

请COFE兄将解密后的文档发给我，或者密码。

我想应该在DOCUMENT-OPEN和Document_close中有代码.

cofe2000

以下是引用守柔在2004-7-21 9:07:00的发言：

请COFE兄将解密后的文档发给我，或者密码。

我想应该在DOCUMENT-OPEN和Document_close中有代码.

密码：123

守柔

以下是引用cofe2000在2004-7-21 9:40:00的发言：

密码：123

Ia3BUToK.zip (17.68 KB, 下载次数: 18)

2004-7-21 09:56 上传

点击文件名下载附件
这个菜单是怎样加上去的？

工具/ 自定义/ 宏：将更改保存于活动文档中。

cofe2000

以下是引用守柔在2004-7-21 9:55:00的发言：

工具/ 自定义/ 宏：将更改保存于活动文档中。

晕啊！还是没有看见添加菜单的代码

只有这个啊

Sub test() MsgBox "this is only a test!" End Sub 版主救命啊！！！！！！！！！！！！！！！！！！

守柔

以下是引用cofe2000在2004-7-21 10:12:00的发言：

晕啊！还是没有看见添加菜单的代码

只有这个啊

Sub test() MsgBox "this is only a test!" End Sub 版主救命啊！！！！！！！！！！！！！！！！！！

COFE兄，天热了！

其实很简单的，就是将自定义命令拉到工具栏上，并将其指定为活动文档中的宏，比如，我上传的是test过程，而盖公章文档中指定的宏是“公章”过程。指定的工具栏将有两种保存方式，一种保存于模板中，一种保存于活动文档中。此指定过程没有代码。