Ошибка времени выполнения '91': переменная объекта или переменная блока не установлена ​​Каталог Mailmerge - PullRequest
Новая
       80

Ошибка времени выполнения '91': переменная объекта или переменная блока не установлена ​​Каталог Mailmerge

0 голосов
/ 08 октября 2019

Я пробую учебник из Macropod по использованию каталога для mailmerge, но получаю ошибку, которую не понимаю.

Я добрался до последнего шага в учебнике и хотел попробовать фактическое слияние электронной почты. Я создал макрос с приведенным ниже кодом в основном документе каталога / каталога mailmerge и сохранил документ в той же папке, что и «Основной документ слияния». Но теперь, когда я запускаю макрос RunMerge, я получаю ошибку

Ошибка времени выполнения '91': переменная объекта или переменная блока не установлена ​​

Когда я нажимаюпри отладке он выделяет первый .Paragraphs(1).Range.Delete в Sub EmailMergeTableMaker(DocName As Document). Это первый раз, когда мне приходилось что-то делать с VBA, и я понятия не имею, как это решить.

Что означает ошибка? Я предполагаю, что строка ссылается на переменную, которая не установлена ​​правильно, но я просто скопировал код из учебника, и я не знаю, на какую переменную ссылаются.

Редактировать: это ссылка научебник http://www.gmayor.com/Zips/Catalogue%20Mailmerge.zip

Sub RunMerge()
Application.ScreenUpdating = False
Dim Doc1 As Document, Doc2 As Document, Doc3 As Document, StrDoc As String
Set Doc1 = ThisDocument
StrDoc = ThisDocument.Path & "\EmailDataSource.doc"
If Dir(StrDoc) <> "" Then Kill StrDoc
With Doc1.MailMerge
  If .State = wdMainAndDataSource Then
    .Destination = wdSendToNewDocument
    .Execute
    Set Doc2 = ActiveDocument
  End If
End With
Call EmailMergeTableMaker(Doc2)
With Doc2
  .SaveAs FileName:=StrDoc, AddToRecentFiles:=False, FileFormat:=wdFormatDocument
  StrDoc = .FullName
  .Close
End With
Set Doc2 = Nothing
Set Doc3 = Documents.Open(FileName:=Doc1.Path & "\Email Merge Main Document.doc", _
  AddToRecentFiles:=False)
With Doc3.MailMerge
  .MainDocumentType = wdEMail
  .OpenDataSource Name:=StrDoc, ConfirmConversions:=False, ReadOnly:=False, _
    LinkToSource:=True, AddToRecentFiles:=False, Connection:="", SQLStatement:="", _
    SQLStatement1:="", SubType:=wdMergeSubTypeOther
  If .State = wdMainAndDataSource Then
    '.Destination = wdSendToNewDocument
    .Destination = wdSendToEmail
    .MailAddressFieldName = "Recipient"
    .MailSubject = "Monthly Sales Stats"
    .MailFormat = wdMailFormatPlainText
    .Execute
  End If
End With
Doc3.Close SaveChanges:=False
Set Doc3 = Nothing
Application.ScreenUpdating = True
End Sub


Sub EmailMergeTableMaker(DocName As Document)
Dim oTbl As Table, i As Integer, j As Integer, oRow As Row, oRng As Range, strTxt As String
With DocName
  .Paragraphs(1).Range.Delete    <---- this line
  Call TableJoiner
  For Each oTbl In .Tables
  j = 2
    With oTbl
      i = .Columns.Count - j
      For Each oRow In .Rows
        Set oRng = oRow.Cells(j).Range
        With oRng
          .MoveEnd Unit:=wdCell, Count:=i
          .Cells.Merge
          strTxt = Replace(.Text, vbCr, vbTab)
          On Error Resume Next
          If Len(strTxt) > 1 Then .Text = Left(strTxt, Len(strTxt) - 2)
        End With
      Next
    End With
  Next
  For Each oTbl In .Tables
    For i = 1 to j
      oTbl.Columns(i).Cells.Merge
    Next
  Next
  With .Tables(1)
    .Rows.Add BeforeRow:=.Rows(1)
    .Cell(1, 1).Range.Text = "Recipient"
    .Cell(1, 2).Range.Text = "Data"
  End With
  .Paragraphs(1).Range.Delete
  Call TableJoiner
End With
Set oRng = Nothing
End Sub


Private Sub TableJoiner()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
  With oTbl.Range.Next
    If .Information(wdWithInTable) = False Then .Delete
  End With
Next
End Sub
...