律师利用ChatGPT系列之一:制作Word排版宏

您所在的位置:网站首页 word整体排版居中 律师利用ChatGPT系列之一:制作Word排版宏

律师利用ChatGPT系列之一:制作Word排版宏

2023-04-04 17:01| 来源: 网络整理| 查看: 265

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