怎样在Word中命名一段选中的文字？（已解决）

dhrlwjh

在做“高新技术考试”题时遇到一个问题，新建一个宏，在Word中选中一段文字，给它命名一个名字

请各位指教！

找到方法了，原来是用Word命令，在建立宏的时候选择“工具”→“宏”→“宏”→在对话框中宏的位置处选“Word命令”→“Editbookmark”命令

[此贴子已经被作者于2006-9-5 16:50:08编辑过]

liustar123

是不是这个意思呀`？   

建立一个宏，宏的功能是“选中一段文字”，然后给这个宏起一个名字

楼主请运行这个宏试试：

Sub 选中全文档()

Selection.WholeStory

End Sub

宏的功能是“选中全部文档”，宏的名字叫“选中全文档”

dhrlwjh

QUOTE:

以下是引用liustar123在2006-9-4 17:18:45的发言：

是不是这个意思呀`？   

建立一个宏，宏的功能是“选中一段文字”，然后给这个宏起一个名字

楼主请运行这个宏试试：

Sub 选中全文档()

Selection.WholeStory

End Sub

宏的功能是“选中全部文档”，宏的名字叫“选中全文档”

不是，宏的名字也已经指定了

liustar123

哦~ 那是我理解错了

那么，“给一段文字起一个名字” 是什么意思呢，不太明白

duke008

set myrange=selection.range

这个意思吗?

c81

楼主这样可以吗？

假设你的文档中有许多区域，每个区域有不同名称，

宏这样写，如果输入名与某个区域名值相等，则

Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend '某个区域范围
（或类选范围如起始点之类的话）

c81

Sub id()
Dim str
Dim n As String
  str = InputBox(n)
  If str = "名称1" Then
    Selection.MoveLeft Unit:=wdCharacter, Count:=5, Extend:=wdExtend '这个地方是范围你可以改
  End If

End Sub

如果有名称2,3,4等，可考虑用容器。

守柔

楼主的意思，应该是书签而已。

dhrlwjh

多谢大家的回复

这个考试里的宏一般都不用自己写代码，直接操作就行了

书签也不是

liustar123

这样吧

楼主是否能够把你的考试题、题目详细的传上来看一下。

我们在这里瞎猜，一点头绪都没有

呵呵