### VBA 中使用 UserForm 的按钮控件实现跳转到另一个 Word 页面的方法 要在 VBA 中通过 `UserForm` 上的按钮控件实现跳转到另一个 Word 文档页面的功能，可以按照以下方式构建代码逻辑： #### 创建 UserForm 并添加按钮控件 首先，在当前活跃的 VBA 项目中创建一个新的 `UserForm`，并通过 `.Controls.Add()` 方法为其添加一个命令按钮控件。 ```vba Dim myForm As Object Set myForm = Application.VBE.ActiveVBProject.VBComponents.Add(3).Designer ' 添加新的 UserForm myForm.Name = "JumpToPageForm" ' 设置 UserForm 名称为 JumpToPageForm ' 向 UserForm 中添加命令按钮控件 With myForm.Controls.Add("Forms.CommandButton.1", "JumpButton") .Caption = "跳转至指定页面" End With ``` 此部分代码实现了在 `UserForm` 中动态添加一个名为 `"JumpButton"` 的命令按钮控件，并将其标题设为“跳转至指定页面”。[^1] #### 编写按钮事件处理函数 为了使该按钮能够触发特定功能（即跳转到另一页面），需要编写其对应的事件处理函数。假设目标是打开某个已知路径下的 Word 文件并定位到某一页码，则可以通过调用 Word 对象模型中的方法完成这一操作。 以下是完整的按钮点击事件代码示例： ```vba Private Sub JumpButton_Click() Dim wordApp As Object Set wordApp = CreateObject("Word.Application") ' 初始化 Word 应用程序实例 Dim docPath As String docPath = "C:\path\to\target_document.docx" ' 替换为目标文档的实际路径 On Error Resume Next If Dir(docPath) <> "" Then wordApp.Visible = True Dim targetDoc As Object Set targetDoc = wordApp.Documents.Open(docPath) ' 打开目标文档 Dim pageNumber As Integer pageNumber = InputBox("请输入要跳转的目标页数:", "输入页号") If IsNumeric(pageNumber) And pageNumber > 0 Then targetDoc.Windows(1).ActivePane.View.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=pageNumber Else MsgBox "无效的页码!", vbExclamation End If Else MsgBox "未找到指定文件:" & vbCrLf & docPath, vbCritical End If End Sub ``` 这段代码定义了一个私有子过程 `JumpButton_Click`，当用户点击 `JumpButton` 按钮时会执行它。具体来说，这个过程完成了以下几个主要任务： - 使用自动化技术启动 Microsoft Word； - 提供一个对话框让用户输入想要访问的具体页码； - 利用 GoTo 方法导航到所请求的位置；如果发生错误或者找不到相应资源则给出提示消息反馈给最终使用者。[^4] 最后一步就是展示我们之前建立起来的那个自定义表单窗口了！ ```vba myForm.Show ``` 这样就完成了整个流程的设计与实施阶段的工作啦~[^2] --- ###