关于word宏的问题！谢谢高分！

来源：百度知道 编辑：UC知道 时间：2024/06/15 11:41:46
我需要通过宏代码对指定表格或者指定位置（书签）增加行或者删除行的宏功能！
详细： 需要定义一下宏，调用该宏需要传入两个参数，一个是位置（书签名），一个是增加的表格行数。！！ 仅此而已！！谢谢！！！
下面两个都有运行都有错误。

提示： 些方法或属性无效，因为某些所有对象不涉及表格。

Sub 书签与行数()
Dim Message, Title, Default, MyValue
Message = "请输入书签名称"
Message1 = "请输入行数"
Title = "书签"
Title1 = "行数"
MyValue = InputBox(Message, Title)
myvalue1 = InputBox(Message1, Title1)
Selection.GoTo What:=wdGoToBookmark, Name:=MyValue
Selection.InsertRowsBelow myvalue1
End Sub

Sub Macro2()

With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="书签名"
End With
Selection.InsertRowsAbove 行数
End Sub