#1
|
|||
|
|||
Trim trailing space macro stopped working
Hi everyone
Resolved. This is an old macro that just removes the trailing space for text (quick clean up). But it is not working Windows 10 Office 365 Business Standard. A Rny ideas how to make it work? - It doesn't error it just doesn't remove the trailing space in the Word document. Sub Purge_Trailing_Space() Dim s As String On Error Resume Next With ActiveDocument If Len(.Range) = 1 Then Exit Sub s = .Characters.Last.Previous While s = " " Or s = Chr(13) Or s = Chr(11) .Characters.Last.Previous = "" s = .Characters.Last.Previous Wend End With End Sub Janine Last edited by jec1; 08-01-2021 at 03:15 PM. |
#2
|
||||
|
||||
This is only hitting the last character in the entire document. Is that what you expected to happen or are you wanting this for every paragraph?
Within that scope, it works for me on my machine.
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
|||
|
|||
Every paragraph - this is really an old macro - must have left it half finished...
Every para - I just want it to run through the document text top to bottom - and remove trailing space - then call my Table Cell macro. Below macro seems to work okay. Sub jec_RemoveTrailingWhitespaceCR(control As IRibbonControl) ' ' RemoveTrailingWhitespace() ' This macro uses find and replace to remove trailing whitespace from the end of all the ' paragraphs in a document. The macro operates on whatever text is currently selected. ' With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "^w^p" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=wdReplaceAll End With Call jec_Purge_Trailing_SpaceTableCells End Sub |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Function key F4 stopped working | coffent | Excel | 7 | 11-15-2020 11:15 AM |
Data Entry - Getting spreadsheets back with excess space but the TRIM function doesn't work | jhato160 | Excel | 5 | 06-17-2016 04:06 AM |
Save to PDF stopped working | RzB | Excel | 6 | 06-26-2014 03:40 AM |
Word stopped working | judyn | Word | 5 | 10-18-2012 03:09 PM |
Tab key stopped working in Word | jgriffin | Word | 2 | 06-24-2009 04:05 PM |