WordVBA多级编号的设置

美丽时装
彩妆资讯
历史明星
乐活安卓
数码常识
驾车健康
苹果问答
网络发型
电视车载
室内电影
游戏科学
音乐整形

　　一、需要达到的效果
　　文档中样式标题1到标题9分别链接到相应级别列表
　　各级列表与文字间不用默认的制表符连接，而用空格连接
　　完成对激活文档（当前文档）光标所选区域符合要求的标题段落（样式为标题n的段落）应用此列表
　　多级列表目标效果二、代码Sub多级列表（）
　　DimnumFormatStrAsString
　　DimiAsByte
　　DimdocAsDocument
　　DimlistTempAsWord。ListTemplate
　　SetdocActiveDocument
　　SetlistTempWord。Application。ListGalleries（wdOutlineNumberGallery）。ListTemplates（1）
　　Fori1To9
　　numFormatStrnumFormatStr。i
　　IfLeft（numFormatStr，1）。Then
　　numFormatStrMid（numFormatStr，2）
　　EndIf
　　WithlistTemp。ListLevels（i）
　　。NumberFormatnumFormatStr
　　。TrailingCharacterWord。WdTrailingCharacter。wdTrailingSpace
　　。NumberStyleWord。WdListNumberStyle。wdListNumberStyleArabic
　　。NumberPositionCentimetersToPoints（0）
　　。AlignmentWord。WdListLevelAlignment。wdListLevelAlignLeft
　　。TextPositionCentimetersToPoints（0）
　　。ResetOnHigheri1
　　。StartAt1
　　。LinkedStyle标题i
　　With。Font
　　。namedoc。Styles（标题i）。Font。name
　　。NameFarEastdoc。Styles（标题i）。Font。NameFarEast
　　。Sizedoc。Styles（标题i）。Font。Size
　　。Bolddoc。Styles（标题i）。Font。Bold
　　。Italicdoc。Styles（标题i）。Font。Italic
　　EndWith
　　EndWith
　　Next
　　ForEachpaInSelection。Paragraphs
　　Ifpa。Style。NameLocalLike标题Then
　　pa。Range。ListFormat。ApplyListTemplateWithLevel
　　ListTemplate：listTemp，
　　ContinuePreviousList：True，
　　ApplyTo：wdListApplyToWholeList，
　　DefaultListBehavior：wdWord10ListBehavior
　　EndIf
　　Next
　　SetdocNothing
　　SetlistTempNothing
　　EndSub

闷声发大财！于根伟又给津门虎球迷带来惊喜，球队目标不止是保级津门虎在新赛季中超第一阶段比赛表现不俗，球队保级前景因此被普遍看好。不过，津门虎主帅于根伟并没有松懈，而是继续为球队挑选合适的新援。于根伟经过全面考察之后，敲定了西班牙人中场球……一个求助，15年陪伴！他带轮椅兄弟游遍全国15年前，南京西祠胡同论坛的一条求助帖，让章和平认识了一对患有先天性进行性肌营养不良症的双胞胎兄弟李晓勇、李晓兵。这对轮椅兄弟虽然无法独立行走，但对外面的世界充满了渴望，希望有……9连胜拜仁场均折一将，马内去世界杯仍有一线希望体坛周报全媒体记者黄思隽如无意外，拜仁慕尼黑将为即将开幕的卡塔尔世界杯贡献至少17名球员其中德国7人（诺伊尔、托马斯穆勒、基米希、戈雷茨卡、格纳布里、萨内和穆西亚拉），法……家里客厅距离比较小，适合买多大屏幕的电视机呢？看完就知道了！虽然近些年各种手机越来越智能化，各种智能的电子产品层出不穷，但依然无法撼动电视机在家庭中地位。尤其是大屏幕的电视机已经成为了趋势，当前主流的55英寸、65英寸电视机已经不能满足……年轻人该不该躺平摆烂？当前部分年轻人精神生活状况堪忧，躺平、摆烂已成常态。没有目标、工作敷衍了事、虚度光阴、缺乏激情兴趣、逃避困难、感情疮痍、忙、累、迷茫成了常态。当然这和整个社会大环境……晨鸣纸业预计2022年扣非净利转亏损股价涨0。58来源：中国经济网中国经济网北京1月31日讯晨鸣纸业（000488。SZ）今日股价收报5。17元，上涨0。58。昨晚，晨鸣纸业披露的2022年度业绩预告显示，公司预计……弗格妻子发文我们是一家人！辽篮球迷沸腾了，期待第二阶段弗格妻子更新insstory，转发辽宁球迷画的漫画！Wearefamily弗格的妻子老感动了第一阶段弗格为辽宁队出战9场比赛中，场均能得到26。9分6。8篮板……20款适合登山徒步（背包客）露营户外作业者的G多数背包客与户外作业者都会选择可靠、防水、耐用、省电的手表。有许多不同品牌的手表可供选择，但卡西欧可能是最著名的一个，他们的GShock系列非常受欢迎。GSHOCK……品牌爽肤水推荐这些爽肤水深层补水，让肌肤尽显匀净白皙品牌爽肤水推荐：这些爽肤水深层补水，让肌肤尽显匀净白皙！植村秀晶萃溢采精华水3种质地满足各种肤质需求。I号和II号用于二次清洁，在洁颜油深度清洁后，精华水通过内部调……老美挖到威震天？美国晶圆厂将改进90nm工艺，性能远超7nm说到芯片工艺部分，目前全球领先的晶圆厂可能就是中国台湾的台积电和韩国三星，这两家企业都已经开始生产3nm工艺的芯片。虽然Intel目前也算是一个可以给其他芯片厂商代工的晶圆厂，……最近发朋友圈很火的心情语录，选一句送给自己一、有些人只要好好活着，就足可以拯救某人。二、得不到的就不要，不是好的就扔掉，我们应该在薄情的世界里，深情地活着。三、可能骨子里就是个淡漠的人，没有特别挚爱的东西，……2023投影仪推荐选购指南，小白也能看明白！现在家用智能投影仪逐渐在各家庭普及开来，很多朋友都会考虑投影仪作为影音设备，从而提升生活幸福感。那么，面对琳琅满目的投影仪品牌，我们该如何去选择适合自己的投影仪呢？希望下面这篇……

