Tabelle überschreibt Notizen im Kontakt

[TomWest]

Guten Abend,

soeben habe ich schon einen Beitrag reingestellt, will die Themen aber nicht mischen, auch wenn sie verwandt sind. Brauche bitte noch einen weitern Tipp.
Mit dem folgenden Code füge ich eine Tabelle in das Notizfeld eines Kontaktes ein (also praktisch in .Body):

Code: Alles auswählen

Dim wdDoc As Word.Document
    Dim wdRange As Word.Range
    Dim wdTable As Word.Table
   
    Set wdDoc = Application.ActiveInspector.WordEditor
    Set wdRange = wdDoc.Range
    Set wdTable = wdDoc.Tables.Add(wdRange, 4, 4)

Nun wird nur leider der bisherige Inhalt gnadenlos überschrieben.
Entweder es ist zu einfach oder es ist zu spät Wie kann ich die Tabelle - am liebsten an erster Stelle, also vor all dem bisherigen Notizinhalt - platzieren, ohne Verlust der alten Daten?

[mmarkus]

Hast du die Frage im Word Forum gestellt?
Im Prinzip hat es mit Outlook nichts mehr zu tun, so bald du den Word Editor einsetzt.

[DerHoepp]

Moin,

nach diesem Prinzip sollte es funktionieren (erst einen neuen Absatz vor die bisherige Range, dann den ersten Absatz wählen):

Code: Alles auswählen

Option Explicit

Sub test()
    With ThisDocument.Range
        .InsertParagraphBefore 'fügt einen Absatz ein +und+ erweitert die Range aus dem With-Objekt um diesen
        ThisDocument.Tables.Add .Paragraphs(1).Range, 4, 4 'Deswegen kann hier auf den ersten Absatz zugegriffen werden um die Tabelle einzufügen.
    End With
End Sub

Viele Grüße
derHöpp

[TomWest]

Hallo derHöpp,

danke, danke, danke, danke

.InsertParagraphBefore, da wäre ich vielleicht noch drauf gekommen, zumindest klingt es sehr einleuchtend, jetzt wo ich´s sehe.
Aber die nächste Zeile, da hätte ich mir ohne Hilfe definitiv die Zähne dran ausgebissen.

Sehr fähige und hilfsbereite Leute hier im Forum. Beide Daumen hoch