Delete Character on Single Line Only

macropod · #6 04-19-2017, 12:27 PM

Quote:

Originally Posted by Tye30

I think I mislead you in my last post.

Indeed. Try:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim StrTmp As String
With Selection
  .Start = .Paragraphs.First.Range.Start
  .End = .Paragraphs.First.Range.End - 1
  StrTmp = Trim(Replace(Replace(.Text, "|Z|", "ZR"), "|", ""))
  Do While InStr(StrTmp, "  ") > 0
    StrTmp = Replace(StrTmp, "  ", " ")
  Loop
  .Text = StrTmp
End With
Application.ScreenUpdating = True
End Sub

With this code, it will process any paragraph you click in - you don't have to select the entire paragraph beforehand

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Every page indents first line one character	glennhardy	Word	6	02-05-2016 04:05 PM
Use character instead of line for table border	dlowrey	Word Tables	6	03-09-2015 11:29 AM
macro to add brackets to each line and add single quotes to each word in the line	bracketandquotes	Word VBA	17	02-16-2015 03:51 PM
first character NOT Alpha numeric or Tilde (~) delete.	ksridh	Word VBA	5	03-17-2014 12:45 AM
Change single character in PPT to another font macro	rtwwpad	PowerPoint	1	01-19-2013 05:08 PM