MS Word Table Racelanes V4.20
Attribute VB_Name = "Table_Format" Option Explicit Option Compare Text #If VBA7 Then ''need to get character widths to properly set column widths in rcelanes Private Declare PtrSafe Function GetDC Lib "user32" ( ByVal hwnd As LongPtr ) As LongPtr Private Declare PtrSafe Function ReleaseDC Lib "user32" ( ByVal hwnd As LongPtr , ByVal hdc As LongPtr ) As Long Private Declare PtrSafe Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" ( _ ByVal hdc As LongPtr , ByVal lpString As String , ByVal cbString As Long , lpSize As SIZE ) As Long #Else Private Declare Function GetDC Lib "user32" ( ByVal hwnd As Long ) As Long Private Declare Function ReleaseDC Lib "user32" ( ByVal hwnd As Long , ByVal hdc As Long ) As Long Private Declare Function GetTextExtentPoint32 Lib ...