More on MS Word

[Padawan]

Vlad (or anyone else)

May I impose on you for a little more help?

I simply want to add the word "ALL" at the beginning of a sentence. I currently have this code, Selection.Text:="ALL"
Selection.Delete Unit:=wdCharacter, Count :=3

I would like to enter the text ALL by overwriting the 3 spaces so I don't need the 2nd line of code.

Clear?

Thoughts?

THANK YOU

 

[ZVI]

Hi John,

Not clear what is in your selection.
If you select 3 spaces and willing to overtype "ALL" on selection then try:

'Overtype = True ' <-- set it if nothing is selected
Selection.TypeText Text:="ALL"
'Overtype = False

Vlad

 

[ZVI]

Or may be:

Selection = Replace(Selection, "   ", "ALL")
' Or the same
Selection = Replace(Selection, Space(3), "ALL")

 

[Padawan]

Vlad

We're close.

I want to add text at the beginning of the line. The first word = ALL. I just want to have the curser in the home position of the line, and enter my text without moving the rest of the line to the right. Alternatively I can use the code I have then delete the same number of spaces as the character length of the word I enter. I was just hoping to write a slightly "cleaner" code.

I tried your sample, but it didn't work. I'm going to try using the macro recorder and hit the insert key to see what code it generates, but I believe I already tried that and it didn't work.

 

[Padawan]

Your 2nd post works if I select the first 3 spaces in the line. I would like to not have to select the 3 spaces.

Perhaps I'm too used to Excel macros where you usually don't need to select to write code.

Any other thoughts?

Thank you

 

[ZVI]

Try this:

  With Selection
    .HomeKey Unit:=wdLine, Extend:=wdMove
    .Words(1) = Replace(.Words(1), Space(3), "ALL")
  End With

or that:

  With Selection
    .HomeKey Unit:=wdLine, Extend:=wdMove
    .Words(1) = "ALL" & Mid(.Words(1), 4)
  End With

 

[ZVI]

Without changing of selection, using Range:

  With Selection.Paragraphs(1).Range
    .SetRange Start:=.Start, End:=.Start + 3
    .Text = "ALL"
  End With

 

[Padawan]

Vlad

For some reason I couldn't post back to this last night. Also couldn't send a PM.

I got the code to work, and wanted to THANK YOU for your help.

 

[ZVI]

Vlad
...
I got the code to work, and wanted to THANK YOU for your help.

You are welcome John!
Vlad