求教：为什么我插入文件的代码总是出错

collinchow

代码如下，执行后无法插入文件，不知为何：（ 多谢指教了 Public Sub w() Dim fd As FileDialog Dim Sjbg As String Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .Filters.Add "Word Files(*.doc)", "*.doc", 1 If .Show = -1 Then Sjbg = .SelectedItems(1) Else GoTo ProTerminate End If End With Set fd = Nothing MsgBox Sjbg ActiveDocument.Sections(1).Range.Select Selection.InsertFile FileName:=Sjbg, Range:="" ProTerminate: End Sub

konggs

我这里正常。