![]() |
#9
|
||||
|
||||
![]()
OK, this code adds the line to every paragraph including table cells (except for the last para in the last cell of a table)
Code:
Sub TabToEndOfLine() Dim lngWidth As Long, lngLM As Long, lngRM As Long Dim oRng As Range, lngColWidth As Long Dim oPara As Paragraph On Error Resume Next For Each oPara In ActiveDocument.Paragraphs Set oRng = oPara.Range If oPara.Range.Information(wdWithInTable) = False Then lngColWidth = oRng.Sections(1).PageSetup.TextColumns.Width Else ' in a table lngColWidth = oRng.Cells(1).Width End If With oRng.ParagraphFormat.TabStops .ClearAll .Add Position:=lngColWidth, Alignment:=wdAlignTabRight, Leader:=2 End With oRng.End = oRng.End - 1 oRng.InsertAfter Chr(32) & vbTab DoEvents Next oPara lbl_Exit: Set oRng = Nothing Set oPara = Nothing Exit Sub End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
Tags |
hyphen |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Hyphen goes to next line | DBlomgren | Publisher | 0 | 07-14-2016 06:46 PM |
Bibliography Hyphen for repeat author | grantgibson45 | Word | 3 | 02-25-2013 04:32 AM |
Switching text on either side of hyphen | nignog | Word | 1 | 01-23-2012 01:13 PM |
![]() |
gstech | Word | 1 | 10-08-2010 09:57 AM |
Hyphen vs. en-dash | tocuin | Word | 0 | 09-18-2009 10:01 AM |