A couple of minor quibbles:
> Sub ReadTextToTextFrame()
> 'load data to textframe of a shape
> ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text =
> GetText("C:\\test.txt")
Make that:
GetText("C:\test.txt")
One backslash instead of two
> End Sub
> 'http://www.exceluser.com/explore/questions/vba_textcols.htm
[quoted text clipped - 10 lines]
> Open sFile For Input As #nSourceFile
> sText = Input$(LOF(1), 1)
Just be aware that this will bite you if the text file is double-byte encoded
(ie, in Chinese/Japanese/Korean etc) or, I suspect, Unicode.
A routine that reads a line of input at a time and appends it to sText solves
that problem. In theory it's a bit slower. In practice, unless your files are
huge, there'll be no difference.
> Close
>
[quoted text clipped - 18 lines]
> > Thanks in advance,
> > Simon Keeling
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
vindys - 13 Mar 2008 17:35 GMT
Thanks Steve
> A couple of minor quibbles:
>
[quoted text clipped - 58 lines]
> PPTools: www.pptools.com
> ================================================