![]() |
#2
|
||||
|
||||
![]()
Try this
Code:
Sub DPU_Test2() 'Application.ScreenUpdating = False Dim Para As Paragraph, oRng As Range Set oRng = ActiveDocument.Range With oRng.Find .Text = ".^p" .Replacement.Text = "^p" .Execute Replace:=wdReplaceAll End With On Error Resume Next For Each Para In ActiveDocument.Paragraphs With Para.Range If Len(.Text) > 2 Then If Not .Characters.Last.Previous Like "[.!?:;]" Then Select Case .Words.Last.Previous.Words(1) Case "and", "but", "or" 'do nothing Case Else .Characters.Last.InsertBefore ";" End Select End If End If End With Next 'Application.ScreenUpdating = True End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
Thread Tools | |
Display Modes | |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Ulodesk | Drawing and Graphics | 3 | 01-28-2019 12:50 PM |
![]() |
Alsadius | Word | 4 | 11-27-2017 08:46 AM |
![]() |
c991257 | Project | 11 | 05-11-2016 04:13 AM |
aligning colon | JRaul | Word | 4 | 07-07-2012 06:06 AM |
Semi-flexible templates (couple of questions) | mshanks | Word | 1 | 07-29-2009 06:35 AM |