律师利用ChatGPT系列之一:制作Word排版宏 |
您所在的位置:网站首页 › word整体排版居中 › 律师利用ChatGPT系列之一:制作Word排版宏 |
ChatGPT的出现肯定要改变律师行业,但改变多大,还是未知的。既然躲不过去,就要好好运用它。 目前,ChatGPT是屏蔽大陆IP的,有很多人做了第三方网站,可以绕过IP限制,大家可以用这个方法体验ChatGPT。 最近我会陆续发布文章,来分享一些自己利用ChatGPT辅助办公的心得。 Word宏的语言是vba,这个语言说简单,相对于其他语言来说还是很简单的,但是对于律师来说,学起来还是很费劲的。ChatGPT的出现解决了这一问题。你只需要提出需求,它就给你实现。 例如:我习惯的排版方式:标题字体方正小标宋简体,字号二号,文字居中。一级标题字体黑体,字号四号,首行2字符,行距:1.5倍。二级标题字体楷体,加粗,字号四号,首行2字符,行距:1.5倍。三级标题字体仿宋,加粗,字号四号,首行2字符,行距:1.5倍。正文字体仿宋,首行2字符,行距:1.5倍。 将这段话输入到ChatGPT中,它就会生成如下宏代码: Sub ChangeStyles() '定义样式对象 Dim sStyle As Style '设置一级标题样式 Set sStyle = ActiveDocument.Styles("标题 1") sStyle.Font.Name = "黑体" sStyle.Font.Size = 24 sStyle.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5 sStyle.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.42) '设置二级标题样式 Set sStyle = ActiveDocument.Styles("标题 2") sStyle.Font.Name = "楷体" sStyle.Font.Size = 24 sStyle.Font.Bold = True sStyle.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5 sStyle.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.42) '设置三级标题样式 Set sStyle = ActiveDocument.Styles("标题 3") sStyle.Font.Name = "仿宋" sStyle.Font.Size = 24 sStyle.Font.Bold = True sStyle.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5 sStyle.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.42) '设置正文样式 Set sStyle = ActiveDocument.Styles("正文") sStyle.Font.Name = "仿宋" sStyle.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5 sStyle.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.42) '更新样式 ActiveDocument.UpdateStyles End Sub这段代码中我排除了对表格的修改,这个是平时操作是的阻碍,不能大段的去选择,要剔除表格,用宏命令可以避开这个问题。 好了,举一反三吧。挺简单的。如果出错,就不停的让它修改就行了。 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |