Scripte signatur linieskifte problem

Scripter nedenstående signatur. Er pt kun test.

wdColorBlack = sort
Hvad hedder grå?
Burde vel være wdColorGrey

vbCrLf giver dobbelt linieafstand - vil kun have 1. Som hvis man trykker shift + enter.


'On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)


strName = objUser.FullName
strTitle = objUser.Title
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strEmail = objUser.mail

Set objWord = CreateObject("Word.Application")

objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature

Set objSignatureEntries = objSignatureObject.EmailSignatureEntries


'Firmaer
objSelection.Font.Name = "Verdana"
objSelection.Font.Size = "10"
objWord.Selection.Font.Color = wdColorBlack
objSelection.TypeText "_____________________________" & vbCrLf
objSelection.Font.bold = true
objSelection.TypeText "xx KONCERNEN" & vbCrLf
objSelection.Font.bold = false
objSelection.Font.Size = "8"
objSelection.TypeText "xx G/S" & vbCrLf
objSelection.TypeText "xx A/S ∙ xx A/S" & vbCrLf
objSelection.TypeText "xx A/S" & vbCrLf & vbCrLf

'Navn, Titel og telefon
objSelection.TypeText strName & vbCrLf
objSelection.TypeText "Systemudvikler" & vbCrLf
objSelection.TypeText "3395" & strPhone

Set objSelection = objDoc.Range()

objSignatureEntries.Add "Signatur xx KONCERNEN", objSelection
objSignatureObject.NewMessageSignature = "Signatur xx KONCERNEN"
objSignatureObject.ReplyMessageSignature = "Signatur xx KONCERNEN"


objDoc.Saved = True
objWord.Quit

wscript.echo "Din hoved signatur er nu lavet!"