VB Macro Application.Templates

Posted on 2011-05-09
Last Modified: 2012-05-11
How do I make this Word 2010 macro code universal for everyone in the office and not just me?

Application.Templates( _
        "C:\Users\chayden\AppData\Roaming\Microsoft\Templates\Normal.dotm"). _
        BuildingBlockEntries("_EJHLtr").Insert Where:=Selection.Range, RichText:= _

I tried just cutting down the file path to just Normal.dotm but I couldn't get that to work.
Question by:cchayden
    1 Comment
    LVL 76

    Accepted Solution

    Use the object NormalTemplate
    NormalTemplate.BuildingBlockEntries("_EJHLtr").Insert Where:=Selection.Range, RichText:= _

    Open in new window


    Featured Post

    Threat Intelligence Starter Resources

    Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

    Join & Write a Comment

    Like many others, we try and discourage users from printing documents unnecessarily and instead send or share them electronically. However, this doesn't always work and documents are still printed. With this simple solution, if the user tries to …
    I would like to show you some basics you can do with Mailings in MS Word. It´s quite handy feature you can use for creating envelopes, labels, personalized letters etc. First question could be what is this feature good for? Mailing can really he…
    In a previous video Micro Tutorial here at Experts Exchange (, I explained how to get a free, one-month trial of Office …
    This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

    732 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    19 Experts available now in Live!

    Get 1:1 Help Now