Find last word in paragraph and delete it

		Microsoft Office Forums > Microsoft Word > Word VBA
Find last word in paragraph and delete it

FAQ

Thread Tools

Display Modes

05-19-2015, 04:18 AM

gmaxey

Windows 7 32bit Find last word in paragraph and delete it

Office 2010 (Version 14.0)

Expert

Join Date: May 2010

Location: Brasstown, NC

Posts: 1,635

Here is another approach:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  Do
    Selection.Paragraphs(1).Range.Characters.Last.Previous.Delete
  Loop Until Selection.Paragraphs(1).Range.Characters.Last.Previous _
       Like "[" & Chr(32) & "," & Chr(160) & "," & Chr(9) & "]"
       'Space, non-breaking space or tab.
lbl_Exit:
  Exit Sub
End Sub

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Why when I paste text into word, blank space appears after a paragraph & I can't delete it?	AWD	Word	3	10-16-2018 01:10 PM
can't delete paragraph mark at end of document	kb	Word	10	10-06-2017 02:32 PM
Delete bookmark and paragraph which is blank	dsjk9190	Word VBA	2	01-22-2015 01:15 AM
Word thinks 1 sentence is 2 paragraphs and won't let me delete the extra paragraph symbol	jrasicmark	Word	1	12-05-2014 01:50 AM
Find all email addresses in word document and delete	Chayes	Word VBA	14	10-22-2013 06:30 AM