PDA

Vollständige Version anzeigen : Verweise


toadroadranch
26.06.2017, 11:16
Hallo,

ich habe folgenden Code:

Sub Arial()
Dim Ins As Outlook.Inspector
Dim Document As Word.Document
Dim Word As Word.Application
Dim Selection As Word.Selection

Set Ins = Application.ActiveInspector
Set Document = Ins.WordEditor
Set Word = Document.Application
Set Selection = Word.Selection

Selection.MoveUp Unit:=wdLine, Count:=15, Extend:=wdExtend
Selection.Font.Name = "Arial"
End Sub


Funzt auch, damit formatiere ich eine als Textbaustein eingefügte Signatur wenn ich auf Mails antworte und der Textbaustein die Formatierung der Mail übernimmt.

Mein Problem ist, dass am WTS der Verweis auf die Word 15 Object Library immer wieder gekillt wird.

Wenn ich die Verweise ins Makro mit einbaue kommt eine Fehlermeldung bei wdLine. Ich müsste unseren Administratoren sagen, wo diese Verweis gepeichert wird, damit sie das im WTS eintragen können.

Viele Grüße
toad

mumpel
26.06.2017, 11:40
Hallo!

Nutze die Konstanten (Enumerated Constans), nicht die Namen. Selection.MoveUp Unit:=5, Count:=15, Extend:=1

https://msdn.microsoft.com/en-us/library/office/aa211923(v=office.11).aspx

Gruß, René

EarlFred
26.06.2017, 12:02
Hallo toad,

ich würde grundsätzlich auf Late-Binding umsteigen:
Outlook und Excel (1) Grundlagen und Einführung (http://www.online-excel.de/excel/singsel_vba.php?f=85)
Was Excel in Richtung Outlook gesagt wird, gilt grundsätzlich auch für Outlook in Richtung Word (und andere Konstellationen).

Grüße
EarlFred