Dim filePicker As Object Dim saveFiles() As Variant Dim saveFileUrl As String Dim saveFilePath As String filePicker = createUnoService("com.sun.star.ui.dialogs.FilePicker") filePicker.initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE)) filePicker.appendFilter("テキストファイル(*.txt)", "*.txt") If filePicker.execute() = 1 Then saveFiles = filePicker.getFiles() saveFileUrl = saveFiles(0) saveFilePath = ConvertFromURL(saveFileUrl) MsgBox(saveFilePath) '拡張子付いてないかも End If