#16
|
||||
|
||||
Yacov
Is the intention that the macro needs to work out whether the paragraph has either a - or a + and then duplicates and flips that character? Is the - paragraph to always be the first paragraph or do you want to add either option below the original paragraph?
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#17
|
|||
|
|||
Most of the paragraphs that lack a partner are marked - and I have to copy and change the sign to +. But I also have several hundred paragraphs with a + that I need to copy and turn into a - sign.
It doesn't matter who is up or down - or +. The main thing is that the two paragraphs should be together without another paragraph between them. thanks. |
#18
|
||||
|
||||
I think it is useful to maintain some consistency so I've coded this to always do the partner paragraph so that it is minus then plus. This variation will look to see whether the paragraph contains a minus OR a plus and acts accordingly
Code:
Sub DupParaTwoWay() Dim aRngPara As Range, aRng As Range, iEqual As Integer, iPlus As Integer, iMinus As Integer Set aRngPara = Selection.Paragraphs(1).Range iEqual = InStr(aRngPara.Text, "=") iPlus = InStr(aRngPara.Text, "+") iMinus = InStr(aRngPara.Text, "-") If iEqual > 0 Then Set aRng = ActiveDocument.Range(aRngPara.Start, aRngPara.Start + iEqual) If iPlus > 0 Then aRngPara.InsertParagraphBefore aRngPara.Collapse Direction:=wdCollapseStart aRngPara.FormattedText = aRng.FormattedText If Len(aRngPara.Paragraphs(1).Range.Text) = 1 Then aRngPara.Paragraphs(1).Range.Delete aRngPara.Characters(iPlus).Text = "-" ElseIf iMinus > 0 Then aRngPara.InsertParagraphAfter aRngPara.Collapse Direction:=wdCollapseEnd aRngPara.MoveEnd Unit:=wdCharacter, Count:=-1 aRngPara.FormattedText = aRng.FormattedText aRngPara.Characters(iMinus).Text = "+" End If aRngPara.Select End If End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#19
|
|||
|
|||
thanks a lot. work very good
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Select until last row | Marcia | Excel Programming | 4 | 08-12-2022 03:54 PM |
Select entire text and then de-select certain Headings? | tq94 | Word | 3 | 02-26-2022 03:47 AM |
Select text between 2 | yacov | Word VBA | 2 | 08-15-2021 10:16 PM |
Select a row in a different tab | cosmicyes | Excel Programming | 1 | 07-09-2018 02:47 AM |
How to select row | aymanharake | Excel Programming | 3 | 02-18-2017 04:09 PM |