Inspector WordEditor "Dokument" (eMail) ändern
Andreas
folgender Code ist nach einigem Spielen und dem ersten "bewussten"
Nutzen des Inspectors entstanden. Ziel des Codes soll sein, die
Schriftgröße des Mailkörpers zu ändern.
-------------<SNIP>------------
Sub Schriftgroesse()
Dim objInspector As Inspector
Dim olInspector As Inspector
Dim objDoc As Object
Set objInspector =
Application.ActiveExplorer.Selection(1).GetInspector
objInspector.Activate
Set objDoc = Application.ActiveInspector.WordEditor
With objDoc.Windows(1).Selection
.WholeStory
.Font.Size = 10
End With
End Sub
-------------<SNIP>------------
Wie sollte es auch anders sein, es funktioniert bis
.Font.Size = 10
, weil dann eine Fehlermeldung mit folgendem Inhalt erscheint:
Laufzeitfehler '4605'
Diese Methode oder Eigenschaft ist nicht verfügbar, weil das Dokument
für Bearbeitung gesperrt ist.
Simpel gefragt:
Wie "entsperre" ich das Dokument???
Oder auch:
Wie umgehe ich diese Fehlermeldung komplett???
Vielen Dank für Eure Antworten schon jetzt!
Herzliche Grüße,
Andreas