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

Guessed · #1 02-01-2021, 03:07 PM

To return the paragraph numbers for empty (or just spaces) paragraphs you could do a loop like this

Code:

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

You can team this up with Paul's code to open the document.

SMehta · #2 02-01-2021, 09:48 PM

Quote:

To return the paragraph numbers for empty (or just spaces) paragraphs you could do a loop like this

Code:

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

Sorry Sir, Msgbox displays only 1 and does not show other Empty Paragraph number when i ran your code although you looped.

I copied the data from Sample.Txt from Notepad to Word Document to check. Removed "Add Space after Paragraph", font is Calibri and size is 11 in word doc.

Will it be possible on which line or Empty Paragraph is positioned ?

So therefore Will i be able to get Following list of Empty Paragraph positioned at
4, 10, 15, 21, 26, 30, 34

SMehta
Thread 1: No: 46342 : Post No22 : TM 13

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need help to get data from notepad to word	ganesang	Word VBA	2	08-11-2019 10:21 PM
Word does not stop at the set tab, but it keeps forever on the same line like it would in Notepad.	danvina@gmail.com	Word	2	01-16-2019 02:33 PM
Microsoft notepad over word for saving important text files	Noclip1	Word	1	10-25-2017 10:55 PM
Copy text with tab at start of line and paste to Notepad	JohnTurnbull	Word	5	08-27-2017 11:17 PM
Sr. Citizen Question, Please: WORD Shows Blank, But Notepad Shows "Gibberish" ?	Robert11	Word	3	08-12-2013 12:35 PM