Thread: [Solved] Word - quick parts (only 6 last characters from FileName)
View Single Post
 
Old 03-21-2016, 04:53 PM
macropod's Avatar
macropod macropod is online now Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,381
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Quote:
Originally Posted by Charles Kenyon View Post
Even using vba, this would not be a trivial thing.
Code:
Sub Demo()
Selection.InsertAfter Right(Split(ActiveDocument.Name, ".doc")(0), 6)
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote