![]() |
|
#1
|
||||
|
||||
![]() Code:
Sub Demo() Selection.InsertAfter Right(Split(ActiveDocument.Name, ".doc")(0), 6) End Sub ![]() ![]() ![]()
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Anto_bt | Word | 4 | 11-05-2015 10:21 PM |
Using Quick Parts >> Ref >> Field (Third word changing font) | sonny49 | Word | 1 | 01-07-2014 10:01 AM |
![]() |
EGoetz | Word VBA | 2 | 12-05-2013 09:09 PM |
![]() |
TMinnich | Word | 2 | 10-25-2013 09:38 AM |
Word 2007 Quick Parts | kateVanG | Word | 2 | 04-15-2009 07:04 PM |