Ms access VBA代码出现错误462

我有下面的代码，在表单上按钮的OnClick事件中。该代码执行以下操作：

在子表单中！FrmFScomposition！普罗杜科！[Prod_Cena_Guiao]（带有OLE对象）我有一个word文档列表，该列表在组合框的帮助下更新。代码对所有文档进行循环，并将它们复制到另一个子表单！FrmFScomposition！亚弗拉基塞纳斯！[FSKitCenasOLE]，这些文档集于一身。即使在加载相同数据的情况下重复该过程，代码也可以正常工作。但是当我在组合框中选择另一组文本时，我第一次尝试该操作时出现错误462，但是当我再次尝试时，代码再次工作。我厌倦了尝试不同的可能性，但我找不到解决办法。有人能帮我或指出我遗漏了什么吗？下面我将发布我正在使用的两个sub。提前感谢您的关注

按钮上的代码：

Private Sub Command54_Click()

  Call DoResetKit

  Dim FirstTime As Integer
  FirstTime = 1
  Me.FirstTimeBox = FirstTime

  Forms!frmFScomposicao!PRODUCAO.SetFocus
  DoCmd.RunCommand acCmdRecordsGoToFirst

  For f = 1 To Forms!frmFScomposicao!PRODUCAO![tiroliro]
    Call CompilarKitDiaGravacao
    DoCmd.RunCommand acCmdRecordsGoToNext
  Next f

  DoCmd.RunCommand acCmdRecordsGoToFirst
End Sub

第一个自定义项上的代码

Public Sub CompilarKitDiaGravacao()

  Dim CenasParaRecolha As Object
  Dim DocumentoDestino As Object

  Set CenasParaRecolha = Forms!frmFScomposicao!PRODUCAO![Prod_Cena_Guiao].Object.Application.WordBasic
  Forms!frmFScomposicao!PRODUCAO![Prod_Cena_Guiao].Action = acOLEActivate
  With CenasParaRecolha
    Selection.WholeStory
    Selection.Copy
  End With
  Set CenasParaRecolha = Nothing
  If Forms!frmFScomposicao.FirstTimeBox = 1 Then
    '  Forms!frmFScomposicao!subfrmKitCenas![FSKitCenasOLE].Action = acOLEPaste
    Set DocumentoDestino = Forms!frmFScomposicao!subfrmKitCenas![FSKitCenasOLE].Object.Application.WordBasic
    Forms!frmFScomposicao!subfrmKitCenas![FSKitCenasOLE].Action = acOLEActivate
    With DocumentoDestino
      'Selection.WholeStory
      'Selection.Delete
      Selection.EndKey wdStory
      Selection.InsertBreak Type:=wdSectionBreakContinuous
      Selection.PasteAndFormat wdPasteDefault
    End With
    Set DocumentoDestino = Nothing
    Forms!frmFScomposicao!FirstTimeBox = Forms!frmFScomposicao!FirstTimeBox + 1
  Else
    Set DocumentoDestino = Forms!frmFScomposicao!subfrmKitCenas![FSKitCenasOLE].Object.Application.WordBasic
    Forms!frmFScomposicao!subfrmKitCenas![FSKitCenasOLE].Action = acOLEActivate
    With DocumentoDestino
      Selection.EndKey wdStory
      Selection.InsertBreak                      'Type:=wdSectionBreakContinuous
      Selection.PasteAndFormat wdPasteDefault
    End With
    Set DocumentoDestino = Nothing
    Forms!frmFScomposicao!FirstTimeBox = Forms!frmFScomposicao!FirstTimeBox + 1
  End If

  'Set CenasParaRecolha = Nothing
  'Set DocumentoDestino = Nothing
End Sub

第二个自定义项上的代码

