ICT-Hotlist Thema

Sub SwitchDocuments()
'******************************************************************************
'* Word macro to switch between multiple open documents, the document name is
'* shown in the statusbar.
'*
'* Installation:
'*     1 Copy the macro text to a file "SwitchDocuments.bas" and remember the
'*         saved file location.
'*     2 Start Word and open the Microsoft Visual Basic editor
'*     3 Select File | Import File | select your file "SwitchDocuments.bas"
'*     4 Close the Visual Basic Editor
'*     5 Create a button on a toolbar that points to the macro
'*         "SwitchDocuments".
'*
'* Copyright 2000 - 2022 Johan van Soest http://www.vansoest.it
'******************************************************************************
Dim DocumentNumber
Dim NumberDocuments

  DocumentNumber = WordBasic.Window() + 1
  NumberDocuments = WordBasic.CountWindows()
   If (NumberDocuments >= DocumentNumber) Then
    WordBasic.WindowList DocumentNumber
   Else
    WordBasic.WindowList 1
   End If
  WordBasic.PrintStatusBar "Current Document : " + WordBasic.[WindowName$](WordBasic.Window())
End Sub