Tabelle überschreibt Notizen im Kontakt

Moderator: ModerationP

Tabelle überschreibt Notizen im Kontakt

Beitragvon TomWest » 18. Okt 2018, 21:56

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?
Gruß Tom
TomWest
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 189
Registriert: 18. Jan 2014, 12:14

Re: Tabelle überschreibt Notizen im Kontakt

Beitragvon mmarkus » 18. Okt 2018, 22:38

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.
ms access what else
mmarkus
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1053
Registriert: 16. Apr 2012, 16:07
Wohnort: Vienna

Re: Tabelle überschreibt Notizen im Kontakt

Beitragvon DerHoepp » 19. Okt 2018, 13:21

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
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 7267
Registriert: 14. Mai 2013, 11:08

Re: Tabelle überschreibt Notizen im Kontakt

Beitragvon TomWest » 22. Okt 2018, 19:43

Hallo derHöpp,

danke, danke, danke, danke :D

.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 :!:
Gruß Tom
TomWest
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 189
Registriert: 18. Jan 2014, 12:14


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste