Copy content to new Word document

Im trying to put together a macro that copies the content of the active document as a new document. The name of the new document is liable to change and therefore gets the name from a text file.

Im having problems creating the new document in which to copy to as per my code so far;

<code>

Code:

Sub import()
Dim MyFileName As String 'This will be the name of the new document
Open "C:\Sol\test.txt" For Input As #1
Line Input #1, MyFileName
Do
While Not EOF(1)
Wend
Loop While EOF(1) = False
Close #1
Call Copy_Content(MyFileName)
End Sub
Sub Copy_Content(MyFileName As String)
Dim targDoc As Word.Document
'MsgBox MyFileName 'Used to test the variable was passed
ActiveDocument.Range.Copy
Set targDoc = Documents.Add("c:\sol\" & MyFileName & ".doc") 'Here Im trying to create a new document to paste to
targDoc.Range.PasteAndFormat wdPasteDefault
End Sub

<\code>

I would be grateful for any advice please.

Best Regards
Lee

Last edited by macropod; 2013-12-05 at 16:47.
Reason: Added the correct [code] tags