Hi Jamal,

Change:
.BuiltInDocumentProperties(wdPropertyBytes) / 1024 & "KB"
to:
Format(.BuiltInDocumentProperties(wdPropertyBytes) / 1024, "#,##0") & "KB"

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

I've tried the macro, per below, but my title bar in Word still doesn't display a path:

Option Explicit
__________________
Sub AutoOpen()
'Displays the Document Path in the Title Bar
ActiveWindow.Caption = ActiveDocument.FullName
End Sub

I'm a total newbie to VB, so please bear with me. My Project Explorer window shows:

Normal
Microsoft Word Objects
ThisDocument
Modules
AutoNew

If I "View Code" for ThisDocument and AutoNew they show the same code, but in ThisDocument the Option Explicit line is not there.

Do I have the code in the wrong place?

Hi wardw,

The code has originally created by Paul and it works very well.

Please, have a look on the attached screenshot. Note that you need to click on the icon on the quick access bar to have the path typed on the title bar

Best

Jamal

Attached Images

Clip_401.jpg (89.9 KB, 20 views)

__________________
Jamal NUMAN, Jamal432@gmail.com, P.O.BoX: 731, Ramallah, West Bank.

Thanks, Jamal; I'm using the code you specified, and it's AutoOpen, all right, but the only way I can make it work is by having the VB editor open while the Word document is open, and then running the macro from within VB.

If I just pick another document from Word and open it, a VB error message appears: "Object variable or With block variable not set". When I click OK the document doesn't have its path in the title bar.

Ooooops. All works fine now. I hadn't put an icon on the quick access bar. I've done that, and it's working now. Thanks so much for your help, Jamal.

Happy to hear that all worked fine. Indeed, the code was fully developed by Paul. i send him my regards

best

Jamal

__________________
Jamal NUMAN, Jamal432@gmail.com, P.O.BoX: 731, Ramallah, West Bank.

Hi,

In inserted the following into my normal template:

Sub AutoOpen()
'Displays the Document Path in the Title Bar
ActiveWindow.Caption = ActiveDocument.FullName
End Sub

I am receiving an error message, which is attached. What else should I add? Thanks.

Attached Images

Runtime error.PNG (13.3 KB, 19 views)

You might try opening a document. You could also add:
On Error Resume Next
as the macro's first executable line.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thanks Paul. Inserting "On Error Resume Next" on the first line solved the problem :-)

I tried the same code below in my Word 2016 and it works fine with no issues.

------
Sub AutoOpen()
'Displays the Document Path in the Title Bar
ActiveWindow.Caption = ActiveDocument.FullName
End Sub
-------------

Attached Images

Clip_354.jpg (196.2 KB, 13 views)

__________________
Jamal NUMAN, Jamal432@gmail.com, P.O.BoX: 731, Ramallah, West Bank.