Not sure why it posted like that, code I tried should be:
Private Sub Document_New() Dim oSourceDoc As Document Dim oRng As Range Set oSourceDoc = Documents.Open("SourceDoc") oRng.Text = oSourceDoc.Bookmarks("bookmark").Range.Text Set oVars = ActiveDocument.Variables oVars("doc_variable").Value = "test" Set oVars = Nothing End Sub