POPUP CALENDAR for Microsoft Word

What's new   Download   Home 

This utility generates a special popup calendar in Microsoft® Word to pick and count dates, may insert dates and date ranges (Date Picker) in Word. It is programmed in Microsoft Visual Basic® for Application (VBA) and optionally available as COM Add-in (dll), EXE Add-in (dot/exe), or Word Add-in (dot), may be useful for Word interface user and VBA programmers. See the pictures below.

It consists basically of only one file (WordCalendar.dll, WordCalendar.exe, or WordCalendar.dot) that can be installed automatically using one of the installer package files available below to download. Except for the DLL, if you choose COM Add-in, no other setting is saved in the  Microsoft Windows® Register. Its setting is saved in WordCalendar.ini, WordCalendarHotKey.dot, and WordCalendarLoadExe.dot files that are created and maintained by the proper utility. You also can uninstall it automatically, leaving no mess on your Windows Register or disc.

Following items in this page:

Features

Download

Add-in Options to Install

Pictures

fCalendar() Function

Features:

- Pops up in small size

- Pops up close to the mouse cursor or optionally at the last saved position

- Can pop up in two formats: normal and compact. In the normal format, days are picked from a traditional calendar map, while months and years are picked from combo boxes or by increasing/decreasing them through strategic arrow controls. In the compact format, days, months, and years are picked from special informative combo boxes

- Allows to increase and decrease days, weeks, months, and years one by one through buttons or by inserting amounts directly in textboxes

- Period count: days, weeks, months and years from a reference date

- Count reference date always can start set with Today’s Date, or Same Start Display Date, or Last Set Reference Date, but it also can be set on the fly by right-clicking the interface day controls

- Interface controls to go to today’s date and back start date

- Inserts without breaking the current thread of Word ‘Undo’ command and any insertion can be normally undone by itself

- Can be called by the mouse right button (Context menu), or by a button in the Word Standard toolbar (2007, 2010, or 2013 Ribbon Add-ins tab), or by a keyboard shortcut key set by the proper user (hotkey)

- Output can be a variant (date) (computer-readable/unformatted date) or one of these 25 string formats (human-readable/formatted date): Short Win (defined by Windows Control Panel); dd/mm/yyyy (23/08/2007); dd/mm/yy (23/08/07); mm/dd/yyyy (08/23/2007); mm/dd/yy (08/23/07); dd.mm.yyyy (23.08.2007); dd.mm.yy (23.08.07); mm.dd.yyyy (08.23.2007); mm.dd.yy (08.23.07); yyyy.mm.dd (2007.08.23); yyyymmdd (20070823); mmm-yy (Aug-07); Long Win (defined by Windows Control Panel); Long 1 (August 07); Long 2 (23-Aug-07); Long 3 (23 August 07); Long 4 (23 August, 2007); Long 5 (Thursday, 23 August, 2007); Long 6 (twenty-third day of August, 2007); Long 7 (twenty-three day of August, 2007); Long 8 (twenty-three day of August month of two thousand seven year); Range 1 (234 days from 1/1/2007 to 8/23/2007); Range 2 (7 months and 22 days from 1/1/2007 to 8/23/2007); Range 3 (7 months and 22 days from 1/1/2007 to 8/23/2007); and Range 4 (33 weeks and 3 days from 1/1/2007 to 8/23/2007)

- Output formats are listed in a sensitive menu according to current display date with immediate insertion and default output format redefinition to the next new instance

- Can handle dates from 01/01/0100 AC to 12/31/9999

- Supports multiple instances within a single instance of Word with independent controls, settings, counting, and results. In practice quantities, there is no limit to the number of simultaneous instances

- Count reference date controls in all open instances or some of them can be attached to set simultaneously

- Attached controls are distinguished by asterisks in the caption

- The feature of multiple instances can be disabled

- The display size can be adjusted through the borders to increase the font size from 8pt to until 32pt or decrease to until 4pt

- Can copy the date on display to Windows Clipboard. Tip! When inserting with Shift key pressed, the output is sent to Windows Clipboard instead

- Can paste on display existent date on Windows Clipboard

- Accepts the following hotkeys that make it possible to pick dates only using the keyboard, sometimes only two or three keystrokes:

- Popup calendar: Any hotkey defined by user
- Day forward: Right arrow
- Day backward: Left arrow
- Week forward: Down arrow
- Week backward: Up arrow
- Month forward: Page Down
- Month backward: Page Up
- Year forward: Ctrl + Page Down
- Year backward: Ctrl + Page Up
- Go Today’s date: T
- Go back Start date: S
- Insert and close: Enter
- Close: ESC
- Paste from Windows Clipboard: Ctrl + V or V
- Copy to Windows Clipboard: Ctrl + C or C (Tip! When inserting with Shift key pressed, the output is sent to Windows Clipboard instead)

- The skin can be set up in: color and background picture, display and controls transparency, and hiding classic title bar

- The last opened setting or the last closed instance setting will be used as default in the next new instance

- Has menu commands to restore all default settings

- The year-week number of a day is shown as a tip when mouseover the day control

- All instances running can be closed with a single click by selecting the Close All command in the menu

- Can be called directly from any VBA code through the fCalendar() function. See, soon below the pictures, a detail description of this function and examples of the VBA applications that use it

- Modal or Modeless

- Sound

- Occupies about 760 Kb when installed

Download:

Tested in Word for Windows, versions 2000, 2002(XP), 2003, 2007, 2010 (32 and 64-bit), 2013 (32 and 64-bit), 2016 (32 and 64-bit), and 2019 (32 and 64-bit) in MSI-based and Click-To-Run installations of Office 365™ cloud-based services.

See also for Microsoft Access®, for Microsoft Excel®, and for Microsoft PowerPoint®.

