Add a word 2010 function to template

[Esgrimidor]

How can I add this word function (macro) to the template exactly. I try with no results. I get functioning, but not to save to template for not copy/paste everytime I want to execute the function in a document to extract the hiperlinks.....


For word 2010


This is the code :

    Function doHL()
     
    Dim nd As Document
    Dim a As Document
    Dim h As Hyperlink
    Dim r As Range
    Application.ScreenUpdating = False
    Set a = ActiveDocument
    Set nd = Documents.Add
    For Each h In a.Hyperlinks
    Set r = nd.Range
    r.Collapse
    r.InsertParagraph
    r.InsertAfter (h.Address)
    Next
    nd.Activate
    Application.ScreenUpdating = True
    Application.ScreenRefresh
    End Function

Save the function to the normal.dotm or corresponding to have for ever available....

Best Regards

[macropod]

Since it's implemented as a Function, instead of as a Sub, you would need a Sub to call it, regardless of where it's stored.

[Esgrimidor]

Originally Posted by macropod

Since it's implemented as a Function, instead of as a Sub, you would need a Sub to call it, regardless of where it's stored.

What do you mean by that ? Can you put a didactic link please ?

Best Regards

[macropod]

Functions cannot be run on their own; they need something else (e.g. a Sub) to run them. For example, you might use:

Sub Extract_Hyperlinks
doHL
End Sub

Alternatively, if you want to be able to run your code directly, change:
Function doHL()
to:
Sub doHL()
and change:
End Function
to:
End Sub
(this latter change occurs automatically if you do the first one).

[Esgrimidor]

Thanks a lot.
Now is clear for me.
Best Regards