![]() |
|
#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] |
|
|
Similar Threads
|
||||
| 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 |
Command line syntax for 2010
|
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 |