Set frmProgress = UserForms.Add("frmProgress") 报错，提示要求的对象

这个错误提示通常是因为没有正确引用所需的库。请确保已经引用了Microsoft Forms 2.0 Object Library。你可以按照以下步骤进行引用：

1. 打开Visual Basic Editor
2. 选择菜单栏中的“工具”->“引用”
3. 在弹出的“引用”窗口中，找到并勾选“Microsoft Forms 2.0 Object Library”
4. 点击“确定”保存更改

完成以上步骤后，再次尝试创建 UserForm 对象，应该就可以成功了。

相关问题

var EvaluationIndicatorsCheck = Set<CodeConversionType>().FirstOrDefault(d => d.TypeCode == EvaluationIndicators.TypeCode && d.Name == EvaluationIndicators.Name);报错

这段代码中的 `Set<CodeConversionType>()` 是一个空的 `Set` 对象，而你尝试调用 `FirstOrDefault()` 方法获取其中的第一个对象。由于这个 `Set` 对象是空的，所以会抛出 `System.InvalidOperationException` 异常。

要解决这个问题，你需要确保在调用 `FirstOrDefault()` 方法之前，`Set` 对象中至少有一个对象。你可以通过添加一个 `Where` 子句来过滤出符合条件的对象，例如：

var EvaluationIndicatorsCheck = Set<CodeConversionType>().Where(d => d.TypeCode == EvaluationIndicators.TypeCode && d.Name == EvaluationIndicators.Name).FirstOrDefault();

这个代码将会先对集合中的对象进行过滤，然后再调用 `FirstOrDefault()` 方法获取第一个符合条件的对象。如果没有符合条件的对象，那么将会返回 `null`。

Dim oCL As CaptionLabel Dim oDoc As Document Dim oRng As Range Dim oT As Table Set oT = Selection.Tables(1) Set oDoc = Word.ActiveDocument Set oCL = Word.CaptionLabels.Add("表") With oCL .IncludeChapterNumber = True .NumberStyle = wdCaptionNumberStyleArabic .ChapterStyleLevel = 2 .Separator = wdSeparatorHyphen End With Set oRng = oT.Range With oRng .InsertCaption "表", "" .InsertBefore Chr(13) .SetRange .Start, .Start ' 获取当前表格的编号 Dim currentNum As String currentNum = oT.Range.Information(wdCaptionNumber) ' 插入表格的交叉引用 Word.Selection.InsertCrossReference "表", wdOnlyLabelAndNumber, currentNum .InsertBefore "详见" End With上述代码currentNum = oT.range.Information(wdCaptionNumber)提示：对象已被删除，请修改

这个错误可能是因为你没有正确地设置选区范围。你可以尝试将代码修改为以下内容：

Dim oCL As CaptionLabel 
Dim oDoc As Document 
Dim oRng As Range 
Dim oT As Table 

Set oT = Selection.Tables(1) 
Set oDoc = Word.ActiveDocument 

Set oCL = Word.CaptionLabels.Add("表") 
With oCL 
    .IncludeChapterNumber = True 
    .NumberStyle = wdCaptionNumberStyleArabic 
    .ChapterStyleLevel = 2 
    .Separator = wdSeparatorHyphen 
End With 

Set oRng = oT.Range 
oRng.Select ' 将选区范围设置为表格的范围

With oRng 
    .InsertCaption "表", "" 
    .InsertBefore Chr(13) 
    .SetRange .Start, .Start 
    ' 获取当前表格的编号 
    Dim currentNum As String 
    currentNum = oRng.Information(wdCaptionNumber) ' 将获取编号的代码修改为 oRng.Information(wdCaptionNumber)
    ' 插入表格的交叉引用 
    Word.Selection.InsertCrossReference "表", wdOnlyLabelAndNumber, currentNum 
    .InsertBefore "详见" 
End With

这里我们将选区范围设置为表格的范围，并将获取编号的代码修改为 `oRng.Information(wdCaptionNumber)`。这样你就可以正确地获取表格的编号并插入表格的交叉引用了。