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: ...
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 ...
i多表处理
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134Sub 多表_一键调整(control As IRibbonControl) '批量调整表格格式 Application.ScreenUpdating = False '关闭屏幕刷新 Application.DisplayAlerts = False '关闭提示 On Error Resume Next '忽略错误 ' ...
a段落处理
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002 ...
d文字
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126Sub 宋体宋体(control As IRibbonControl) '选中范围字体为宋体+宋体 With Selection.Font .NameFarEast = "宋体" .NameAscii = "宋体" .NameOther = "宋体" End WithEnd SubSub 宋体罗马(control As ...
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 ...
更新
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 ...
a段落处理
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002 ...
类模块
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020 ...
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( ...
