Get values of Microsoft Office constants for use with COM.
Tested with Office 2007 & 2010
ImportTypeLib is required. (In the example scripts, the folder "maul-esel-ImportTypeLib-28e9e8b" is in the same directory as the script. 「More Info 」 )
Example Usage: Show available constants
Spoiler
Example Usage: Excel - Add and format a table
Spoiler
OfficeInfo Class:
Code: Select all
; https://autohotkey.com/boards/viewtopic.php?f=6&t=23164
; Updated: Sept. 7, 2016
class OfficeInfo
{
__New()
{
static Programs := { "Excel": "{00020813-0000-0000-C000-000000000046}"
, "Office": "{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}"
, "Outlook": "{00062FFF-0000-0000-C000-000000000046}"
, "PowerPoint": "{91493440-5A91-11CF-8700-00AA0060263B}"
, "Publisher": "{0002123C-0000-0000-C000-000000000046}"
, "Word": "{00020905-0000-0000-C000-000000000046}" }
ObjRawSet(this, "_Unlocked", true)
for ProgramName, ProgramGUID in Programs
new this._ProgramInfo(ProgramGUID, this)
this.Delete("_Unlocked")
}
__Get(aName)
{
if !this.HasKey("_Unlocked")
throw Exception( "`nThe requested key does not exist. Specifically:`n`n"
. "Key: " aName )
}
__Set(aName, aValue)
{
if !this.HasKey("_Unlocked")
throw Exception( "`nCannot create new keys. Specifically:`n`n"
. "Key: " aName "`n"
. "Value: " aValue )
else
ObjRawSet(this, aName, aValue)
return this[aName]
}
class _ProgramInfo
{
__New(GUID, Parent)
{
this.GUID := GUID
this.Parent := Parent
this.GetTypeLibVersion()
this.GetTypeLib()
this.GetFlatTypeLib()
}
GetTypeLibVersion()
{
Loop, Reg, % "HKCR\TypeLib\" this.GUID, K
{
for i, VerPart in StrSplit(A_LoopRegName, ".")
{
if VerPart is integer
Version .= VerPart "."
else if VerPart is xdigit
Version .= Format("{:i}", "0x" VerPart) "."
}
return this.Version := RTrim(Version, ".")
}
}
GetTypeLib()
{
try return this.TypeLib := ImportTypeLib(this.GUID, this.Version)
catch e
OutputDebug, % "Failed to load type library!`n"
. "GUID: " this.GUID "`n"
. "Version: " this.Version "`n"
. "Message: " e.Message "`n"
. "What: " e.What "`n"
. "Extra: " e.Extra "`n"
. "File: " e.File "`n"
. "Line: " e.Line "`n"
}
GetFlatTypeLib()
{
this.Enumerate(this.TypeLib)
return this.Parent
}
; Get each item in the type library and place it in the parent OfficeInfo object.
Enumerate(a, Depth:=2)
{
try for k, v in a
{
if IsObject(v) && Depth > 1
this.Enumerate(v, Depth - 1)
else if !this.Parent[k] && !ITL.Properties.IsInternalProperty(k)
this.Parent[k] := v ; store retrieved value in parent
}
}
}
}Spoiler
I hadn't tried it on Win10 yet.