在if / then中选择大小写

Question

我在用户窗体上有一个ToggleButton（TB）和ComboBox（CB），如果TB.value = True，则它必须确定CB.value是什么才能插入正确的文件。

我正在使用if / then语句来解决TB.value（我已经在用户窗体上的其他切换中使用了它，并且它本身已经有效。要解决CB.value，我尝试使用select案例陈述。

当我在if / then语句中使用select case语句运行脚本时，没有得到要插入的文件。

这是我的代码示例，包括如何列出CB进行初始化：

Private Sub CommandButton1_Click()

CreateObject (Word.Application.Documents.Add)

If ToggleButton1.Value = True Then
Select Case File
    Case ComboBox1.Value = "File A"
        Selection.InsertFile FileName:="C:\File A"
    Case ComboBox1.Value = "File B"
        Selection.InsertFile FileName:="C:\File B"
    End Select
Else:
    ToggleButton1.Value = False
End If

Unload Me

End Sub



Private Sub Userform_Initialize()

With ComboBox1
    .AddItem "File A", 0
    .AddItem "File B", 1
    End With

End Sub

如果有人能够帮助我弄清楚为什么我无法使用上述方法插入文件，将不胜感激。如果有更好的方法可以做到这一点，我也很想听听！

先感谢您。

Answer 1

您选择的情况有误：

Select Case ComboBox1.Value
    Case "File A"
        Selection.InsertFile FileName:="C:\File A"
    Case  "File B"
        Selection.InsertFile FileName:="C:\File B"
    End Select

您将要测试的内容放在“选择案例”行中，并将可能的结果放在“案例”行中。