【SAS小知识】-004工作中VBA的妙用

Sub ChangeFont()
   Dim path      As String
   Dim FileName  As String
   Dim worddoc   As Document
   Dim MyDir       As String
   With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        MyDir = .SelectedItems(1) & "\"
   End With
 
   FileName = Dir(MyDir & "\*.rtf", vbNormal)
   Do Until FileName = ""
   If FileName <> ThisDocument.Name Then
         Set worddoc = Documents.Open(MyDir & "\" & FileName)
         worddoc.Activate
         Call ChangeFontson
         worddoc.Close True
         FileName = Dir()
    End If
   Loop
Set worddoc = Nothing
End Sub

Sub ChangeFontson()
    Selection.WholeStory
    Selection.Font.Name = "宋体"
    Selection.Font.Name = "Times New Roman"
End Sub