Create one such document, then add a macro using a SaveAs loop to it, to save the 150 copies, using your list for the filenames. For example:
Code:
Sub ReplicateMe()
Dim i As Long, StrPath As String, ArrNames()
ArrNames = Array("Document 1", "Document 2", "Document 3", "Document 4", "Document 5", "Document 6", "Document 7")
With ActiveDocument
StrPath = .Path & "\"
For i = 0 To UBound(ArrNames)
.SaveAs2 FileName:=StrPath & ArrNames(i) & ".docx", Fileformat:=wdFormatXMLDocument, AddToRecentFiles:=False
Next
End With
End Sub