none
Картинка с гиперссылкой в подписи RRS feed

  • Вопрос

  • Господа здравствуйте!

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

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

    Вот здесь смотрела:

    http://social.technet.microsoft.com/Forums/ru-RU/b727811d-d206-417a-af67-eb7989b36172/-word-vbs-?forum=scrlangru

    Но что-то не получается, ссылка появляется, а картинка не лепится.

    Скрипт:

    strUser = objSysInfo.UserName
    Set objUser = GetObject("LDAP://" & strUser)
     
    strZpov = "С уважением,"
    strDev = "----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
    strPostIndex = ObjUser.postalCode
    strName = objUser.FullName
    strTitle = objUser.Title
    strDepartment = objUser.Department
    strCompany = objUser.Company
    strPhone = objUser.telephoneNumber
    strMobile = objUser.Mobile
    strweb = objuser.wWWHomePage
    strgorod = objuser.l
    strstreet = objuser.streetAddress
    strfax = objuser.facsimileTelephoneNumber
    strIntPhone = objuser.ipPhone
    strEmail = objuser.mail
    strLogo = "\\serv1\Est\Signature\logo.JPG"
    strPict = "\\serv1\Est\Signature\youtube.JPG"
    strWeb1 = "www.domain.ru"
    strWeb2 = "www.domain1.ru"
    strWeb3 = "www.youtube.com/channel"
     
     
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add()
    Set objSelection = objWord.Selection
    Set objEmailOptions = objWord.EmailOptions
    Set objSignatureObject = objEmailOptions.EmailSignature
    Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
     
     
    objSelection.ParagraphFormat.Space1
     
    objSelection.Font.Size = "11" 
    objSelection.Font.Name = "Arial Narrow"
    objSelection.Font.Color = RGB(31, 73, 125)
    objSelection.TypeText strZpov
    objSelection.TypeText CHR(11)
    objSelection.Font.Bold = True
    objSelection.TypeText strName
    objSelection.TypeText CHR(11)
    objSelection.Font.Bold = False
    objSelection.TypeText strTitle
    objSelection.TypeText CHR(11)
    objSelection.TypeText strDepartment
    objSelection.TypeText CHR(11)
    objSelection.TypeText strCompany
    objSelection.TypeText CHR(11)
    objSelection.TypeText "Раб.тел.   +7xxxxxxxxxx  доб.  " & strPhone & " " & strintPhone
    objSelection.TypeText CHR(11)
    objSelection.TypeText "Моб.    " & strMobile & "  " & strintMobile
    objSelection.TypeText CHR(11)
    objSelection.Font.Size = "2"
    objSelection.TypeText CHR(11)
    objSelection.Font.Size = "11"


    objSelection.TypeText strPostIndex & "BlaBla1:  " 
    Set hyp = objSelection.Hyperlinks.Add(objSelection.Range, strWeb1, "", "", strWeb)
    hyp.Range.Font.Size = "11"
    hyp.Range.Font.Name = "Arial narrow"
    objSelection.TypeText CHR(11)


    objSelection.TypeText "BlaBla2:  " 
    Set hyp = objSelection.Hyperlinks.Add(objSelection.Range, strWeb2, "", "", strWeb)
    hyp.Range.Font.Size = "11"
    hyp.Range.Font.Name = "Arial narrow"
    objSelection.TypeText CHR(11)

    objSelection.TypeText "e-mail: "
    objselection.font.color = RGB(0, 0, 255)
    'Вставляем адрес почты
    Set hyp = objSelection.Hyperlinks.Add(objSelection.Range, "mailto: " & strEmail, , , strEmail)
    hyp.Range.Font.Size = "11"
    hyp.Range.Font.Name = "Arial narrow"
    'objSelection.Hyperlinks.Add objSelection.range, "mailto: " & strEmail, , , strEmail

    objSelection.TypeText CHR(11)
    objSelection.Hyperlinks.Add objSelection.Range, strWeb, "", "", strWeb
    objSelection.InlineShapes.AddPicture(strLogo)
    Set hyp = objSelection.Hyperlinks.Add(objSelection.Range, strWeb3, "", "", strWeb)

    '''''''''''''''''''''''''''''''''
    'Здесь должна быть картинка с гиперссылкой

    ''''''''''''''''''''''''''''''''
     
    Set objSelection = objDoc.Range()
     
    objSignatureEntries.Add "AD Signature", objSelection

     
    objDoc.Saved = True

    23 апреля 2014 г. 8:15

Ответы

  • На Powershell (вставка изображения с гиперссылкой)

    $objWord = New-Object -comobject Word.Application
    $objWord.Visible = $true
    $objDoc = $objWord.Documents.Add()
    $objRange = $objDoc.Range()
    $p = $objDoc.InlineShapes.AddPicture("C:\IMG.jpg",$true,$false,$objRange)
    $objDoc.HyperLinks.Add($p, "http://ya.ru",$null,$null,"Image")


    • Изменено Max441 4 мая 2014 г. 12:56
    • Предложено в качестве ответа Vector BCOModerator 5 мая 2014 г. 7:38
    • Помечено в качестве ответа KazunEditor 11 мая 2014 г. 19:34

Все ответы

  • Господа, помощь все еще нужна, посмотрите пжлста.
    29 апреля 2014 г. 8:14
  • На Powershell (вставка изображения с гиперссылкой)

    $objWord = New-Object -comobject Word.Application
    $objWord.Visible = $true
    $objDoc = $objWord.Documents.Add()
    $objRange = $objDoc.Range()
    $p = $objDoc.InlineShapes.AddPicture("C:\IMG.jpg",$true,$false,$objRange)
    $objDoc.HyperLinks.Add($p, "http://ya.ru",$null,$null,"Image")


    • Изменено Max441 4 мая 2014 г. 12:56
    • Предложено в качестве ответа Vector BCOModerator 5 мая 2014 г. 7:38
    • Помечено в качестве ответа KazunEditor 11 мая 2014 г. 19:34