Opening a Word file stored as a Resource

Thanks. Actually I do want to modify the document, so I will need the reference to the Word library. I am having some success with the code below, but I can't manage to delete the temporary file at the end of the process - Word acts as if I'm opening it rather than just borrowing it as a template. How would I fix this?

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim b As Byte() = My.Resources.QUOTE
Dim TheFilePath As String = "C:\MyDocr.doc"
Dim TempFile As System.IO.FileStream

TempFile = IO.File.Create(TheFilePath)
TempFile.Write(b, 0, b.Length)
TempFile.Close()

Process.Start(TheFilePath)

Dim f As New Word.Application
Dim p As Word.Document = f.Documents.Add(TheFilePath) 'TheFilePath parameter is for a template, I'm not trying to open the file.

p.Range(0, 0).InsertAfter("ADDED!" & vbCrLf)
f.Visible = True
IO.File.Delete(TheFilePath) 'this fails, because "Locked For Editing"
End Sub

I still get the same error, even if I save p. Plus I don't really want to save p - I just want to present it to the user as an open document. It's up to him where/whether he saves it.

Well I think it's rather silly that a Word document can't "let go" of a template after it has been used to create that document. So I shall ignore the word document constructor that allows you to open a document with a template, and just open the template and copy it into a new document:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim b As Byte() = My.Resources.QUOTE
Dim TheFilePath As String = "C:\newder.doc"
Dim TempFile As System.IO.FileStream

If Not IO.File.Exists(TheFilePath) Then
TempFile = IO.File.Create(TheFilePath)
TempFile.Write(b, 0, b.Length)
TempFile.Close()
End If

Dim f As New Word.Application
With f
With .Documents.Open(TheFilePath)
.Content.Copy()
.Close()
End With

My.Application.DoEvents() 'make sure it's closed.

IO.File.Delete(TheFilePath)

With .Documents.Add

.Content.Paste()
My.Computer.Clipboard.Clear()

.Range(0, 0).InsertAfter("ADDED!" & vbCrLf)

End With
.Visible = True
End With

End Sub

Seems to work OK.