Add-in Options to Install:

This utility can be available to be installed in three options of add-ins: EXE Add-in, COM Add-in, or Word Add-in. COM Add-in and Word Add-in run on Windows in the same process or memory space of Word and are well detailed technologies in Word documentation and good books about VBA, while EXE Add-in is a special name here for a mix of those two technologies where the same VBA code is run in separate EXE process and a small Word Add-in makes the connection between the two processes. Despite the differences in the technologies, this utility is fully functional in any of them. So, what can decide on your choice to install are the features below compared:

¹Temporarily unavailable.

Pictures:

fCalendar() Function:

The calendar can be called directly from any VBA code through the fCalendar() function that has these 7 optional arguments:

1 - IniDate (Date, Default=Today)

2 - RetDateAsDate (Boolean, Default=True)

3 - WaitAndRetValue (Long 0 to 2, Default=2). Where:
     0 - Not return value, not asynchronous, and modeless
     1 - Return value, asynchronous, and modeless
     2 - Return value, asynchronous, and modal

4 - FontDisplaySize (Long 4 to 32, Default=8)

5 - CompactMode (Boolean, Default=False)

6 - LeftPos (String, Default="0")

7 - TopPos (String, Default="0"). Where LeftPos and TopPos are the distances in points (1/72 inches) from the center right side of the calendar to the current mouse position. If the values are preceded by $ (dollar sign), LeftPos and TopPos turn to be the distances from left top corner of the calendar to the left top fix corner of the screen. And yet, if there is only the $ without number, will be used the current default position.

Examples if install as COM Add-in:

The COM Add-in makes available an object to the VBA project by which the function is called in this format:

ObjToVBA.fCalendar(IniDate, RetDateAsDate, WaitAndRetValue, FontDisplaySize, CompactMode, LeftPos, TopPos)

See the codes of three examples:

'1 - The code below calls the calendar in modal to return date as
'    variant (Date) to a userform.
Sub YourSub1()
    Dim ObjToVBA As Object
    Set ObjToVBA = _
    Application.COMAddIns("AddInWdCalendar.WordDesigner").Object
    fRet = ObjToVBA.fCalendar(IniDate)
End Sub

'2 - The code below calls the calendar in modeless to return date in
'    any of the output formats like in the right click command.
Sub YourSub2()
    Dim ObjToVBA As Object
    Set ObjToVBA = _
    Application.COMAddIns("AddInWdCalendar.WordDesigner").Object
    Call ObjToVBA.fCalendar(IniDate, False, 0)
End Sub

'3 - Idem to capture and return date to active selection.
Sub YourSub3()
    Dim ObjToVBA As Object
    Set ObjToVBA = _
    Application.COMAddIns("AddInWdCalendar.WordDesigner").Object
    Call ObjToVBA.fCalendar
End Sub

Examples if install as EXE add-in:

The EXE add-in doesn’t make available objects to the VBA project and the function is called and returns through the Office CommandBars object. A string composed with the function name and arguments separated by semicolons is passed through the Parameter property of the utility command button created in Word menu in this format:

CmdBarCtrl.Parameter = "fCalendar;" & IniDate & ";" & RetDateAsDate & ";" & WaitAndRetValue & ";" & FontDisplaySize & ";" & CompactMode & ";" & LeftPos & ";" & TopPos

See the codes of the same three examples:

'1 - The code below calls the calendar in modal to return date as
'    variant (Date) to a userform.
Sub YourSub1()
    Dim CmdBarCtrl As CommandBarButton
    Dim bNormSvd As Boolean
    Const AddInTitle As String = "Orlando's " & "WordCalendar"
    Set CmdBarCtrl = Application.CommandBars.FindControl(Tag:=AddInTitle)
    bNormSvd = Application.NormalTemplate.Saved
    CmdBarCtrl.Parameter = "fCalendar;" & IniDate
    Application.NormalTemplate.Saved = bNormSvd
    CmdBarCtrl.Execute
    fRet = CmdBarCtrl.Parameter
    If fRet = "" Or fRet Like "False" Then fRet = False
    bNormSvd = Application.NormalTemplate.Saved
    CmdBarCtrl.Parameter = ""
    Application.NormalTemplate.Saved = bNormSvd
End Sub

'2 - The code below calls the calendar in modeless to return date in
'    any of the output formats like in the right click command.
Sub YourSub2()
    Dim CmdBarCtrl As CommandBarButton
    Dim bNormSvd As Boolean
    Const AddInTitle As String = "Orlando's " & "WordCalendar"
    Set CmdBarCtrl = Application.CommandBars.FindControl(Tag:=AddInTitle)
    bNormSvd = Application.NormalTemplate.Saved
    CmdBarCtrl.Parameter = "fCalendar;" & IniDate & ";" & False & ";" & 0
    CmdBarCtrl.Execute
    bNormSvd = Application.NormalTemplate.Saved
    CmdBarCtrl.Parameter = ""
    Application.NormalTemplate.Saved = bNormSvd
End Sub

'3 - Idem to capture and return date to active selection.
Sub YourSub3()
    Dim CmdBarCtrl As CommandBarButton
    Dim bNormSvd As Boolean
    Const AddInTitle As String = "Orlando's " & "WordCalendar"
    Set CmdBarCtrl = Application.CommandBars.FindControl(Tag:=AddInTitle)
    bNormSvd = Application.NormalTemplate.Saved
    CmdBarCtrl.Parameter = "fCalendar"
    CmdBarCtrl.Execute
    bNormSvd = Application.NormalTemplate.Saved
    CmdBarCtrl.Parameter = ""
    Application.NormalTemplate.Saved = bNormSvd
End Sub

More information

Home