Replace text in cells

[Sol Apache]

I want to select text in a cell of a table where the cursor is and replace
it with an autotext entry. This macro selects the cell, but I get an error
message when I try to replace the text:

ActiveDocument.Tables(1).Cell(1,2).Select
NormalTemplate.AutoTextEntries("Attention:").Insert Where:=Selection.Range

Any help appreciated.


Sol

 

[Sol Apache]

Just realised that this macro selects the first table in the document, and I
have several. I want to select the second cell of row 1 of the table in
which the cursor is, then replace it with an autotext entry, as set out
below.

The learning curve for VB is steep...

 

[Greg Maxey]

Sub Scratchmacro()
Dim oRng As Word.Range
Set oRng = Selection.Tables(1).Cell(1, 2).Range
oRng.MoveEnd wdCharacter, -1
NormalTemplate.AutoTextEntries("Attention:").Insert oRng
End Sub

 

[Sol Apache]

That works perfectly, Greg. Thank you very much.