b POPUP CALENDAR for Microsoft Word

Download   Home  Ads        

What's new

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.

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), and 2016 (32 and 64-bit) in MSI-based and Click-To-Run installations of Office 365™ cloud-based services.

Download

Download the English version now

You also can download from this mirror site

Last update: 09/11/2017 - 1558.7kb

Freeware based in this License Agreement

Note: The above link downloads the installer and uninstaller package programmed in VBA in a DOC duly converted to EXE by the DOCtoEXE to make the installation easier for macro and Windows laymen; however, if you're an expert and for some reason prefer an installer and uninstaller package in open ZIP format, click here. With this zip package you can install it in three ways: (1) Simply initiate the Install.exe that loads the same DOC in Word without macro alert; (2) Extract the entire package to a folder and initiate the DOC, enabling the macros in Word and using 123 as password, or (3) Install the DLL manually.

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: COM Add-in, EXE 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:

Features / Add-in Options

 COM Add-in

 EXE Add-in

 Word Add-in

- Availability in this package:

Yes

Yes

No¹

- Requires rights elevation in Windows:

Yes

No No

- Word 64-bit supportability:

No

Yes Yes

- Performance in the load:

Great

Great Poor

- Performance in the functionalities:

Great

Good/great Great

- Interference in the Word performance:

Little

Very little Medium

- Risk of Word crash:

Low

Very low Medium

- Main file extension:

dll

dot/exe dot

¹Temporarily unavailable.

Pictures:

Picture

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

 





gplus

 

 

Visitas acumuladas em todas as páginas:
Visitas hoje só nesta página: