After inserting a field move the end of the range to the end of the document then collapse the range e.g.
Code:
.Fields.Add Range:=MyRange, Type:=wdFieldIncludeText, Text:="""C:\\testdoc.docx"""
MyRange.End = ActiveDocument.Range.End
MyRange.Collapse wdCollapseEnd