使用VB表单执行Word Document VBA宏

如何解决使用VB表单执行Word Document VBA宏

我正在创建一个VB表单来帮助选择一个Word文件，然后可以使用另一个按钮操作来从该文档中识别Content Controls标记。问题是如何使用Vb Form运行任何vba word宏？下面是代码-

Imports System.IO

Public Class Form1
Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
    Dim fd As OpenFileDialog = New OpenFileDialog()
    Dim strFileName As String

    fd.Title = "Open File Dialog"
    fd.InitialDirectory = "C:\Users\%username%\Documents"
    fd.Filter = "Word Documents|*.doc;*.docx"
    fd.FilterIndex = 2
    fd.RestoreDirectory = True
    If fd.ShowDialog() = DialogResult.OK Then
        strFileName = fd.FileName
        PathLabel.Text = fd.FileName
        MsgBox("You have selected file -" & fd.FileName)

    End If
End Sub


Private Sub OpenFileDialog1_FileOk_1(sender As Object,e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

End Sub

Word宏-

Sub GetCCs()
    Dim d As Document
    Set d = ActiveDocument
    Dim cc As ContentControl
    Dim sr As Range
    Dim srs As StoryRanges
    For Each sr In d.StoryRanges
        For Each cc In sr.ContentControls
            Debug.Print cc.Title
        Next
    Next
End Sub

很抱歉，如果我在这里做错什么，因为我对此很陌生！

谢谢！

解决方法

您可以使用项目和模块来引用您的宏。即....

Call prjMyProject.modMyModule.GetCCs

如果您的表单位于同一项目中，则可以使用以下方法获得

：

Call GetCCs

• 注意-您的宏必须位于已加载的项目中（即附加模板，活动加载项）