VBA - 随笔分类 - jes

VBA操作WORD（八）设置标题格式（含主、副标题）

摘要：因为主标题和副标题一般都是包含一两句子的段落，所以参数直接传入Paragraph。至于判断主副标题的规则则外面调用部分再做判断。 Sub 设置主标题格式(ib As Paragraph) 'With ActiveDocument.Paragraphs(1).Range '.Style = Activ 阅读全文

posted @ 2020-04-24 00:27 jes 阅读(6224) 评论(0) 推荐(0)

VBA Trim CleanString 删除空白（空格）字符

摘要：重要: TRIM 函数专用于剪裁文本中的 7 位 ASCII 空格字符（值 32）。在 Unicode 字符集中，存在名为不间断空格字符的附加空格字符，其十进制值为 160。通常在网页中使用此字符作为 HTML 实体  。 TRIM 函数本身不会删除此不间断空格字符。有关如何从文本中阅读全文

posted @ 2020-04-22 23:30 jes 阅读(6003) 评论(0) 推荐(0)

VBA操作WORD（七）设置每一级大纲式样

摘要：摘抄自网络的一些代码，以备后用，部分也有修改。部分来源于： https://zhuanlan.zhihu.com/p/35695960 Sub 设置每一级样式格式() With ActiveDocument.Styles(wdStyleHeading1).Font .Color = wdColor 阅读全文

posted @ 2020-04-19 22:44 jes 阅读(4726) 评论(0) 推荐(0)

VBA操作WORD（六）另存为不含宏的文档

摘要：Sub 另存为不含宏的文档() Application.DisplayAlerts = False Application.ScreenUpdating = False Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oRng As R 阅读全文

posted @ 2020-04-19 21:19 jes 阅读(3666) 评论(0) 推荐(0)

VBA操作WORD（四）：获知关键字所在段落及相关信息

摘要：思路参考自：http://club.excelhome.net/thread-1477855-1-1.html 以下是代码： Sub 关键字所在的段落() With Selection .HomeKey unit:=wdStory, Extend:=wdMove If .Find.Execute(F 阅读全文

posted @ 2020-04-16 21:24 jes 阅读(4635) 评论(1) 推荐(0)

VBA操作WORD（三）：设置页面

摘要：Sub 设置页面(oDoc As Document) With oDoc.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait '页面方向为纵向 .TopMargin = CentimetersToPoints 阅读全文

posted @ 2020-04-16 20:35 jes 阅读(2849) 评论(0) 推荐(0)

VBA操作WORD（二）：替换字符（含空格、全角字符、换行符等）

摘要：这篇实现WPS文字工具提供的几个小功能： Sub 段落首行缩进转为空格() Dim ib As Paragraph For Each ib In ActiveDocument.Paragraphs '排除表格 If ib.Range.Information(wdWithInTable) = Fals 阅读全文

posted @ 2020-04-13 21:29 jes 阅读(5931) 评论(0) 推荐(0)

VBA操作WORD（一）：设置段落的行间距（行距）

摘要：在vba中可以用Paragraph对象或者ParagraphFormat对象设置各种段落间距。一、设置段落的行间距（行距）要设置段落的行间距（行距）可以使用LineSpacingRule属性和LineSpacing属性两者结合。如下的vba代码分别演示了如何设置某个段落的行间距为1.5倍行距、单阅读全文

posted @ 2020-04-13 10:25 jes 阅读(6116) 评论(0) 推荐(1)

VBA操作WORD（五）批量调整图片大小、居中设置

摘要：需求：经常阅读网上的研报（没钱买排版漂亮的高质量研报），有些需要保存的复制下来到word里，图片很大都超出word的边界了，也没有居中，手工一张张调整不现实，上百页的研报，几十张图片。解决方案：利用VBA宏批量解决。第一种方法经过测试，只是前面部分有些，后面部分无效。 Sub setpicsiz 阅读全文

posted @ 2019-03-24 11:16 jes 阅读(9709) 评论(1) 推荐(0)

奋斗中...

公告

随笔分类 - VBA