Help with a logical code, end of paragraph lines

Guessed · #1 06-01-2021, 01:33 AM

This appears to work but I would need to see a big data set to be confident in it

Code:

Sub NoBreaksForTheWicked()
  Dim aRng As Range, iLine1 As Integer, iLine2 As Integer
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .Text = "(\(<*) "
    .Replacement.Text = "\1^l"
    .Forward = True
    .MatchWildcards = True
    .Wrap = wdFindStop
    Do While .Execute
      iLine1 = aRng.Information(wdFirstCharacterLineNumber)
      aRng.Collapse Direction:=wdCollapseEnd
      iLine2 = aRng.Words(1).Information(wdFirstCharacterLineNumber)
      If iLine2 <> iLine1 Then
        aRng.MoveStart Unit:=wdCharacter, Count:=-1
        aRng.Text = Chr(160)
      End If
      aRng.Collapse Direction:=wdCollapseEnd
    Loop
  End With
End Sub

Cendrinne · #2 06-01-2021, 07:52 PM

Quote:

Originally Posted by Guessed

This appears to work but I would need to see a big data set to be confident in it

Code:

Sub NoBreaksForTheWicked()
  Dim aRng As Range, iLine1 As Integer, iLine2 As Integer
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .Text = "(\(<*) "
    .Replacement.Text = "\1^l"
    .Forward = True
    .MatchWildcards = True
    .Wrap = wdFindStop
    Do While .Execute
      iLine1 = aRng.Information(wdFirstCharacterLineNumber)
      aRng.Collapse Direction:=wdCollapseEnd
      iLine2 = aRng.Words(1).Information(wdFirstCharacterLineNumber)
      If iLine2 <> iLine1 Then
        aRng.MoveStart Unit:=wdCharacter, Count:=-1
        aRng.Text = Chr(160)
      End If
      aRng.Collapse Direction:=wdCollapseEnd
    Loop
  End With
End Sub

Andrew, I've tested on a small paragraph, and then tried on 5 pages worth of text with mixture of open parenthese with a word, in the middle of the paragraph and some at the end. Those in the middle, I've put the font color in Red, those at the end of the line, I've highlighted. So I can confirm, only those that were highlighted where affected.

So YES you can be confidant.

Thank you both of you, Guessed, and Macropod. You are both Great Mind Thinkers and Helpers.

I thank you from the bottom of my heart

Cendrinne

Cendrinne · #3 06-11-2021, 09:39 PM

Hello, Andrew,
I don't want to leave you with the impression, it worked all the time, cause in one case, it didn't. Didn't even flintch. So I want to let the readers here read it's not a 100% working script in those circumstances.

Besides, does it exist and 100% full proof script? Or it's normal, it might not work all the time? I guess it depends if one variable is different than the test I've done previously.

Quote:

Originally Posted by Guessed

This appears to work but I would need to see a big data set to be confident in it

Code:

Sub NoBreaksForTheWicked()
  Dim aRng As Range, iLine1 As Integer, iLine2 As Integer
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .Text = "(\(<*) "
    .Replacement.Text = "\1^l"
    .Forward = True
    .MatchWildcards = True
    .Wrap = wdFindStop
    Do While .Execute
      iLine1 = aRng.Information(wdFirstCharacterLineNumber)
      aRng.Collapse Direction:=wdCollapseEnd
      iLine2 = aRng.Words(1).Information(wdFirstCharacterLineNumber)
      If iLine2 <> iLine1 Then
        aRng.MoveStart Unit:=wdCharacter, Count:=-1
        aRng.Text = Chr(160)
      End If
      aRng.Collapse Direction:=wdCollapseEnd
    Loop
  End With
End Sub

It's ok, the one from Macropod worked.

I rather have a backup plan, than just one. Especially when time is an issue.

Regardless, I love then help I get from this forum. I learn so much from people here

Until next time.

Cendrinne

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to change the line spacing between just 2 lines within a paragraph	Swarup	Word	4	06-26-2019 02:32 PM
How to get rid of horizontal lines after each paragraph?	Nisus	Word	10	10-08-2018 01:15 PM
double spaced within paragraph 2 blank lines between paragraphs	BigOldArt	Word	1	08-24-2017 09:08 AM
Lines refuse to merge into one paragraph (Word 2010)	Chris24	Word	2	01-22-2017 03:00 PM
Keep Paragraph Lines Together Issue	SQLUSA	Word	2	06-23-2012 05:00 PM