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

macropod · #1 01-23-2021, 04:51 AM

Since you haven't answered the questions I asked in my previous post, I don't propose to waste any more time on this.

SMehta · #2 01-24-2021, 02:24 AM

Quote:

Since you haven't answered the questions I asked in my previous post, I don't propose to waste any more time on this.

Sir, A sincere apology.

Quote:

It's still not clear what the rules are for what gets pasted where. Your Sample.txt file has 7 paragraphs, whilst your Sample2.txt file has 15 groups of 5 paragraphs.

Sir, Was aiming at Flexibility of copying data between Each blank line after the available list of blank line nos of any Opened defined path text file.
The above Two text files were attached to show the different structure of text file where there are empty lines
Regardless as there are 7 paragraph in Sample.txt and 15 paras in Sample2.txt. Any paragrah or group of any Selected non empty lines in txt file ie after geting the avaialble list of Blank lines should be copied on Plain word Document
one after another (As per the desired selection of Available Blank line Nos).

Rule.1 : Getting list of Empty Blank Line Nos of a Text Files
in Sample.txt file
I would like to get the List of following Blank lines nos
3 7 so data from line 4 to 6 are non-empty
7 10 so data from line 8 to 9 are non-empty
10 14 so data from line 11 to 13 are non-empty
14 17 so data from line 15 to 16 are non-empty
17 20 so data from line 18 to 19 are non-empty
20 23 so data from line 21 to 22 are non-empty

if i select for eg for 1st time blank lines Textbox:FromBlank Line 10 and Textbox:To Blank Line14 then data from lines 11 to 13 get copied into New plain Word document at First line of doc
Then if i select blank lines Textbox:FromBlankLine20 Textbox:ToBlankLine 23 then data of non empty lines 21 to 22 to get copied after lines 11 to 13
Selection of Data should be on desired choice of Avaialble List of Blank line nos

Rule.2 : Presentation Structure
After each Selection which gets copied. i would like to have Empty line beween each copied data into new word doc

Quote:

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?

I never wanted to copy and insert the lines from Sample.txt to Sample2.txt or vice versa

Sir, Anything be Sequentially selected after geting the list of available blank line nos from (at present Defined Sample.Txt )any text files and get copied into plain doc.
Sir and your Demo version showed the First instance of data between the first and next empty line geting copied into new word doc and not on the basis of selecting on the available list of blank Lines which being copied into New Word Doc

SMehta
Thread 1: No: 46342 : Post No16 : TM 9

SMehta · #3 01-25-2021, 10:24 PM

Yet another link found
Check for empty or blank lines while reading a text file

I really don't know whether the code in above link, pasted below, is a VBA code. ???
if not then how can we use the same VBA word to get the list of Blank line numbers from text file

Would really appreciate your input and guidance.

Code:

Option Strict On
Option Explicit On
Option Infer Off

Imports System.IO.Path

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) _
                           Handles MyBase.Load

        Dim desktop As String = _
            Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

        Dim textFilePath As String = _
            Combine(desktop, "ExampleTextFile.txt")

        Dim blankLines() As Integer = GetBlankLines(textFilePath)

        Stop

    End Sub

    Private Function GetBlankLines(ByVal textFilePath As String) As Integer()

        Dim retVal() As Integer = New Integer() {}

        If Not String.IsNullOrWhiteSpace(textFilePath) Then
            If IO.File.Exists(textFilePath) Then
                Dim lineNumber As Integer = 1
                Dim tempList As New List(Of Integer)

                Using rdr As New System.IO.StreamReader(textFilePath)
                    Do While rdr.Peek() >= 0
                        Dim itm As String = rdr.ReadLine.Trim

                        If String.IsNullOrWhiteSpace(itm) Then
                            tempList.Add(lineNumber)
                        End If

                        lineNumber += 1
                    Loop
                End Using

                If tempList.Count > 0 Then
                    retVal = tempList.ToArray
                End If
            End If
        End If

        Return retVal

    End Function
End Class

SMehta
Thread 1: No: 46342 : Post No17 : TM 10

SMehta · #4 01-31-2021, 10:26 PM

Any other practical way with VBA coding to achieve what i want.

I am stuck badly.

SMehta
Thread 1: No: 46342 : Post No18 : TM 11

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