dim bInTable as boolean,wdTbl as tablefor each wdTbl in wd.tablesif Selection.Range.InRange(wdTbl.Range) then bInTable=true:exit forend ifnextMsgBox "Курсор " & IIf(bInTable, "внутри таблицы", "вне таблиц"), vbInformation