none
如何将不同的词组批量建立链接 RRS feed

  • 问题

  • 我在给一家公司做推广。有时候发一些文章时想给某些关键词加上我们公司的超链接。我该怎么做呢
    2012年5月28日 7:11

答案

  • Hi,

    使用下面的代码来批量添加超链接。

    不过需要注意的是,比如你需要将文档中的“Microsoft”、“Office”两个词添加超链接,则需要运行两次这个宏,因为每次只能为某一个特定的文字进行创建超链接的动作。另外,你需要估算一下这个词在文档中出现的次数,比如“Microsoft”这个词在文档中出现10次,然后你必须修改代码中For循环执行的次数,并且这个数字必须大于10,才能为所有的“Microsoft”创建超链接。

    总之,代码有两处需要改动:1. 循环次数 2. 查找的文字

    代码如下:

    Public Sub hyper_add_new()

    Dim i As Integer

    'the loop times

    For i = 1 To 5

    Selection.Find.ClearFormatting

    With Selection.Find

            ' the find text

            .Text = "Microsoft"

            .Replacement.Text = ""

            .Forward = True

            .Wrap = wdFindContinue

            .Format = False

            .MatchCase = False

            .MatchWholeWord = False

            .MatchByte = True

            .MatchWildcards = False

            .MatchSoundsLike = False

            .MatchAllWordForms = False

    End With

                Selection.Find.Execute

                ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _

                Address:="http:\\www.microsoft.com"

              On Error Resume Next  

    Next

    End Sub


    Jaynet Zhang

    TechNet Community Support

    2012年5月29日 5:39
    版主

全部回复

  • 先做好一个超链接,显示文字假设是AA,然后把这个AA复制上若干份,只要直接在页面上把AA修改成别的内容就可以了。

    在单元格里横行的……

    QQ:76332468

    www.excelpx.com

    www.exceljy.com

    www.access-cn.com/vvb/

    专业方向:EXCEL操作

    2012年5月29日 2:47
  • Hi,

    使用下面的代码来批量添加超链接。

    不过需要注意的是,比如你需要将文档中的“Microsoft”、“Office”两个词添加超链接,则需要运行两次这个宏,因为每次只能为某一个特定的文字进行创建超链接的动作。另外,你需要估算一下这个词在文档中出现的次数,比如“Microsoft”这个词在文档中出现10次,然后你必须修改代码中For循环执行的次数,并且这个数字必须大于10,才能为所有的“Microsoft”创建超链接。

    总之,代码有两处需要改动:1. 循环次数 2. 查找的文字

    代码如下:

    Public Sub hyper_add_new()

    Dim i As Integer

    'the loop times

    For i = 1 To 5

    Selection.Find.ClearFormatting

    With Selection.Find

            ' the find text

            .Text = "Microsoft"

            .Replacement.Text = ""

            .Forward = True

            .Wrap = wdFindContinue

            .Format = False

            .MatchCase = False

            .MatchWholeWord = False

            .MatchByte = True

            .MatchWildcards = False

            .MatchSoundsLike = False

            .MatchAllWordForms = False

    End With

                Selection.Find.Execute

                ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _

                Address:="http:\\www.microsoft.com"

              On Error Resume Next  

    Next

    End Sub


    Jaynet Zhang

    TechNet Community Support

    2012年5月29日 5:39
    版主