Макрос завершается внутри кода без ошибок - PullRequest
Новая
       32

Макрос завершается внутри кода без ошибок

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

После создания нового документа (documents.add) прохождение макроса заканчивается.

Я попытался использовать document.add с параметром (visible: = false), но без эффекта. 

Sub beispiel()

    Dim objDokQuelle As Document
    Dim objDokZiel As Document

    On Error GoTo FEHLER

    Set objDokQuelle = ActiveDocument
    Set objDokZiel = Documents.Add    'This is the last line to be processed; then the macro terminates

    'The following lines are not processed
    objDokQuelle.Activate
    Selection.WholeStory
    Selection.Copy
    objDokZiel.Activate
    Selection.Paste

FEHLER:
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical + vbOKOnly, "Error ..."
    End If

End Sub

Я не понимаю, что не так в этом коде, поэтому макрос заканчивается в строке с комментариями. Там нет сообщений об ошибках. Спасибо за помощь.

...