Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 05-24-2022, 09:06 PM
Cendrinne's Avatar
Cendrinne Cendrinne is offline Need Help, If Paragraph Mark is Color Red, then Delete Windows 10 Need Help, If Paragraph Mark is Color Red, then Delete Office 2019
Competent Performer
Need Help, If Paragraph Mark is Color Red, then Delete
 
Join Date: Aug 2019
Location: Montreal Quebec Canada
Posts: 190
Cendrinne is on a distinguished road
Lightbulb Need Help, If Paragraph Mark is Color Red, then Delete

Hello Pros,

I have a bloc of texte/paragraph, where my bullets are splitted in two sentences, due to PDF converted in Word.
Note: The bullet spitted in two sentences is that the top has a bullet, the other splitted sentence doesn't have the bullet. I hope it's clear. By the way, it's easy to see since they both (line 1) end and start (line 2) with lower case letter.

I found ways to fix the issue, but it only does it for one.

I've tried 15 different ways, I'm giving up to your expertise.
****
I do a regular Find and Replace, by selecting the top bulleted sentence that are split in two, so Find ^p, then turn them into Red Color AND add a space before the paragraph mark.
So if we go to the end of line, then click on the Delete button, it deletes the red paragraph mark, without loosing the bullet.

1 step:
Code:
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorRed
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " ^&"
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
*************************
Step 2
Code:
    With Selection.Find
      .Font.ColorIndex = wdRed
      .Execute FindText:="^p", Format:=True, Forward:=True
      If Format(.found = True) Then
        Selection.EndKey Unit:=wdLine
        Selection.Delete
       
   Do While found = True
    .Execute Replace:=wdReplaceAll
    
    Loop
      End If
    End With
What I wish to accomplish, is to keep the bullet, but merge two splited sentences.

Any insights? It's driving me mad and don't want to do one at the time.


Just to select a block of problem area.

Cause my different ways, either I have error message or it does one at the time.

I would be soooo appreciative for any help towards this problem.

Cendrinne

Last edited by Cendrinne; 05-25-2022 at 06:36 PM.
Reply With Quote
  #2  
Old 05-25-2022, 06:39 PM
Cendrinne's Avatar
Cendrinne Cendrinne is offline Need Help, If Paragraph Mark is Color Red, then Delete Windows 10 Need Help, If Paragraph Mark is Color Red, then Delete Office 2019
Competent Performer
Need Help, If Paragraph Mark is Color Red, then Delete
 
Join Date: Aug 2019
Location: Montreal Quebec Canada
Posts: 190
Cendrinne is on a distinguished road
Default Can the initial question be edited or only the body?

Is there a way to edit my initial question? If anyone see's my questions, it might be seen as an easy way to fix this dilema. BUT I SWEAR IT'S NOT. LOL Why this cannot be solve so easily? I wish to add ''bullet'' in my initial question.

Last edited by Cendrinne; 05-26-2022 at 06:45 AM.
Reply With Quote
Reply

Tags
bullet point, help me, paragraph formatting

Thread Tools
Display Modes


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
Need Help, If Paragraph Mark is Color Red, then Delete What is this paragraph mark called booneyrex Word 8 03-04-2021 04:15 AM
Need Help, If Paragraph Mark is Color Red, then Delete Indention below paragraph mark... kikola Word VBA 13 05-26-2020 06:21 AM
Need Help, If Paragraph Mark is Color Red, then Delete can't delete paragraph mark at end of document kb Word 10 10-06-2017 02:32 PM
Need Help, If Paragraph Mark is Color Red, then Delete Final paragraph mark Caroline Word 2 02-22-2011 10:39 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 05:31 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft