Notepad to Word : Pasting Specific text ie between any two blank line from notepad to word

[SMehta]

Andrew Sir,
The below code was just Fantastic.

Sub GetUsedParas()
  Dim sList As String, i As Long, sText As String
  For i = 1 To ActiveDocument.Paragraphs.Count
    sText = Trim(ActiveDocument.Paragraphs(i).Range.Text)
    'Debug.Print Len(sText)
    If Split(sText, vbCr)(0) = "" Then
      sList = sList & "," & i
    End If
  Next i
  MsgBox Mid(sList, 2), vbInformation + vbOKOnly, "Empty Paragraphs List"
End Sub

Thank you so much for the same.

Now coming back to Paul's Sir remark on his post #12

For your Sample2.txt file, what are the rules for which blocks from get copied and what are the rules for where those blocks get inserted into your Sample.txt file?

Will it be possible for the Paragraph with Data from Sample2.txt to get inserted in any one Empty paragraph position. if yes how. Suppose i select paragrpah 3 with data of Sample2.txt below and insert at one of the Empty Para position lets Say 6 of Sample.txt. It should display as below

3
"VP521X"
"SUR II* 4/0 36"" BLUE V-20 D/A"
36
8318.98
Jim takes the map to Squire Trelawney and Doctor Livesey who realise that it shows where Captain Flint, an evil and heartless pirate, has buried his stolen treasure. The Squire and the Doctor decide to go and find the treasure and invite Jim to come along. The Squire then buys a ship called the 'Hispaniola' and hires a crew led by the respected Captain Smollet. The ship's cook is a one legged man called Long John Silver whom everyone admires.

SMehta


Thread 1: No: 46342 : Post No24 : TM 14