Calling OLE Experts - Insert Lines into RTF Document

[jkletrovets]

Hello All,

I am trying to use OLE to simply open a RTF document.....add 5 carriage returns and then save the document. The SourceChangeRTF.rtf document attached comes from another software package that I cannot change. What I am wanting to do is open the document (without viewing it)....put in 5 carriage returns to space everything in the RTF Document down 5 lines so that when I merge this document with another that contains the proper header information - all of the spacing will work out properly. What I don't understand is....if I open the RTF document attached and just hit enter 5 times - everything moves down as I want. But, if I seemingly do the same thing use OLE (see code below). The cursor starts in the table instead of the page and the 5 carraige returns entered in the OLE code just makes the first line of the table (blue header in attachments) space down - which is not what I want.

    Dim wordApp as P
    Dim wordDoc as P
    wordApp = ole.Create("Word.Application")
    wordApp.WindowState = 0 'wdWindowStateMaximize
    wordApp.Documents.Open("C:\SourceChangeRTF.rtf")
	wordApp.Selection.InsertBefore(chr(13)+chr(13)+chr(13)+chr(13)+chr(13))
    wordApp.ActiveDocument.SaveAs("C:\ResultChangeRTF.rtf",0) ' 0 is a Word Document ' 4 is a text file
    WordApp.Quit()
    delete wordDoc
    delete wordApp

Any help would be greatly appreciated.

Regards,

Jeff


Added Later:
I don't actually need to use OLE I guess, if this could somehow be done with Alpha's file/string functions...that would be cool too. I could not see a way to do that however.

[MikeC]

Re: Calling OLE Experts - Insert Lines into RTF Document

Jeff,
I believe Mike Wilson was doing something very similar in the past month or so....I will try and find the thread....Marcel Kollenaar has a few things on this subject as well I know.

Maybe this was it..there was another earlier that Stan Mathews had input as well.
http://msgboard.alphasoftware.com/al...=mike+Word+OLE

[jkletrovets]

Re: Calling OLE Experts - Insert Lines into RTF Document

Thanks Mike,

I'll look at that link in more depth. I guess I am befuddled because I can get the OLE to work just fine.....it just doesn't work like I think it should. :)

Jeff

[MikeC]

Re: Calling OLE Experts - Insert Lines into RTF Document

just doesn't work like I think it should

:D Darn things should do as we want and not what we tell it to do!

[jkletrovets]

Re: Calling OLE Experts - Insert Lines into RTF Document

I hear ya! Even more frustrating when it seems I am telling it to do the right thing (but maybe not in this case...I dunno enough about OLE to know I guess).

Reminds me of one of my favorite sayings:
"You don't know what you don't know."


:):)

[Davidk]

Re: Calling OLE Experts - Insert Lines into RTF Document

This seems to work... a bit of brute force, but...

This inserts a page break... puts in your lines, extends the selections to the top of the document and then cuts the page break... cool.

wordApp.Selection.insertbreak()
wordApp.Selection.insertafter(Chr(13)+Chr(13)+Chr(13)+Chr(13)+Chr(13))
wordApp.Selection.homekey(wdstory, wdextend)
wordapp.selection.cut()

[jkletrovets]

Re: Calling OLE Experts - Insert Lines into RTF Document

David,

What values are you using for wdstory and wdextend?

Thanks,

Jeff

[Davidk]

Re: Calling OLE Experts - Insert Lines into RTF Document

I was concerned about that because the examples I found in google searches didn't specify values, just variables... but they must be set and assigned in Word. I figured I'd just try them and it worked. Didn't think about it any more until your question.

This was only because Word had started and the global variables got assigned.

So, I started Word and then ran your code and pushed out a message box for wdStory and wdExtend... the values are 6 and 1


Just found this... it doesn't have everything, but it helps.

http://www.tomorrowssolutionsllc.com...atingWord.html

[jkletrovets]

Re: Calling OLE Experts - Insert Lines into RTF Document

Hmmm...not sure what's going on then. Alpha gives me a variable not defined error when I run the code with the lines your provided.

I'll do some more googling as well.

Thanks,

Jeff

[Davidk]

Re: Calling OLE Experts - Insert Lines into RTF Document

I was writing more and editing while you were reading... all there now.

[jkletrovets]

Re: Calling OLE Experts - Insert Lines into RTF Document

MANY THANKS David!!!!!

That is working a treat for me now. I apprecicate it.

That is a very good link you provided too it would appear. Lots of info.

Thanks again!

Jeff

[Ton Spies]

Re: Calling OLE Experts - Insert Lines into RTF Document

Hi Jeff,

Nice that you have fixed it. But can you please clarify a bit for us what you've done?
The 'what, how and why' is important for other interested members of this forum.

TIA

Ton

[Davidk]

Re: Calling OLE Experts - Insert Lines into RTF Document

Tom,

Using code, behaviour in a document is not alwasys the same as typing. So, I just tried a bunch of stuff until I found something that worked. In this case...

1. Open the document
2. Insert a page break
3. Put in the number of crlf that Jeff needed
4. Go to the top of the document (now all the blank space is selected)
5. Cut the selection.

The code is here in this thread. The variables for wdstory and wdextend are set when Word is open. So I opened Word and got the values for the variables by pushing out a message.

Jeff's code is all good. Just add my bit to where he has his crlf.

David

[jkletrovets]

Re: Calling OLE Experts - Insert Lines into RTF Document

Hi Ton,

Yep...just as David mentioned. I just used his code. To put it all in one place for ease of future reference. Here is the code I am using (thanks to David! :) )

	'Get pointers to initialize OLE	
	DIM wordApp as P
	DIM wordDoc as P
	wordApp = ole.Create("Word.Application")
	wordApp.visible = .F.
	wordApp.WindowState = 2 'wdWindowStateMinimize
	wordApp.Documents.Open("F:\YOURDIRECTORY\YOURFILENAME")

	'Now temporarily insert a page break so the the carriage returns below will work.
	wordApp.Selection.insertbreak()
	wordApp.Selection.insertafter(Chr(13)+Chr(13)+Chr(13)+Chr(13)+Chr(13))
	wordApp.Selection.homekey(6,1)
	wordapp.selection.cut()
	'Now save the document as with a new name so as to preserve the original
	wordApp.ActiveDocument.SaveAs("F:\YOURDIRECTORY\YOURNEWFILENAME,0) ' 0 is a Word Document ' 4 is a text file
	'Now just quit and clean up
	WordApp.Quit()
	DELETE wordDoc
	DELETE wordApp

[Ton Spies]

Re: Calling OLE Experts - Insert Lines into RTF Document

David and Jeff

Thank you both for your contribution to this great forum.


Ton