|
|||
|
|
|
| Home |
| Over |
| Hobby's |
| Software |
| Hardware |
| ICT Hotlist |
| Doel |
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 Thema
Terug naar de ICT-Hotlist...
Mis de laatste updates niet. 
@WebHallaSwitch Documents
Werkt U met veel geopende Microsoft® Word documenten? Deze macro kan gebruikt worden om snel tussen documenten te wisselen. Daarnaast toont deze macro tevens de documentnaam in de status balk.Getest met MS-Word 2000, 2003 en in het lint van 2010. Schijnbaar was het een goed idee want deze functionaliteit is nu standaard in Office 2013 ingebouwd.
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
U mag stemmen over dit artikel:
Scripts en programmeervoorbeelden disclaimer
Tenzij anders vermeld, zijn de scriptcode en programmeervoorbeelden auteursrechtelijk beschermde (copyright) freeware. U mag deze wijzigen, zolang een verwijzing naar de oorspronkelijke code en een hyperlink naar de bronpagina is opgenomen in de gewijzigde code en documentatie. Het is echter niet toegestaan om (kopieën van) de scripts en programmeervoorbeelden te publiceren op uw eigen site, blog, vlog, of te distribueren op papier of een andere drager, zonder voorafgaande schriftelijke toestemming.Bij veel van de technieken gebruikt in deze scripts, met inbegrip van maar niet beperkt tot register-wijzigen of wijzigingen aan systeembestanden of instellingen, bestaat een risico dat een werkend besturingssysteem onbruikbaar wordt en gegevens verloren kunnen raken. Zorg ervoor dat U gecontroleerd heeft dat U beschikt over volledige back-ups en de bijbehorende herstelsoftware voordat U deze scripts of programmavoorbeelden gebruikt. Het gebruik van deze scripts en programmeervoorbeelden is volledig Uw eigen risico. Alle aansprakelijkheidsclaims tegen de auteur met betrekking tot materiële of niet-materiële verliezen als gevolg van het gebruik, misbruik of niet-gebruik van de verstrekte informatie of het gebruik van onjuiste of onvolledige informatie, zijn uitgesloten. Alle inhoud is onderhevig aan verandering en geleverd zonder verplichting.
