Hyphen until the end of the row

Guessed · #1 10-29-2019, 07:40 PM

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

abc3132 · #2 10-30-2019, 01:05 AM

Quote:

Originally Posted by Guessed

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

WOW. It works perfectly well. Thanks both for your time...and abusing of your time what you should I change in the code above to do the way around?. I mean there is a document the end of the page where all the phrases´hyphens should be erased

Similar Threads
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
Auto change hyphen to em character not working	gstech	Word	1	10-08-2010 09:57 AM
Hyphen vs. en-dash	tocuin	Word	0	09-18-2009 10:01 AM