Добавить гиперссылку в Word Bookmark - PullRequest
Новая
       39

Добавить гиперссылку в Word Bookmark

0 голосов
/ 11 июня 2019

Я борюсь с добавлением гиперссылки на закладку с помощью VBS.

Сценарий используется для извлечения данных из каталога активного домена и установки подписи компании для каждого пользователя, однако я хочу, чтобы адрес электронной почты был гиперссылкой и активным для кликов.

Я пытался разместить это где-то: doc.Hyperlinks.Add (ActiveDocument.bookmarks ("Email"). Range,, objUser.mail,, objUser.mail)

Но независимо от того, где я его разместил, я получал только ошибки.

Это то, что у меня есть пока просто текст. 

strTemplate = "\\w2k8srv1\NETLOGON\Signatures\test.docx"

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add(strTemplate)
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

With objDoc.Bookmarks
    .Item("FullName").Range.Text = objUser.cn
    .Item("Title").Range.Text = objUser.title
    .Item("Telephone").Range.Text = objUser.telephoneNumber
    .Item("Email").Range.Text = objUser.mail
End With
Set selection = objDoc.Range()
With objWord.EmailOptions.EmailSignature
    .EmailSignatureEntries.Add "Sign", selection
    .NewMessageSignature = "Sign"
    .ReplyMessageSignature = "Rare"
End With

objDoc.Saved = True
objWord.Quit

Поэтому я просто пытаюсь добавить гиперссылку на закладку «Электронная почта» со значением objUser.mail.

1 Ответ

0 голосов
/ 12 июня 2019

Код типа: 

.Item("Email").Range.Text = objUser.mail

не добавляет содержимое в закладку;он вставляет его после закладки.Если вы хотите, чтобы адрес электронной почты был вставлен в виде гиперссылки, вы можете использовать такой код: 

With objDoc
    .Bookmarks("FullName").Range.Text = objUser.cn
    .Bookmarks("Title").Range.Text = objUser.Title
    .Bookmarks("Telephone").Range.Text = objUser.telephoneNumber
    .Hyperlinks.Add .Bookmarks("Email").Range, objUser.mail
End With

Обратите внимание, что .Hyperlinks.Add принимает и другие аргументы;Я опущу их для краткости.

...