Kramer
Gebruiker
- Lid geworden
- 12 jun 2002
- Berichten
- 447
Beste forumleden.
Ik heb een macro die gebruikt maakt van de functie Application.FileSearch. Deze werkt perfect WORD 2003 maar in WORD 2010 krijg ik een foutmelding. Wat ik op internet gevonden heb zit de fout in dat ik de functie Application.FileSearch gebruik. Maar ik kan nergens iets vinden om dit te omzeilen.
Ik heb een macro die gebruikt maakt van de functie Application.FileSearch. Deze werkt perfect WORD 2003 maar in WORD 2010 krijg ik een foutmelding. Wat ik op internet gevonden heb zit de fout in dat ik de functie Application.FileSearch gebruik. Maar ik kan nergens iets vinden om dit te omzeilen.
Code:
Sub opslaan()
Dim strDir As String
Dim strFileName As String
Dim FSO As New Scripting.FileSystemObject
strDir = Options.DefaultFilePath(wdDocumentsPath) 'Bestandslocatie documenten
strFileName = ActiveDocument.Name
ActiveDocument.Save
ChangeFileOpenDirectory "t:\cor\"
With Application.FileSearch
.LookIn = CurDir
.FileName = strFileName
If .Execute > 0 Then
With Dialogs(wdDialogFileSaveAs)
.Name = "t:\cor\" & strFileName
.Show
End With
Else
ActiveDocument.SaveAs strFileName
End If
End With
ActiveDocument.Close
ChangeFileOpenDirectory strDir
With Application.FileSearch
.LookIn = CurDir
.FileName = strFileName
If .Execute > 0 Then
FSO.DeleteFile strFileName, True
Else
End If
End With
Dialogs(wdDialogFileOpen).Show
End Sub