Word 2010 Web Toolbar

Is there anything in Office 2010 that replaced the Web Toolbar, where you could find the full path and filename.

We are just moving to Office 2010 and have had many requests for the path and filename that can be copied to use for hyperlinks. Our documents could be local, on the WAN or on SharePoint.

We know that in most of the Office products we can insert the path and filename fields, but not all types of documents will have the path and filename in the document. Is there anyother way to easily get the information so it can be copied to use in another application?

I think you are the first person I've heard of actually using the web toolbar! There are whole pages written about how to get rid of it. However, you point out one function for which there isn't a ready substitute.

Inserting a field with the information you need and then converting that field to text will let you copy the filename and path anywhere you want.

You can type "FileName \p" in a document and select it (no quotation marks), press Ctrl F9 to make it into a field and then F9 to activate it. You can then select this and make it a building block. When you use it in a document, selecting it and pressing Ctrl-6 will give you text of the filename and path.

That code runs for me in PowerPoint, but there is a problem. Because it looks at the web toolbar in the context of the overall application, it doesn't necessarily returns the path to the active file, but instead the last opened or, if later, the file last edited (even if not saved). This inconsistency is troubling; I can't really trust the results.

Something along the following lines hopefully is more useful:

PowerPoint:

Code:

Sub ShowPathAndName()
Dim strTemp As String
strTemp = InputBox("This is the FullName of the ActivePresentation", "Excavated!", ActivePresentation.FullName)
End Sub

While Excel seems to handle the original function consistently, I think this is safer:

Excel:

Code:

Sub ShowPathAndName()
Dim strTemp As String
strTemp = InputBox("This is the FullName of the ActiveWorkbook", "Excavated!", ActiveWorkbook.FullName)
End Sub

And finally for Word, why not, for the sake of consistency:

Word:

Code:

Sub ShowPathAndName()
Dim strTemp As String
strTemp = InputBox("This is the FullName of the ActiveDocument", "Excavated!", ActiveDocument.FullName)
End Sub

bjg1, does that work for your documents (I don't have SharePoint to test)?