You might have more responses if you posted this in the MS Word forum, instead of the Ribbon forum
More Word guys hang on there
But try something like this
Option Explicit Sub demo() Dim sDoc As String, sXls As String Dim i As Long sDoc = ActiveDocument.FullName i = InStrRev(sDoc, ".") sXls = Left(sDoc, i) & "xls" MsgBox sDoc MsgBox sXls End Sub
---------------------------------------------------------------------------------------------------------------------
Paul
Remember: Tell us WHAT you want to do, not HOW you think you want to do it
1. Use [CODE] ....[/CODE ] Tags for readability
[CODE]PasteYourCodeHere[/CODE ] -- (or paste your code, select it, click [#] button)
2. Upload an example
Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) / Upload Files / Done
3. Mark the thread as [Solved] when you have an answer
Thread Tools (on the top right corner, above the first message)
4. Read the Forum FAQ, especially the part about cross-posting in other forums
http://www.vbaexpress.com/forum/faq...._new_faq_item3
Posting Permissions
