V
主页
京东 11.11 红包
如何补全段落结尾的下划线
发布人
Sub 下划线制表位() Dim 范围 As Range, 段落 As paragraph '代码只涉及无缩进及首行缩进的情况,如要处理其他格式可自行添加if判定 For Each 段落 In selection.Range.paragraphs Set 范围 = 段落.Range X = ActiveDocument.Styles("正文").Font.Size 首行缩进 = 范围.ParagraphFormat.CharacterUnitFirstLineIndent 缩进 = 范围.ParagraphFormat.FirstLineIndent / X 距离 = IIf(首行缩进 * 缩进 = 0, 缩进, 首行缩进) 居中 = 范围.ParagraphFormat.Alignment0 If 居中 <> 1 Then 范围.ParagraphFormat.CharacterUnitFirstLineIndent = 0 范围.ParagraphFormat.FirstLineIndent = 0 全角空格 = String(距离, ChrW(12288)) 范围.InsertBefore 全角空格 范围.Underline = 1 Set 范围 = ActiveDocument.Range(范围.Start, 范围.End - 1) 范围.Collapse Direction:=wdCollapseEnd 范围.InsertAlignmentTab 2, 0 Else 范围.Underline = 1 范围.ParagraphFormat.Alignment = 0 范围.Collapse Direction:=1 范围.InsertAlignmentTab 1, 0 Set 范围 = ActiveDocument.Range(范围.Start, 段落.Range.End - 1) 范围.Collapse Direction:=0 范围.InsertAlignmentTab 2, 0 End If Next End Sub
打开封面
下载高清视频
观看高清视频
视频下载器
如何给文档中的所有图片添加题注?
在word表格中打字表格断开出现大段空白
查找指定关键词所在的段落
Word题库处理两大妙手
如何把论文的摘要添加到目录中
Word免费版下载教程(word下载免费安装必看教程office下载软件必看)2024免费word下载最新教程
十款良心软件,我不允许你不知道!
A4转A3可以看这个视频
页面首行的段前距离没有显示如何处理
会议纪要写出“高级范”正式语言
为什么Word行尾的空格添加下划线显示不出来
wps写论文、标书的时候,如何快速套用模板的样式
Word文档添加附件技巧,职场新人也能轻松上手!
Word进阶技能之样式集(快速套用及切换文档样式)
告别手动检查!Word文档错别字自动识别,省时又省心!
SEQ域-概述(一)
Word论文中,如何把题注中的一.1变成1.1(问题整合唠叨版)
Word中设置分节符的教学分享,快来学习!
office免费安装与激活教程,office必备办公软件下载安装
盘点Word中常见的28个显示问题
在word中如何批量修改图片的尺寸
word段落双线型边框线设置如何设置线宽
A3转A4可以看这个视频
word段落左边的黑色小方块小黑点是什么(段落的换行和分页属性)
让新罗马字体的中文双引号变成中文字体显示。
数字自动转大写数字(一)
word中如何一键给全文标注拼音(三)
Word通配符查找替换进阶教程之中文数字(四·中文数字的通配符)
WPS页码显示错误的解决方法
把相同内容粘贴100次?一键搞定!
如何设置论文封面的下划线对齐
Word通配符查找替换进阶教程(一)
如何单独删除某个自动编号,其他的编号保持不变。
Word行编号怎么添加?看完这个视频你就懂了!
在word中为什么敲空格会整段右移
如何把文字放入表格模板或稿纸中
如何删除目录中的图片和多余的文字
软回车、硬回车、假回车分不清楚?来了解下他们的联系和区别吧!
使用word时建议修改的几个默认设置
如何设置论文的页码