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