![]() |
#2
|
||||
|
||||
![]()
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Deleting Unintended Solid Line in .docx | jwoodbury | Word | 5 | 05-04-2018 07:06 PM |
From the command line, how do I run a Word macro? | jdockstader | Word | 7 | 02-04-2013 06:09 AM |
![]() |
asearle | Word | 1 | 08-07-2012 05:42 AM |
Command Line Argument | xJediDadx | Outlook | 1 | 02-21-2011 03:47 PM |
Command Line Switches | Ringmaster | Office | 0 | 08-10-2010 06:27 AM |