2020-03-16から1日間の記事一覧
LibreOffice、自身のファイル情報を取得するマクロです。 Sub SelfFileDirName下記を取得します。 １．自身のファイル名 ２．自身のファイルパス ３．自身のディレクトリ Sub SelfFileDirName Dim oUrl As String Dim FileName As String Dim FilePath As St…
印刷ジョブの基本、用紙の余白を設定するマクロです。 Sub SetPageMargin Option Explicit Sub SetPageMargin Dim oSheetStyle As Object oSheetStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName("Default") With oSheetStyle ' 100 …
