- جۇغلانما
- 8982
تىزىملاتقان2013-2-3
ئاخىرقى قېتىم1970-1-1
توردا سائەت
دوست
|
自动目录页码加括号的方法.......1
داق شەكىلدىكى مۇندەرىجەدىكى بەت نومۇرىغا تىرناق قوشۇش ( (1) دەك قىلىش) ماكرو كودى:- Sub munderijediki_sangha_tirnaq_qoshush()
- Application.ScreenUpdating = False
- With ActiveDocument.Styles("目录 2").ParagraphFormat
- .LineSpacingRule = wdLineSpace1pt5
- End With
- With ActiveDocument
- .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
- True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
- LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
- UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
- True
- End With
- Selection.Previous.Select
- st = Selection.End
- With Selection.Find
- .Text = "([0-9]{1,})"
- .MatchWildcards = 1
- Do While .Execute
- If Selection.End > st Then Exit Do
- Debug.Print Asc(.Parent)
- If Asc(.Parent.Next) = 13 Then .Parent = "(" & .Parent & ")": st = st + 2
- .Parent.Collapse wdCollapseEnd
- Loop
- End With
- Application.ScreenUpdating = True
- End Sub
مەزمۇننى كۆچۈرۈۋېلىش |
|