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

本文将分享一些工作中VBA的妙用，在有些方面（Office相关处理）还是VBA操作起来更加便捷与简单。

批量修改字体

上次关于字体的推文，需要对方电脑也安装上自定义的字体，关于这一点也有很多争议，好吧，如何用SAS来解决这一问题我也是黔驴技穷，毫无办法了。今天来提供另外一种思路，利用VBA批量修改RTF的字体格式。

代码语言：javascript复制

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

其他方面应用

在数据提取方面，VBA的作用也是十分明显和高效的，譬如同类型表格，批量提取数据。制作固定模板报表可以使用“邮件合并”功能，比其他的方式简单太多了，工作中我们不仅有SAS还有VBA可以用，如果一定要借助SAS来解决问题，可以把研究方向改为如何用SAS来调用VBA。

vba sas 其他

0 人点赞