Public Sub DoResetKit()
  Dim ResetKit As Object

  Set ResetKit = Forms!frmFScomposicao!subfrmKitCenas![FSKitCenasOLE].Object.Application.WordBasic
  Forms!frmFScomposicao!subfrmKitCenas![FSKitCenasOLE].Action = acOLEActivate
  With ResetKit.Selection
    Selection.WholeStory
    Selection.Delete
  End With

  Set ResetKit = Nothing
End Sub

---

其工作代码如下：

按钮代码：

    Private Sub Command61_Click()
Dim ServerWordFS As Object
Set ServerWordFS = CreateObject("Word.Application")


Dim FirstTime As Integer
FirstTime = 1

For LoopCenasKit = 1 To Forms!frmFScomposicao!subfrmFScenas![tiroliro]
If FirstTime = 1 Then
Me.FirstTimeBox = FirstTime
Forms!frmFScomposicao!subfrmFScenas.SetFocus
Forms!frmFScomposicao!subfrmFScenas![EQUIPA].SetFocus

DoCmd.RunCommand acCmdRecordsGoToFirst


Call StartKit

DoCmd.RunCommand acCmdRecordsGoToNext
FirstTime = FirstTime + 1
Else

Call AddKit

DoCmd.RunCommand acCmdRecordsGoToNext
FirstTime = FirstTime + 1
End If
Next LoopCenasKit

ServerWordFS.Quit
End Sub

和两个Sub，可在任意位置创建word文档：

    Public Sub StartKit()

Dim oAPP As Object
Dim oDoc As Word.Document
Dim cenaspararecolha As Object

        Set oAPP = CreateObject(Class:="Word.Application")
        With oAPP
        .Visible = True

        Set oDoc = .Documents.Add
        oDoc.SaveAs "C:\Fserv\FolhaServiço", wdFormatDocument
        End With

Forms!frmFScomposicao!subfrmFScenas![Prod_Cena_Guiao].SetFocus
     Forms!frmFScomposicao!subfrmFScenas![Prod_Cena_Guiao].Action = acOLEActivate
    Set cenaspararecolha = Forms!frmFScomposicao!subfrmFScenas![Prod_Cena_Guiao].Object.Application.WordBasic
            With cenaspararecolha
            Selection.WholeStory
            Selection.Copy
            End With

Forms!frmFScomposicao!subfrmFScenas![Prod_Cena_Guiao].Action = acOLEClose

With oAPP
.Selection.PasteSpecial DataType:=wdPasteRTF
End With

oDoc.Save
oDoc.Activate
oDoc.Close
oAPP.Quit
End Sub

Public Sub AddKit()

Dim oAPP As Object
Dim oDoc As Word.Document
Dim cenaspararecolha As Object


        Set oAPP = CreateObject(Class:="Word.Application")
        With oAPP
        .Documents.Open Filename:="C:\Fserv\FolhaServiço.doc"
        .Visible = True
        .Selection.EndKey wdStory
        .Selection.InsertBreak
        End With

Forms!frmFScomposicao!subfrmFScenas![Prod_Cena_Guiao].SetFocus
     Forms!frmFScomposicao!subfrmFScenas![Prod_Cena_Guiao].Action = acOLEActivate
    Set cenaspararecolha = Forms!frmFScomposicao!subfrmFScenas![Prod_Cena_Guiao].Object.Application.WordBasic
            With cenaspararecolha
            Selection.WholeStory
            Selection.Copy
            End With
Forms!frmFScomposicao!subfrmFScenas![Prod_Cena_Guiao].Action = acOLEClose

With oAPP
.Selection.PasteSpecial DataType:=wdPasteRTF
Set oDoc = .ActiveDocument
oDoc.Save
End With

oDoc.Close
oAPP.Quit
End Sub

---

使用ResetKit.Selection.whisttory-----这是高亮显示的行，但如果我重新运行，代码在选择中起作用。删除结束时使用的

With

块未使用捕获的引用。@Comintern试图告诉您的是

With ResetKit.Selection Selection.wholetory Selection.Delete End With

是不必要的。里面的两行应该是

.whisttory

和

.Delete