AutoHotkey Community

Code: Select all

XL := ComObjActive("Excel.application")
F3::
startRow := XL.Selection.Row 
startCol := XL.Selection.Column
selRows  := XL.Selection.Rows.Count
selCols  := XL.Selection.Columns.Count
MsgBox, 64, Selection, % "Start (col,row) = (" startCol "," startRow ")`n"
                       . "Number of cols = " selCols "`nNumber of rows = " selRows
Return

Code: Select all

xl := ComObjActive("Excel.application")
for x in xl.VBE.ActiveVBProject.VBComponents
	if (x.name = "Module1")
		msgbox % x.codemodule.lines(1,x.codemodule.countoflines)

Code: Select all

ControlGet, hVBE, Hwnd,, MDIClient1, ahk_class wndclass_desked_gsk
hVBE:=Excel_Get()
CurPos:=DllCall("User32.dll\SendMessage", "Ptr", hVBE, "UInt", 0x7D8,"UInt")
WordPosL:=DllCall("User32.dll\SendMessage", "Ptr", hVBE, "UInt", 0x8DA, "UInt", CurPos, "UInt", 1, "UInt")
WordPosR:=DllCall("User32.dll\SendMessage", "Ptr", hVBE, "UInt", 0x8DB, "UInt", CurPos, "UInt", 1, "UInt")
DllCall("User32.dll\SendMessage", "Ptr", hVBE, "UInt", 0x00B1, "Ptr",  WordPosR , "Ptr",WordPosL , "Ptr")

Code: Select all

Sub AHK_VBE_Ctrl_d(Optional ByVal rngFix As String _
			, Optional ByVal CloneType As Integer = -1)
    Dim n As Long, tmp As String
    Dim nStartLine As Long
    Dim nEndLine   As Long
    Dim nStartCol  As Long
    Dim nEndCol    As Long
    Dim oLine      As String
    Dim sContent   As String

    With Application.VBE.ActiveCodePane.CodeModule
        .CodePane.GetSelection nStartLine, nStartCol, nEndLine, nEndCol
        If nStartLine = nEndLine And nStartCol = nEndCol Then
            sContent = .Lines(nStartLine, 1)
        Else
            For n = nStartLine To nEndLine
                tmp = .Lines(n, 1)
                If n = nEndLine Then tmp = Left(tmp, nEndCol - 1)
                If n = nStartLine Then tmp = Right(tmp, (Len(tmp) - nStartCol) + 1)
                sContent = sContent & IIf(Len(sContent) > 0, Chr(10), "") & _
                    tmp
            Next n
        End If
        .InsertLines nStartLine + 1, sContent
        .CodePane.SetSelection nStartLine, nStartCol, nEndLine, nEndCol
    End With
End Sub

Code: Select all

fn_access_code_test() {
	db_object := fn_access_get_active_object()
	
	if(db_object = "")
	{
		msgbox, db_object leer
		return
	}

	mdl_name := fn_vba_get_module_name()

	if(mdl_name = "")
	{
		fn_debug_print("mdl_name ist leer", true)
		return
	}

	vb_project_object := db_object.VBE.ActiveVBProject
	vb_comp_object := vb_project_object.vbcomponents(mdl_name)
	code_mod_object := vb_comp_object.CodeModule

	msgbox, % "count of lines: " . code_mod_object.countoflines

	vbe_object := vb_project_object.vbe
	active_code_pane := vbe_object.activecodepane

	msgbox, % active_code_pane.countofvisiblelines

	type := (VT_BYREF := 0x4000) | (VT_I4 := 0x3)
	VarSetCapacity(buff, 16, 0)
	params := []

	Loop 4
		params.Push(ComObject(type, &buff + (A_Index - 1) *4))

	active_code_pane.GetSelection(params*)
		
	for k, v in ["startline", "startcolumn", "endline", "endcolumn"]
		%v% := NumGet(buff, 4*(k - 1), "UInt")

	MsgBox, % startline . "`n" . startcolumn . "`n" . endline . "`n" . endcolumn ;
}

Code: Select all

xl := ComObjActive("Excel.application")
mdl_nm := xl.VBE.ActiveCodePane.CodeModule.Name
type := (VT_BYREF := 0x4000) | (VT_I4 := 0x3)
VarSetCapacity(buff, 16, 0)
params := []
Loop 4
	params.Push(ComObject(type, &buff + (A_Index - 1) *4))
xl.VBE.ActiveCodePane.CodeModule.CodePane.GetSelection(params*)
for k, v in ["startline", "startcolumn", "endline", "endcolumn"]
	%v% := NumGet(buff, 4*(k - 1), "UInt")
for x in xl.VBE.ActiveVBProject.VBComponents
	if (x.name = mdl_nm)
		msgbox % x.codemodule.lines(startline, endline - startline + 1)

Code: Select all

xl := ComObjActive("Excel.application")
for x in xl.VBE.ActiveVBProject.VBComponents
	if (x.name = "Module1")
		msgbox % x.codemodule.ProcCountLines("test","vbext_pk_Proc")
		;~ msgbox % x.codemodule.ProcCountLines("test",vbext_pk_Proc)