Userform selectbox to insert autotext

gmayor · #1 02-07-2019, 03:54 AM

The code I posted in the linked thread does work, provided you identify the autotext location correctly and apply the correct names for the autotext entry and the bookmark.

Code:

Sub AutoTextToBM(strbmName As String, oTemplate As Template, strAutotext As String)
'strBMName is the name of the bookmark to fill
'oTemplate is the template with the autotext - probably ActiveDocument.AttachedTemplate
'strAutotext is the name of the autotext entry
Dim oRng As Range
    On Error GoTo lbl_Exit
    With ActiveDocument
        Set oRng = .Bookmarks(strbmName).Range
        Set oRng = oTemplate.AutoTextEntries(strAutotext).Insert _
                   (Where:=oRng, RichText:=True)
        .Bookmarks.Add Name:=strbmName, Range:=oRng
    End With
lbl_Exit:
    Exit Sub
End Sub

aee74 · #2 02-07-2019, 10:37 PM

[I will try this again tonight. But as I tried before nothing happens when I run the code. The code compiles without errors so I the code should be fine. The bookmarks are in the document and the autotext is saved in the template

QUOTE=gmayor;138239]The code I posted in the linked thread does work, provided you identify the autotext location correctly and apply the correct names for the autotext entry and the bookmark.

Code:

Sub AutoTextToBM(strbmName As String, oTemplate As Template, strAutotext As String)
'strBMName is the name of the bookmark to fill
'oTemplate is the template with the autotext - probably ActiveDocument.AttachedTemplate
'strAutotext is the name of the autotext entry
Dim oRng As Range
    On Error GoTo lbl_Exit
    With ActiveDocument
        Set oRng = .Bookmarks(strbmName).Range
        Set oRng = oTemplate.AutoTextEntries(strAutotext).Insert _
                   (Where:=oRng, RichText:=True)
        .Bookmarks.Add Name:=strbmName, Range:=oRng
    End With
lbl_Exit:
    Exit Sub
End Sub

[/QUOTE]

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
insert Autotext via button only from specified category	lodi123	Word VBA	0	07-26-2017 02:57 AM
How do I programmatically insert and append the text from AutoText 0002 to the end of the existing t	erik816	Word VBA	1	03-09-2016 12:48 AM
UserForm of Autotext Entries	ptmuldoon	Word VBA	11	02-13-2016 09:36 AM
How do i insert autotext using a contol toolbox checkbox	NP85	Word VBA	12	02-09-2014 03:06 PM
Insert identifiers in AutoText snippet. Microsoft word	deepgreen	Word	13	01-21-2014 05:16 PM