K
koester.daniel
Hi everyone!
(I hope that this is the right group for this, please let me know if
you know of any group who specialises in macros for mac)
I need some help with a relatively easy macro for word for mac. I have
a macro that I have written for pc but I cant find any relevant help in
the macro enviroment in the mac version so I dont know how to convert
it. The part of the macro that I need help with is the following. I
need to be able to open a folder and select some of the files and the
add there filenames to an array. Its realy simple on the pc, this is
what I have there:
Dim dlgopen As FileDialog
Set dlgopen = Application.FileDialog( _
FileDialogType:=msoFileDialogOpen)
With dlgopen
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "RTF files", "*.rtf"
.Show
End With
If dlgopen.SelectedItems.Count = 0 Then
MsgBox "You have not selected any files!"
Exit Sub
End If
i = 0
While dlgopen.SelectedItems.Count > i
ReDim Preserve mylist(i + 1)
mylist(i) = dlgopen.SelectedItems.Item(i + 1)
i = i + 1
Wend
Its the dialog part that I am having problems with. So if there is
anyone out there who can help me, please please please!
Best regards
Daniel
(I hope that this is the right group for this, please let me know if
you know of any group who specialises in macros for mac)
I need some help with a relatively easy macro for word for mac. I have
a macro that I have written for pc but I cant find any relevant help in
the macro enviroment in the mac version so I dont know how to convert
it. The part of the macro that I need help with is the following. I
need to be able to open a folder and select some of the files and the
add there filenames to an array. Its realy simple on the pc, this is
what I have there:
Dim dlgopen As FileDialog
Set dlgopen = Application.FileDialog( _
FileDialogType:=msoFileDialogOpen)
With dlgopen
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "RTF files", "*.rtf"
.Show
End With
If dlgopen.SelectedItems.Count = 0 Then
MsgBox "You have not selected any files!"
Exit Sub
End If
i = 0
While dlgopen.SelectedItems.Count > i
ReDim Preserve mylist(i + 1)
mylist(i) = dlgopen.SelectedItems.Item(i + 1)
i = i + 1
Wend
Its the dialog part that I am having problems with. So if there is
anyone out there who can help me, please please please!
Best regards
Daniel