Word-VBA that combines 2 sentences that have references

[rawad]

HELLO. I have a word doc that has sentences with references. It looks like this:

Se1c1 The boy went
Se1c2 to school.
Se1c3 Then he saw a rabbit.
Se2c1 he ran after it
Se2c2 but he couldn’t catch it

-The reference Se1c3 stands for: section Se, chapter 1, sentence 3


The target is to copy to clipboard several sentences that has this structure:

Se1c1-3 The boy went to school. Then he saw a rabbit.


THE QUESTION IS: Can someone suggest a vba code that when it runs, it copies to clipboard the sentences that i have selected, But with the target structure? (only to copy, not to replace)


Notes

-I use word 2016
-I will only select consecutive sentences before running the macro.
-In the word document, every sentence is written as a paragraph.
-In the reference (Se1c1), the Section Letters (Se) may be formed from 2 or 3 letters like: Neg1c1 (3 letters)


THANKS A LOT :)

[macropod]

Cross-posted at: https://stackoverflow.com/questions/61545321/is-there-a-vba-code-that-combines-2-references
Please read VBA Express' policy on Cross-Posting in Rule 3: http://www.vbaexpress.com/forum/faq.php?faq=new_faq_item#faq_new_faq_item3

[rawad]

My post on the other site was unclear and unsuccessful. I deleted it to post again, but i couldn't post again immediately. So i posted here.
But I like that policy that teaches people not to be selfish. Wise is the one who learns this.

[gmayor]

Based on your examples the following should work


Sub Macro1()
'Graham Mayor - https://www.gmayor.com - Last updated - 03 May 2020
Dim iStart As Integer, iEnd As Integer
Dim iSec As Integer, i As Integer, x As Integer
Dim sTest As String, sResult As String
Dim dResult As DataObject
Dim sSection As String
Dim oPara As Paragraph
Dim oRng As Range, oSec As Range
sTest = InputBox("Enter section number", "Section Number")
If IsNumeric(sTest) Then
iSec = CInt(sTest)
Else
Beep
MsgBox "Not a number"
Exit Sub
End If
sTest = InputBox("Enter start number", "Start Number")
If IsNumeric(sTest) Then
iStart = CInt(sTest)
Else
Beep
MsgBox "Not a number"
Exit Sub
End If
sTest = InputBox("Enter end number", "End Number")
If IsNumeric(sTest) Then
iEnd = CInt(sTest)
Else
Beep
MsgBox "Not a number"
Exit Sub
End If
sResult = "": sSection = ""
For i = 1 To Selection.Paragraphs.Count
Set oRng = Selection.Paragraphs(i).Range
oRng.MoveStartUntil "0123456789"
x = Len(CStr(iSec)) + Len(CStr(iStart)) + Len(CStr(iEnd)) + 1
oRng.MoveEndWhile "0123456789"
If Val(oRng.Text) = iSec Then
If sSection = "" Then
Set oSec = oRng.Paragraphs(1).Range
oSec.Collapse 1
oSec.MoveEndUntil "0123456789"
oSec.End = oSec.End + 1 + Len(CStr(iSec))
sSection = oSec.Text
End If
oRng.End = oRng.Paragraphs(1).Range.End - 1
oRng.Start = oRng.Start + x
sResult = sResult & oRng.Text & Chr(32)
End If
Next i
sResult = sSection & CStr(iStart) & "-" & CStr(iEnd) & Chr(32) & sResult
Set dResult = New DataObject
dResult.SetText sResult
dResult.PutInClipboard

MsgBox sResult & vbCr & vbCr & "Copied to clipboard"
lbl_Exit:
Set oRng = Nothing
Set oSec = Nothing
Set dResult = Nothing
Exit Sub
End Sub

[rawad]

Yes it worked! Thank you very much!! :)

But i faced a couple of problems:

The first one: in the case below, some letters from the sentence copied are disappearing.
Se1c10 The boy went (2 digit number after the c)
Se1c11 to school.
Se1c12 Then he saw a rabbit.
The sentence copied to clipboard is: Se1c11-13 he boy went o school. en he saw a rabbit.

The second one is the input-boxes. Can we Not to use them? (in this case it will be done automatically because the macro will be run a lot.)


-----

Sorry :think: , but I have another question: Is it possible to add another part to the macro where it will do the same thing but for nonconsecutive sentences?(If the selected is consecutive, it will run the first part, if not it will run The new Part)
for example:

Se1c10 The boy went
Se1c11 to school.
Se1c12 Then he saw a rabbit.

If i select sentence 1 and 3 (holding Ctrl), the result will be:
Se1c10&12 The boy went Then he saw a rabbit.

Thank you again!!!