2023-01-01から1年間の記事一覧
コード 参照設定:Microsoft Shell Controls And Automation Sub Test() Dim myPrinter As String myPrinter = Application.ActivePrinter Dim Shell As Shell32.Shell Set Shell = New Shell32.Shell Dim Printer As Shell32.FolderItem2 For Each Printer …
基本操作 Sub testMMDS() Dim mmds As MailMergeDataSource Set mmds = ActiveDocument.MailMerge.DataSource Debug.Print mmds.ConnectString Debug.Print mmds.QueryString Debug.Print mmds.TableName Debug.Print mmds.Name Dim i As Long For i = 1 To …