Ik zit met een probleem, heb zelf niet zoveel verstand van macro's in Word, maar het volgende doet zich voor. Als men via intranet een document opent krijgt men eerst een scherm wat men dient in te vullen. Hierna vult hij automatisch de gegevens in in Word. Hierna kan men op de button in het Word document klikken zodat hij deze ergens wegschrijft. Het probleem is zodra er op die knop word geklikt krijgt men de volgende runtime error:
Run-time error "4605"
The Add method or property is not available because this document is in another application.
Hieruit kan ik opmaken dat dit niet gaat als het Word document onder de internet explorer geopend word. Is er een mogelijkheid dat dit wel gewoon gaat?
Dit is de macro:
Sub SaveRequest()
Dim strName As String
strName = Application.ActiveDocument.Name
'Delete the Save and New buttons.
If ActiveDocument.Shapes.Count > 0 Then
ActiveDocument.Shapes.SelectAll
Selection.ShapeRange.Delete
End If
'Select all and paste it into a new document (to get rid of the macro's).
Selection.WholeStory
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)
'Save the document
If ActiveDocument.Saved = False Then ActiveDocument.Save
'Close the original document without saving
Application.Windows(strName).Activate
ActiveWindow.Close wdDoNotSaveChanges
End Sub
Run-time error "4605"
The Add method or property is not available because this document is in another application.
Hieruit kan ik opmaken dat dit niet gaat als het Word document onder de internet explorer geopend word. Is er een mogelijkheid dat dit wel gewoon gaat?
Dit is de macro:
Sub SaveRequest()
Dim strName As String
strName = Application.ActiveDocument.Name
'Delete the Save and New buttons.
If ActiveDocument.Shapes.Count > 0 Then
ActiveDocument.Shapes.SelectAll
Selection.ShapeRange.Delete
End If
'Select all and paste it into a new document (to get rid of the macro's).
Selection.WholeStory
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)
'Save the document
If ActiveDocument.Saved = False Then ActiveDocument.Save
'Close the original document without saving
Application.Windows(strName).Activate
ActiveWindow.Close wdDoNotSaveChanges
End Sub