怎么样精确选中内容 比如从64页到124页？

luoqiyou

怎样

来生缘

先用鼠标点中所选的开始部分，按住shift键，再去点击所选的结束部分

守柔

我用VBA 做了一个请楼主试试看：

W1Ze4f3N.rar (12.59 KB, 下载次数: 52)

2004-7-19 22:10 上传

点击文件名下载附件
怎么样精确选中内容 比如从64页到124页？

来生缘

版主的这处只能整页整页的选吧？

守柔

另外，可用以下方法：

按下F5 或CTRL+G，定位起始页，关闭对话框；

按下F8（扩展功能），再次按下F5 或 CTRL+G，定位终止页，关闭对话框

自动选定，操作结束。

zzylllq

斑竹水平真高，支持

luo_3085

又学会了一招！^_^谢谢哦！

luoqiyou

很长时间没来了，忽然想起我还有一个问题 于是我打开论坛 没想到这么多兄弟给我提供了这么多方法 尤其是斑竹 在这 我一并谢谢了！

luoqiyou

可以选中其中一部分不过最后一页好像选不中

守柔

不会吧，我又看了一次代码，应该没有问题。

以下是该程序代码，供参考：

Public Pe As Integer Private Sub ComboBox1_Change() If ComboBox1.ListCount = 0 Then CommandButton1.Enabled = False Exit Sub ElseIf ComboBox1.ListIndex + 1 > Pe Or ComboBox1.ListIndex + 1 < 1 Then MsgBox "无效页码！" CommandButton1.Enabled = False Else CommandButton1.Enabled = True End If End Sub

Private Sub ComboBox2_Change() If ComboBox1.ListCount = 0 Then CommandButton1.Enabled = False Exit Sub ElseIf ComboBox1.ListIndex + 1 > Pe Or ComboBox1.ListIndex + 1 < 1 Then MsgBox "无效页码！" CommandButton1.Enabled = False Else CommandButton1.Enabled = True End If End Sub

Private Sub CommandButton1_Click() Dim RangeStart As Long, RangeEnd As Long With ActiveDocument .Range(0, 0).Select If ComboBox1.ListIndex + 1 = ComboBox2.ListIndex + 1 Then If ComboBox2.ListIndex + 1 = Pe Then Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Me.ComboBox2.ListIndex + 1 RangeStart = Selection.Range.Start RangeEnd = .Content.End Else Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Me.ComboBox1.ListIndex + 1 RangeStart = Selection.Range.Start Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Me.ComboBox1.ListIndex + 2 RangeEnd = Selection.Range.Start End If ElseIf ComboBox1.ListIndex + 1 = Pe Then Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Me.ComboBox2.ListIndex + 1 RangeStart = Selection.Range.Start RangeEnd = .Content.End ElseIf ComboBox2.ListIndex + 1 = Pe Then Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Me.ComboBox1.ListIndex + 1 RangeStart = Selection.Range.Start RangeEnd = .Content.End ElseIf ComboBox1.ListIndex + 1 > ComboBox2.ListIndex + 1 Then Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Me.ComboBox2.ListIndex + 1 RangeStart = Selection.Range.Start Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Me.ComboBox1.ListIndex + 2 RangeEnd = Selection.Range.Start Else Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Me.ComboBox1.ListIndex + 1 RangeStart = Selection.Range.Start Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Me.ComboBox2.ListIndex + 2 RangeEnd = Selection.Range.Start End If .Range(RangeStart, RangeEnd).Select End With End Sub

Private Sub UserForm_Activate() Dim i As Integer CommandButton1.Enabled = fasle Pe = Selection.Information(wdNumberOfPagesInDocument) For i = 1 To Pe Me.ComboBox1.AddItem i Me.ComboBox2.AddItem i Next End Sub