#1
|
||||
|
||||
Inserting a tab char at the end of current paragraph
Shouldn't this work:
With ActiveDocument.Paragraphs(1).RangeIt 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 |
#2
|
|||
|
|||
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:
Code:
Sub ScratchMacro() 'A basic Word Macro coded by Gregory K. Maxey Selection.Paragraphs(1).Range.InsertAfter vbTab lbl_Exit: Exit Sub End Sub 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 |
#3
|
||||
|
||||
As usual works perfectly. Thank you!
|
#4
|
||||
|
||||
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? |
#5
|
|||
|
|||
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 |
#6
|
||||
|
||||
Yes that seems to be the winner! Thank You!
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Delete the current paragraph by just one click without selecting it | RobertDany | Word VBA | 2 | 10-10-2021 09:55 PM |
Inserting text from a Userform into a Field in a paragraph in a paragraph in a word document | storemaz | Word VBA | 1 | 03-13-2020 08:11 AM |
syntax for inserting blank line before inserting table and after a line or paragraph | SamDsouza | Word VBA | 8 | 08-04-2019 11:10 PM |
inserting an image at current position | stewarto | Word VBA | 7 | 03-21-2017 02:37 PM |
A macro that moves the current paragraph up or down? | New Daddy | Word VBA | 2 | 04-13-2014 02:25 PM |