Hyperlinks bypassing Macro-Enabled Template

[Gravity]

Hi,

I have some Word documents saved as Macro-Enabled Templates.

If users go to the folder and open the document they get a new copy as expected.

If I Hyperlink to the same documents when they click the hyperlink they open the original document and can over write it.



Is there a way to hyperlink and generate a copy and not open the original?


Thank you

[Charles Kenyon]

A hyperlink simply takes the user to the target. It is not the same as double-clicking on a template.


You can create a macro either by recording or writing it to create a new document based on the template. You can further use a MacroButton field to run the macro. It can be formatted as a hyperlink.

The first step in the macro, though, should be to collapse the selection because when a macro-button field is clicked on, the field is selected.

It will require a double-click to activate unless you set the option for a single-click.

Here is more on these fields:

• Macrobutton fields
• MacroButton Field

[Gravity]

Originally Posted by Charles Kenyon

A hyperlink simply takes the user to the target. It is not the same as double-clicking on a template.


You can create a macro either by recording or writing it to create a new document based on the template. You can further use a MacroButton field to run the macro. It can be formatted as a hyperlink.

The first step in the macro, though, should be to collapse the selection because when a macro-button field is clicked on, the field is selected.

It will require a double-click to activate unless you set the option for a single-click.

Here is more on these fields:

• Macrobutton fields
• MacroButton Field

That is really annoying, thank you very much for your help.

[Charles Kenyon]

Here are a macro that creates a new document based on a template and the function that helps set the path to find the template. (You can hard code the path instead, if you want. This one gets templates from my Workgroup Templates folder.)

Sub KenyonBill()
    '
    ' KenyonBill Macro
    ' Macro written 7/5/02 by Charles Kyle Kenyon
    ' "&chr(10)&"New letter based on Kenyon Letterhead form
    '   Calls WorkgroupPath Function (below)
    '
    Dim sTemplatesPath As String
    sTemplatesPath = WorkGroupPath & "Menus\Office Forms"

    Documents.Add Template:= _
                  sTemplatesPath & "Kenyon Bill Form.dotm" _
                  , NewTemplate:=False
End Sub

Function WorkGroupPath() As String
    '   Written by Charles Kenyon
    '   February 28, 2003
    '
    '   Used by templates menus to set location of templates.
    '   Returns workgroup tempates path with "" at the end.
    '
    '   This is needed because if the folder is a network drive rather
    '   than a folder, it will have the "" already. If it is a folder,
    '   it will not have the backslash. This function gives a string
    '   with the backslash in either case.
    '
    WorkGroupPath = Application.Options.DefaultFilePath(wdWorkgroupTemplatesPath)
    If Right(WorkGroupPath, 1) <> "" Then
        WorkGroupPath = WorkGroupPath & ""
    End If
End Function

If running from a macrobutton field, include the following statement in the macro to create the document. Otherwise, the field remains selected.

Selection.Collapse

See also Making MacroButtonFields respond to a single click

You need to have the following command in an AutoMacro. This can be in your normal template or a document template. Without this, it takes a double-click to run the macro.

Options.ButtonFieldClicks = 1

Example for the normal template:

Sub AutoExec({)
    Options.ButtonFieldClicks = 1
End Sub

If you have a number of templates you want to create documents from, consider, instead of macrobutton fields, a custom Ribbon tab with the macros or adding them to your QAT.
Modifying the Quick Access Toolbar (QAT) in Microsoft Word