none
Word-Absturz beim Einfügen von Kommentaren zu InlineShapes unter Word 2016 RRS feed

  • Frage

  • Hallo,

    folgendes Makro läuft unter Word 2010 einwandfrei, führt aber unter Word 2016 zum Absturz,
    dh. es kommt 'Word funktioniert nicht mehr. Es wird nach einer Lösung gesucht', Word wird geschlossen und wieder geöffnet und der gewünschte Kommentar ist natürlich nicht enthalten.

    Sub SetCommentsOnImages()
       Dim doc As Document
       Dim shp As InlineShape
       Dim rng As Range
       Dim i As Integer
       
       Set doc = ActiveDocument
       
       For Each shp In doc.InlineShapes
          i = i + 1
          Set rng = shp.Range
          'rng.Collapse wdCollapseEnd ' Variante, die auch abstürzt
          doc.Comments.Add Range:=rng, Text:="Image " & i
          If i > 2 Then Exit For ' hier nur als Bremse
       Next

    End Sub

    Der Absturz erfolgt bereits bei der 1. Abbildung.

    Wenn ich statt Images Tabellen nehme, läuft es auch unter Word 2016 wunderbar.
    Wird also vermutlich an den Shapes liegen.

    Weiß jemdand die Ursache?


    Grüße aus Köln am Rhein - Klaus Trapp

    Samstag, 17. Dezember 2016 10:55

Alle Antworten

  • Nachtrag: Es liegt wohl auch am Dokument.

    Bei einem Test mit einem recht simplen Dokument mit nur 2 Abbildungen hat es auch unter Word 2016 funktioniert.

    Aber wie schon oben erwähnt, kommt es beim ersten Versuch, einen Kommentar einzufügen, unter Word 2016 zum Absturz und beim selben Dokument unter Word 2010 nicht.

    Das besagte Dokument enthält 19 Abbildungen und ist ca. 1,7 MB groß (139 Seiten).


    Grüße aus Köln am Rhein - Klaus Trapp

    Samstag, 17. Dezember 2016 23:03