word表格段落行距运行宏代码无法设置固定值

快乐王子kaikai

各位大神，有一批word表格，字体要设为宋体4号，段落行距为固定值25，运行宏代码无法实现，麻烦大神帮忙看下
Sub HHH()
Dim strFileName As String
Dim strPath As String
Dim wApp As Object
Dim wDoc As Object
strPath = ThisWorkbook.Path & "\"
strFileName = Dir(strPath & "*.doc")
Set wApp = CreateObject("Word.Application")
Do While strFileName <> ""
    Set wDoc = wApp.Documents.Open(strPath & strFileName)
    With wApp.Selection
        .ParagraphFormat.LineSpacingRule = wdLineSpaceExactly
        .ParagraphFormat.LineSpacing = 25
        .WholeStory
        .Font.Name = "宋体"    '宋体
        .Font.Color = black           '字体颜色黑色
        .Font.Size = 14                 '字体大小
    End With
    wDoc.Save
    wDoc.Close
    strFileName = Dir
Loop
Set wDoc = Nothing
wApp.Quit
Set wApp = Nothing
End Sub

快乐王子kaikai

感谢各位大神

453507254

1. Sub HHH()
   
2.     Dim strFileName As String
   
3.     Dim strPath As String
   
4.     Dim wApp As Object
   
5.     Dim wDoc As Object
   
6.     strPath = ThisDocument.Path & ""
   
7.     strFileName = Dir(strPath & "*.do*")
   
8.     Do While strFileName <> ""
   
9.         If strFileName <> ThisDocument.Name Then
   
10.             Set wDoc = Application.Documents.Open(strPath & strFileName)
    
11.             With wDoc.Range
    
12.                 .ParagraphFormat.LineSpacingRule = wdLineSpaceExactly
    
13.                 .ParagraphFormat.LineSpacing = 25
    
14.                 .WholeStory
    
15.                 .Font.Name = "宋体"    '宋体
    
16.                 .Font.Color = Black           '字体颜色黑色
    
17.                 .Font.Size = 14                 '字体大小
    
18.             End With
    
19.             wDoc.Close True
    
20.         End If
    
21.         strFileName = Dir
    
22.     Loop
    
23.     Set wDoc = Nothing
    
24. End Sub
    

复制代码

453507254

新建一个空白文档，放在要处理的文件夹下，插入上述代码，执行可得结果

快乐王子kaikai

453507254 发表于 2018-10-30 12:43
新建一个空白文档，放在要处理的文件夹下，插入上述代码，执行可得结果

感谢指点，可以实现了

快乐王子kaikai

453507254 发表于 2018-10-30 12:43
新建一个空白文档，放在要处理的文件夹下，插入上述代码，执行可得结果

再请教下，如果要实现段前断后0行，首行缩进2字符，如何编辑呢，我在中间加了代码，但是如果word里间距定义过，就修改不了，代码如下：
Private Sub CommandButton21_Click()
    Dim strFileName As String
    Dim strPath As String
    Dim wApp As Object
    Dim wDoc As Object
    strPath = ThisDocument.Path & "\"
    strFileName = Dir(strPath & "*.doc")
    Do While strFileName <> ""
        If strFileName <> ThisDocument.Name Then
            Set wDoc = Application.Documents.Open(strPath & strFileName)
            With wDoc.Range
                .ParagraphFormat.LineSpacingRule = wdLineSpaceExactly
                .ParagraphFormat.LineSpacing = 25
                .ParagraphFormat.LeftIndent = CentimetersToPoints(0)
                .ParagraphFormat.RightIndent = CentimetersToPoints(0)
                .ParagraphFormat.SpaceBefore = 0
                .ParagraphFormat.SpaceBeforeAuto = False
                .ParagraphFormat.SpaceAfter = 0
                .ParagraphFormat.SpaceAfterAuto = False
                .ParagraphFormat.FirstLineIndent = CentimetersToPoints(2)
                .WholeStory
                .Font.Name = "宋体"    '宋体
                .Font.Color = Black           '字体颜色黑色
                .Font.Size = 14                 '字体大小
            End With
            wDoc.Close True
        End If
        strFileName = Dir
    Loop
    Set wDoc = Nothing
End Sub

快乐王子kaikai

Private Sub CommandButton21_Click()
    Dim strFileName As String
    Dim strPath As String
    Dim wApp As Object
    Dim wDoc As Object
    strPath = ThisDocument.Path & "\"
    strFileName = Dir(strPath & "*.doc")
    Do While strFileName <> ""
        If strFileName <> ThisDocument.Name Then
            Set wDoc = Application.Documents.Open(strPath & strFileName)
            With wDoc.Range
                .ParagraphFormat.LineSpacingRule = wdLineSpaceExactly
                .ParagraphFormat.LineSpacing = 25
                .ParagraphFormat.LeftIndent = CentimetersToPoints(0)
                .ParagraphFormat.RightIndent = CentimetersToPoints(0)
                .ParagraphFormat.SpaceBefore = 0
                .ParagraphFormat.SpaceBeforeAuto = False
                .ParagraphFormat.SpaceAfter = 0
                .ParagraphFormat.SpaceAfterAuto = False
                .ParagraphFormat.FirstLineIndent = CentimetersToPoints(2)
                .WholeStory
                .Font.Name = "宋体"    '宋体
                .Font.Color = Black           '字体颜色黑色
                .Font.Size = 14                 '字体大小
            End With
            wDoc.Close True
        End If
        strFileName = Dir
    Loop
    Set wDoc = Nothing
End Sub