I've recently migrated some XP templates to 2010 and am now having problems with some of my VBA that should be inserting AutoText (which consists of some text and a table) at the end of the document. The code is:

Selection.EndKey Unit:=wdStory
ActiveDocument.AttachedTemplate.AutoTextEntries("m yStandardText") _
.Insert Where:=Selection.Range, RichText:=True

When the macro runs normally it's as if the Selection.EndKey line is being completely ignored because my AutoText ends up wherever the cursor happens to be.

The strange thing is that if I put a breakpoint anywhere before this line and then once it's stopped, press the run button/press F5, all runs as it should.

This almost feels like some kind of "refresh" issue, as if the code is just running too quickly and performing the insertion of the AutoText before the cursor gets the chance to move. I've tried putting an ActiveDocument.Repaginate before the above code but that doesn't help.

Any thoughts mightily appreciated...

I can't see any good reason why it should not work from the clip you have posted, but you could try setting a range e.g.

Dim oRng As Range
Set oRng = ActiveDocument.Range
oRng.Collapse wdCollapseEnd
ActiveDocument.AttachedTemplate.AutoTextEntries("m yStandardText").Insert _
Where:=oRng, _
RichText:=True

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Thanks Graham but it's still the same when I replace my code with yours.

As you say, there's no good reason from the clip I've posted. There's a lot of other VBA that gets processed before and my feeling is that the macro somehow gets ahead of itself. I'm going to try switching off multi-threading although I'm not sure if I'd be able to do that for the users.

Ah, I'm muddling with Excel 2010 which does let you turn off multithreading.

What's strange is that this code worked fine in XP.

I've managed to fix it - though no idea why this has worked! The code actually was as follows, typing a couple of hard returns and doing some other stuff before inserting the autotext:

With Selection
.EndKey Unit:=wdStory
.TypeText vbCr
.TypeText vbCr
End With
other code
ActiveDocument.AttachedTemplate.AutoTextEntries("m yStandardText") _
.Insert Where:=Selection.Range, RichText:=True

I tried commenting out the two .TypeText lines and it now works fine. I think we can survive without them: they were just there to ensure a gap before the autotext entry but there's usually a stray hard return or two at the bottom of the document anyway.

Makes no sense to me why this has fixed the problem but there we go. I better update all the other templates too.

By the way, there definitely isn't a space between the "m" and the "y" in my autotext name above as I type this but one keeps appearing when I post. Maybe it's because I'm using Firefox?