VBA技术问询：从其他文档仅加载UserForm且操作作用于当前文档

嘿，作为VBA新手能想到这种跨文档调用窗体的需求，思路真不错！我来一步步帮你实现这个功能，每一步都尽量简单易懂：

要实现不打开Doc2却加载它的窗体，我们需要悄悄在后台打开Doc2（不可见状态），然后加载它的Apprentice窗体；同时要让窗体的操作指向Doc1，就得把Doc1的引用传递给Apprentice窗体，这样按钮点击时就能直接操作目标文档了。

1. 准备Doc2的Apprentice UserForm #

先确保Doc2里已经做好了Apprentice窗体，比如添加一个名为CommandButton_AddHello的按钮，用来实现添加"Hello"的功能。

2. 编写Doc1中Master窗体的按钮代码 #

打开Doc1的Master窗体，找到用来加载Apprentice的按钮（比如CommandButton_LoadApprentice），双击它写入以下代码：

Private Sub CommandButton_LoadApprentice_Click()
    Dim doc2 As Document
    Dim ufApprentice As UserForm
    
    ' 悄悄在后台打开Doc2：只读模式+不显示窗口
    ' 注意替换成你的Doc2实际路径，用相对路径更灵活：ThisDocument.Path & "\Doc2.docm"
    Set doc2 = Documents.Open(Filename:="C:\你的文件夹路径\Doc2.docm", ReadOnly:=True, Visible:=False)
    
    ' 加载Doc2中的Apprentice窗体
    Set ufApprentice = doc2.VBProject.VBComponents("Apprentice").Designer
    
    ' 关键：把Doc1的文件名传递给Apprentice窗体，用Tag属性暂存
    ufApprentice.Tag = ThisDocument.Name
    
    ' 以非模态方式显示窗体（可以同时操作Doc1和窗体）
    ufApprentice.Show vbModeless
End Sub

3. 修改Doc2中Apprentice窗体的代码 #

打开Doc2的Apprentice窗体，在窗体的代码模块中写入以下内容：

' 声明公共变量，用来存储我们要操作的目标文档（Doc1）
Public targetDoc As Document

' 窗体初始化时，获取Doc1的引用
Private Sub UserForm_Initialize()
    ' 通过Tag里的文件名，直接引用已经打开的Doc1
    Set targetDoc = Documents(Me.Tag)
End Sub

' 添加"Hello"按钮的点击事件
Private Sub CommandButton_AddHello_Click()
    ' 向Doc1的文档末尾插入"Hello"（可以根据需求修改插入位置）
    targetDoc.Content.InsertAfter Text:="Hello" & vbCrLf
    ' 如果想插入到光标位置，替换成下面这行：
    ' targetDoc.Range(targetDoc.Application.Selection.Start, targetDoc.Application.Selection.End).InsertAfter "Hello"
End Sub

' 窗体关闭时，悄悄关闭后台的Doc2
Private Sub UserForm_Terminate()
    Dim doc2 As Document
    On Error Resume Next ' 防止Doc2已经被意外关闭
    Set doc2 = Documents("Doc2.docm")
    If Not doc2 Is Nothing Then
        doc2.Close SaveChanges:=False ' 只读打开的，无需保存
    End If
    On Error GoTo 0
End Sub

• 两个文档都必须保存为启用宏的Word文档格式（.docm），否则窗体和宏无法正常工作。
• 必须开启VBA项目访问权限：打开Word的「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」，勾选「信任对VBA项目对象模型的访问」，否则无法加载另一个文档的窗体。
• 路径尽量用相对路径（比如ThisDocument.Path & "\Doc2.docm"），避免硬编码导致路径失效。

内容的提问来源于stack exchange，提问作者user1114