|
|
#4
02-08-2022, 05:44 PM
|
||||
|
||||
This works for me.
Code:
Sub JoinTables()
Dim aRng As Range
Set aRng = Selection.Range
Do While aRng.Tables.Count > 1
aRng.Tables(aRng.Tables.Count).Range.Previous(Unit:=wdParagraph).Delete
Loop
End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
| Tags |
| delete paragraph marks |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| a macro to replace paragraph mark with a space applies effect on paragraph marks after the selection | drrr | Word VBA | 2 | 08-24-2021 03:05 AM |
 How to delete all the punctuation marks from a paragraph?
|
Jamal NUMAN | Word | 3 | 02-26-2019 02:33 PM |
|
Paragraph marks appear suddently
|
leonardevens | Word | 1 | 07-13-2015 12:14 PM |
| Finding Paragraph Marks | BZee | Word | 4 | 02-14-2015 02:12 PM |
|
Replace paragraph-marks (line-breaks) in tables with a character-string
|
Aztec | Word VBA | 2 | 04-02-2013 10:52 PM |
Windows 10 
Office 2016
Threaded Mode