![]() |
|
#4
|
||||
|
||||
|
Try something along the lines of:
Code:
Sub Demo() Selection.Paste With Application.Dialogs(wdDialogFileSaveAs) .Name = "just some dummy text for testin1.docx" If .Show = -1 Then ActiveDocument.Saved = True End With ActiveDocument.Close , False Documents.Add DocumentType:=wdNewBlankDocument End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Saving as ( PowerPoint Macro-Enabled Slide Show )??
|
delete123 | PowerPoint | 2 | 04-10-2013 05:38 AM |
A macro that can insert FILENAME, sendkeys CTRL ALT T, paste clipboard, and nextline
|
kyjac85 | Word VBA | 13 | 09-20-2012 05:00 PM |
Problem saving in Word 2007 a dotm Addin developed in Word 2010
|
RichardP | Word VBA | 6 | 04-26-2012 04:22 AM |
| Macro for automatically adding filename without .doc | RPM7 | Word VBA | 0 | 04-29-2010 01:43 AM |
| Word: The document 'Filename' caused a serious error the last time ... | martincruise | Word | 0 | 02-25-2010 01:47 AM |