|
|||
|
|
|
| Home |
| About |
| Hobbies |
| Software |
| Hardware |
| ICT Hotlist |
| Purpose |
webhalla
There is an official #gdpr #adequacydecision for the #UnitedKingdom so we can keep transferring #PersonalData to the #UK and back because the #UK has deemed the security levels of #PD in the #EU as #adequate #Brexit #privacy Great job #EuropeanCommission https://t.co/U3zFSAHCJ9 https://t.co/exqwOfVgBB https://t.co/Qbe9yfpuXi
30 Jun 2021
#EDPS opens investigations following the “#Schrems II” Judgement regarding the use of cloud services provided by #Amazon Web Services #aws and #Microsoft and one regarding the use of Microsoft #Office365 by the European Commission #gdpr #privacy #cloudact https://t.co/BJP48W6WtV https://t.co/fJA1stx7oy
28 May 2021
Dutch #supervisoryAuthority first fine for a #Municipality. #Enschede city fined € 600.000 for #wifitracking visitors of shopping centre for toooooo long. @toezicht_AP #GDPR #privacy #fines https://t.co/CjCPwqgUpo https://t.co/vSkoTAkoVE
29 Apr 2021
#Belgian #DPA releases data ‘#sanitisation,’ #destruction recommendations Document helps #controllers, #processors, #information #security advisers, #DPO choose and integrate an appropriate sanitization technique to comply with #EU #GDPR @PrivacyPros https://t.co/4XcVe10amO https://t.co/ctr2h0TSRV
27 Apr 2021
#EuropeanCommission published proposals for the #regulation of #ArtificialIntelligence #AI Fines of up to 6% of global turnover, rules and prohibitions governing high-risk AI systems. How will it impact developers and utilizers of #AI-systems? https://t.co/1i75hPdJs8 #privacy https://t.co/KFnO21zMKL
23 Apr 2021
ICT-Hotlist Topic
Back to the ICT-Hotlist...
Don't miss latest updates 
@WebHallaSwitch Documents
Are you working with a lot of opened Microsoft® Word documents? This macro can be used to switch quickly between documents. In addition this macro shows the document name in the status bar.tested with MS-Word 2000, 2003 and the ribbon in office 2010. Seems to be a great idea as this functionality is now build into Office 2013.
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 - 2021 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
'******************************************************************************
'* 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 - 2021 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
You may vote your opinion about this article:
Scripts and programming examples disclaimer
Unless stated otherwise, the script sources and programming examples provided are copyrighted freeware. You may modify them, as long as a reference to the original code and hyperlink to the source page is included in the modified code and documentation. However, it is not allowed to publish (copies of) scripts and programming examples on your own site, blog, vlog, or distribute them on paper or any other medium, without prior written consent.Many of the techniques used in these scripts, including but not limited to modifying the registry or system files and settings, impose a risk of rendering the Operating System inoperable and loss of data. Make sure you have verified full backups and the associated restore software available before running any script or programming example. Use these scripts and programming examples entirely at your own risk. All liability claims against the author in relation to material or non-material losses caused by the use, misuse or non-use of the information provided, or the use of incorrect or incomplete information, are excluded. All content is subject to change and provided without obligation.
