VBA MS Word Question

[Thecodont]

I am not sure if this is out of scope for this fourm but I am a newbee having trouble with a function. I am trying to paste text from the clipboard into a new MS word doc, then save the file as a new file using the first line of text as the file name. I keep getting a error saying that my name is not valid. Here is the code I wrote..any thoughts?

Dim title As String
Dim newdoc As Word.Document
Word.Documents.Add
Selection.PasteAndFormat (wdFormatPlainText)
'select first line for name
    Dim lines As Range
    Set lines = ActiveDocument.Range( _
        Start:=ActiveDocument.Paragraphs(1).Range.Start, _
        End:=ActiveDocument.Paragraphs(1).Range.End)
    lines.Select
    lines.Copy
    title = lines
  
    ActiveDocument.SaveAs FileName:="D:\Documents and Settings\Doug.OFFICE\Desktop\" & title & ".doc"

 

[jaredbeasley]

I think the lines range may include the carriage return at the end of the line, which would be objectionable in a file name.

Dropping one character from the end of the range may work:

End:=ActiveDocument.Paragraphs(1).Range.End-1

Also, the following may be a little simpler for assigning the file name:

title = lines.Text

In lieu of:

lines.Select
lines.Copy
title = lines

 

[Thecodont]

Thanks

Thanks for the help! That solved the problem. . Now I an finding that if the first liine in the document to be cut and pasted is blank then i also get an error. I suspect there is a grab first line command in VBA so will take a look