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

SMehta · #1 01-16-2021, 12:06 AM

Hi
As this is my first post in this forum kindly excuse me for the mistakes while posting a question

There are many VBA forums where coding to count lines of text file and return/get Line number positions but was unable to find any coding for counting Nof of blank lines and its position

I would like to know the Empty Line numbers of text file so that whatever data is there in text file between 2 or more blank line can paste in to word
For eg if i know there are lines with data from Line 4 to 10 therefore Blank Lines in this file would be Line 3 and Line 11.

before the below input Any ideas how can i get List of Blank Line nos
Input shall be from userform textboxes From_Blank Line.Text To_BlankLine.Text
E.G so if i put value 3 in From_Blank Line.Text and 11 in To_BlankLine.Text the lines from text file from 4 to 10 could be pasted

Although it is Easy to Open Notepad and word together and paste the content. But i was searching for a code which will help me achieve to what i desried

1. Mehtod

Code:

Sub NotePad_to_word()
Dim sourceFile As Object
Dim myFilePath As String
Dim myFileText As String
Dim line As String

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim wrdSelection


myFilePath = "C:\Text-To-MsWord\Sample.txt"

    Set sourceFile = fso.OpenTextFile(myFilePath, ForReading)
    While Not sourceFile.AtEndOfStream 
        line = sourceFile.ReadLine

'''''How to get position of all Blank line nos
    Wend
    sourceFile.Close 

Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add

Set wrdSelection = wrdApp.Selection
    wrdSelection.TypeText      '''''  DataAfterFrom in this Eg from Line 4 to Line 10

wrdDoc.Close
    wrdApp.Quit
End sub

Your efforts in guiding me will be appreciated
Thanks
SMehta

thread 1 : Post 1

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