<<<<<<－>>>>>>

最新沉浸式互动案例，多的是你不知道的玩法随着科技进步和游客需求提升，越来越多趣味性、创意性的沉浸式互动装置应用在景区之中，这些沉浸式互动装置逼真的视觉沉浸效果让观众仿佛置身于那个空间环境，给人带来全新感官体验，以此吸……武汉近郊秋游最佳打卡景点线路疫情笼罩下的秋天，对于每一个人来说都显得特别的亲切。规划远距离的旅行计划变得不现实，久居市区，生活变得愈来愈沉闷，长此以往让生活失去了本色，周末近郊的小憩受到了不少市民的喜爱。……宝藏中山，寻觅岭南的市井烟火岭南的城市，要比江南的低调得多。走在大街小巷里，寻常人家的市井生活被表现得淋漓尽致，亲切的民风让你感受到这里的温暖被称为广东四小虎之一的中山，旧称香山，是全国唯一以……2月16日新疆事早知道1、加速布局：家里有新能源汽车的车主注意了，以后再开车跑高速，就不用担心高速路上没有充电站的情况，因为今年新疆会加大完善充电桩的建设，根据建设计划，在今年会实现全面覆盖，到时去……夜雨丨李立峰兴隆行走兴隆行走李立峰闲来无他事，驱车向荒野。荒野无一物，吾心亦自愈。一个人在家待久了，心情会发霉，感觉头昏脑胀。这时候，就需要去地广人稀、草丰林茂之处，去换换心情了……祝贺！世预赛男双8强诞生，国乒险胜过关，张本智和已锁定2张门北京时间1月9日晚，德班世乒赛亚洲区预选赛男双八强正式诞生，国乒组合樊振东王楚钦、马龙袁励岑先后登场，结果前两人40大获全胜，后两人差点输给印度组合阿昌塔加纳纳塞卡然，大比分1……马蜂窝五一趋势预测长线游占比超80，年轻人热衷去有海的地方中国日报4月17日电（记者欧阳诗嘉）近日，国内航班燃油费下调消息加速释放了游客的长线以及出境出行需求。马蜂窝大数据显示，五一旅行近一周热度环比上涨超150，并呈不断上升趋势。在……从入门到旗舰，什么价位的手机才能畅玩暗黑手游？作为2018年暴雪嘉年华的压轴作品，经过了近4年时间的等待时间，《暗黑破坏神：不朽》终于在近期正式上线国服。游戏上线之后不仅迅速登顶手游排行榜，也在各大社媒引起了不小的轰动。……洗头的错误行为，只要做了2条，让头皮起屑头发毛躁一到冬天，天寒地冻，对很多人来说，洗头忽然变成了一件困难的事儿。等到好不容易鼓起勇气洗头，却发现洗了头之后：头皮发干发痒，手一抓就掉头皮屑头发毛躁像稻草，一梳头噼里啪啦起静电……静默状态下的心潮花絮静默的第六天，好动的我还是顽强地坚持足不出户。一个人的世界，简单而又宁静，虽闭户不出，但也能感觉楼下有谈笑唠叨的烟火气。好久没有享受这种孤独的味道，于是看书成了不可缺的消遣。沐……去留仍有悬念！CBA国内球员注册截止，郭艾伦周琦被预注册郭艾伦（左）下赛季还会出现在CBA吗？（资料图）新华社发记者冯子涵8月31日，20222023赛季CBA联赛国内球员注册截止，此前公开要求交易的郭艾伦、和已经结束海……合同不到1年国米还指望拿食客高位套现？真不懂球了求科普主力球员合同不到一年还没完成续约，有可能是俱乐部对球员缺乏尊重，比如前拜仁中卫聚勒，就因为不满东家的做法一怒走之。还有可能就是球员心猿意马不想续约，或者俱乐部财政出现了问题，比……

友情链接：易事利快生活快传网聚热点七猫云快好知快百科中准网快好找文好找中准网快软网