In the spirit of April Fool and Easter it is kind of late and too early at the same time..
Considering Bank Indonesia's liking of Microsoft's products I can only imagine that there are many more "Easter Eggs" like these two waiting to be "found"
To those who are adventurous enough.. happy hunting. This also goes for you webmaster :) And boy that cert is old.
This Visual Basic macro is intended to combine and merge multiple RTF files without losing the formatting. Basically it will create a new file, and inserts each RTF file as an object so it maintains the formatting of each file instead of inserting text from the files. This is basically what one would want if the RTF files are scanned results of an OCR system.
To use this macro do the following,
- Select Developer tab in the Word 2007 ribbon, and if the Developer tab is not available follow these instructions from Microsoft Office Website, before proceeding to the next step
- Click on Macros
- On the Macro name: text field in Macros Dialog Box, type in your macro name, e.g. MergeRtf
- Click Create
- Copy and paste the following on the blinking cursor position, just before End Sub line
Documents.Add ' may delete this line if you want the rtf files to be added on the currently active file
ChDir "C:\myFiles" ' change myFiles to the directory of the source rtf files
myName = Dir("*.rtf") ' may change rtf to doc or txt
While myName <> ""
.InlineShapes.AddOLEObject, FileName:=myName, LinkToFile:=False, DisplayAsIcon:=False
myName = Dir()
- Click on Save, or Press CTRL + S
- Click on Run Sub/Userform, or Press F5
- Depending on the amount of processing power of your CPU and the amount of file merged it will take several seconds to minutes, and you're done.
- Press ALT + Q to Close and Return to Microsoft Word
That's it. Enjoy.