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

Guessed · #23 02-01-2021, 10:24 PM

Yes, for some reason, the imported paragraph marks are coming up as double characters (probably a vbCrLf rather than a vbCr).

I've altered the code so it deals with that

Code:

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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