fExcel贴数
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657Sub 粘贴格式文本(control As IRibbonControl) Set xl = GetObject(, "excel.application") xlr = xl.Selection.Rows.Count xlc = xl.Selection.Columns.Count With Selection wdc = .Information(16) wdr = .Information(13) rangeselect wdr, wdc, xlr, xlc ReDim arr(1 To 1) For Each sht In .Cells i = i + 1 ReDim Preserve arr(1 ...
h行列校验
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283Sub 选行校验(control As IRibbonControl) '行列校验-选行校验 i = 0 x = 0 n = 0 If Selection.Type = wdSelectionColumn Then For Each Acell In Selection.Cells '求所选列合计数 If Acell.ColumnIndex > n Then n = Acell.ColumnIndex End If Set CR1 = ActiveDocument.Range(Acell.Range.Sta ...
g批注
123456789101112131415161718192021222324252627Sub 添加批注(control As IRibbonControl) '批注-添加批注 '添加批注 Application.ScreenUpdating = False '关闭屏幕更新 Selection.Collapse Direction:=wdCollapseEnd ActiveDocument.Comments.Add _ Range:=Selection.Range, Text:="" Application.ScreenUpdating = True '恢复屏幕更新End SubSub 删除批注(control As IRibbonControl) '批注-删除批注 '删除批注 On Error GoTo err_msgbox Selection.Comments(1).Delete Exit Suberr_msgbox: ...
i多表处理
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134Sub 多表_一键调整(control As IRibbonControl) '批量调整表格格式 Application.ScreenUpdating = False '关闭屏幕刷新 Application.DisplayAlerts = False '关闭提示 On Error Resume Next '忽略错误 ' ...
k访谈提纲
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556Sub 插入访谈(x) Path = ActiveDocument.AttachedTemplate.FullName Application.Templates(Path).BuildingBlockEntries(x).Insert Where:=Selection.Range, RichText:=True With ActiveDocument.PageSetup .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2.54) .BottomMargin = CentimetersToPoints(2.54) .LeftMargin = CentimetersToPoints(3.17) .Righ ...
j页面设置
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273Sub 附注页面(control As IRibbonControl) '页面-页面设置 With ActiveDocument.PageSetup .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2.54) .BottomMargin = CentimetersToPoints(2.54) .LeftMargin = CentimetersToPoints(3.17) .RightMargin = CentimetersToPoints(2.7) .HeaderDistance = CentimetersToPoints( ...
类模块
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020 ...
a段落处理
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002 ...
更新
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongSub 获取标签名(control As IRibbonControl, ByRef returnedVal) returnedVal = "报告小帮手 V2.6&q ...
1996年，第十四届中央纪委第六次全会公报最早提出“三重一大”，对党员领导干部在政治纪律方面提出的四条要求的第二条纪律要求。具体表述如下：认真贯彻民主集中制原则，凡属重大决策、重要干部任免、重要项目安排和大额度资金的使用，必须经集体讨论作出决定。2005年，中共中央颁布的《建立健全教育、制度、监督并重的惩治和预防腐败体系实施纲要》（中发[2005]3号）第六款第十三条提出：“加强对领导机关、领导干部特别是各级领导班子主要负责人的监督。要认真检查党的路线、方针、政策和决议的执行情况，监督民主集中制及领导班子议事规则落实情况，凡属重大决策、重要干部任免、重大项目安排和大额度资金的使用，必须由领导班子集体作出决定。”2010年，中共中央办公厅、国务院办公厅颁布《关于进一步推进国有企业贯彻落实“三重一大”决策制度的意见》，提出：为全面贯彻党的十七大和十七届四中全会精神，切实加强国有企业反腐倡廉建设，进一步促进国有企业领导人员廉洁从业，规范决策行为，提高决策水平，防范决策风险，保证国有企业科学发展，按照中央关于凡属重大决策、重要人事任免、重大项目安排和大额度资金运作（简称“三重一大”）事项必须由 ...
