none
Run-time error 5941 RRS feed

  • Question

  • Hi, trying to put text in for letterhead.  format is saved in building blocks.  Here's the code when I run the de-bug:

    The second and third line are highlighted "ActiveDocument....=True"

    Sub letterhead()
    '
    ' letterhead Macro
    '
    '
        Templates.LoadBuildingBlocks
        ActiveDocument.AttachedTemplate.BuildingBlockEntries("ltrhd").Insert Where _
            :=Selection.Range, RichText:=True
        Selection.MoveUp Unit:=wdLine, Count:=1
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Fields.Unlink
        Selection.EndKey Unit:=wdLine
        Selection.TypeParagraph
        Selection.TypeParagraph
    End Sub

    Thanks for the help

    Wednesday, June 5, 2019 3:58 PM