有关elseif的代码……

with是什么鬼

你既然用了With，那怎么没用End With？

Dim cML As String, Wjm As String
Wjm = "c:\Users\Administrator\Desktop\"
Wjm = Wjm & Command4.Caption & ".TXT"
cML = "C:\Windows\notepad.exe" & Chr(32) & Wjm
Shell cML, 1

Private Sub Command1_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
If Command4.Caption = "1" Then
With wordObj.Documents.Open("c:\Users\Administrator\Desktop\1.txt"
ElseIf Command4.Caption = "2" Then
With wordObj.Documents.Open("c:\Users\Administrator\Desktop\2.txt")
ElseIf Command4.Caption = "3" Then
With wordObj.Documents.Open("c:\Users\Administrator\Desktop\3.txt"
End If
.Content.Find.Execute "A", , , True, , , , , , "a", 2
End With
wordObj.quit
End Sub