Question

我正在努力通过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值的书签“ Email”。

Answer 1

代码如下：

[
  {
    "name": "George",
    "college": "Princeton",
    "state": "Alabama",
    "food": "Pizza"
  },
  {
    "name": "Charli",
    "college": "Princeton",
    "state": "Alabama",
    "food": "Milk Shake"
  },
  {
    "name": "Max",
    "college": "Princeton",
    "state": "Alabama",
    "food": "Rice"
  },
  {
    "name": "Peter",
    "college": "Princeton",
    "state": "Alabama",
    "food": "Fast Food"
  }
]

不将内容添加到书签；它将其插入书签之后。如果您希望将电子邮件地址作为超链接插入，则可以使用以下代码：

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

请注意，.Hyperlinks.Add也接受其他参数；为了简洁起见，我省略了它们。

将超链接添加到Word书签

1 个答案: