有一批WORD文档，大约60个，需要把正文改成一个统一的行距，有没有什么快捷的操作方法。挨个手动设置太麻

答案:3 悬赏:70

解决时间 2021-02-21 12:40

提问者网友：傀儡离开
2021-02-20 17:51

最佳答案

二级知识专家网友：湫止没有不同
2021-02-20 18:16

设置一个模板，就可以通用了。具体做法是：新建一个文档，设置所需的字号、字体、行距，然后点击保存，出现“另存”框，在“文件名”选项起个自已需要的文件名（例如，A4纸型），在“保存类型”框，选中“文档模板”，保存就可以了。需要用时：打开“文件”——新建——本机上的模板——点击“自己起的文件名”这一项——确定，就OK了。我自己因公文处理，需要设置各种文件头，所以制作好几个模板，很好用，很方便。

全部回答

1楼网友：承载所有颓废
2021-02-20 19:29

没有，一个一个来吧

2楼网友：心与口不同
2021-02-20 18:35

Word本身的宏功能就可以实现，参考如下代码： Sub Hi_FontLines() Dim iPath As String, i As Integer, iDoc As Document Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFolderPicker) .Title = "请选择目标文件夹" If .Show = -1 Then iPath = .SelectedItems(1) Else Exit Sub End If End With With Application.FileSearch .LookIn = iPath .FileType = msoFileTypeWordDocuments If .Execute > 0 Then For i = 1 To .FoundFiles.Count Set iDoc = Documents.Open(FileName:=.FoundFiles(i), Visible:=True) With iDoc.Range .Font.Size = 14 '字号:14磅(根据自己需要修改即可) .ParagraphFormat.LineSpacingRule = wdLineSpace1pt5 '行距:单位行距(根据自己需要修改即可) End With iDoc.Close True Next End If End With Application.ScreenUpdating = True End Sub

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！