How Do I Remove Status Bar in Word 2010? I'm a Beginner! (1 Viewer)

[koolx]

I know nothing about VBA or programming. But, I want to remove the status bar from Word 2010 permanently and I dont want to see it everytime I open any doc. How do I do that? Can you please show me step by step?

...

 

[jfgambit]

Have a look at the following...

http://www.worthytips.com/12935/control-status-bar-information.html

 

[koolx]

Have a look at the following...

http://www.worthytips.com/12935/control-status-bar-information.html

That didnt answer my question. Your answer pertains to hiding items in the status bar. I want to remove the status bar itself. Again, how do I REMOVE the status bar from Word 2010?

...

 

[RayH]

Can be controlled via a macro.

Private Sub Document_Open()
CommandBars("Status Bar").Visible = False
End Sub

Alt-F11, then this in the Normal Project, ThisDocument

 

[koolx]

Can be controlled via a macro.

Private Sub Document_Open()
CommandBars("Status Bar").Visible = False
End Sub

Alt-F11, then this in the Normal Project, ThisDocument

RayH, thank u so much for that. One other thing. I got code to hide outlook 2010 when i click an online link to activate an appointment window and add an appointment. it works except that outlook itself pops up into view and i dont like that. all i want to see is the appointment window pop up, not outlook itself. is there a way to hide outlook itself in code when i activate an appointment window? heres the code i got from someone:

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Long
Dim WithEvents Insps As Inspectors

Private Sub Application_Startup()
Application.ActiveWindow.WindowState = olMinimized
Set Insps = Application.Inspectors
End Sub

Private Sub Insps_NewInspector(ByVal Inspector As Inspector)
If CtrlPressed Then Exit Sub
If TypeOf Inspector.CurrentItem Is AppointmentItem Then
End If
End Sub

Private Function CtrlPressed() As Boolean
'True wenn die Strg-Taste gedrückt wurde
Const VK_SHIFT = &H10 ' Shift Taste
Const VK_CONTROL = &H11 ' STRG Taste
Const VK_MENU = &H12 ' Alt Taste
CtrlPressed = GetAsyncKeyState(VK_CONTROL) <> 0
End Function

...

 

[RayH]

Its a little bit beyond me but have you tried:
Application.Visible = False

show the appointment form and do stuff

then show outlook again
Application.Visible = True

No idea whether this will work with you program though.

 

[jaychivo]

Can be controlled via a macro.

Private Sub Document_Open()
CommandBars("Status Bar").Visible = False
End Sub

Alt-F11, then this in the Normal Project, ThisDocument

IT Works, thanks.