Shouldn't this work:

With ActiveDocument.Paragraphs(1).Range
.InsertAfter vbTab
End With

It isn't doing it. I need the tab BEFORE the CRLF mark after the last regular char

Thank you and have a good day!

Susan Flamingo

That is working to do what you told it to do "Insert a tab after the the last character in paragraph 1. If you want it at the end of the "current" paragraph then you can use:



By the way, you don't ever have to use:
"With Active Document
...
End With


Especially when you are only doing one thing. Simply use:
ActiveDocument.Paragraphs(1).Range.InsertAfter vbTab

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

As usual works perfectly. Thank you!

For some strange reason, it stopped working and is inserting the tab AFTER the end of the paragraph mark and not immediately BEFORE it.
What is going wrong?

You can try:
Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
Set oRng = Selection.Paragraphs(1).Range
If oRng.Characters.Last = Chr(13) Then
oRng.End = oRng.End - 1
End If
oRng.InsertAfter vbTab
lbl_Exit:
Exit Sub
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Yes that seems to be the winner! Thank You!