Beyond Inventor Wizard... The Community!

Autodesk Inventor en AutoCAD Forum

VBA: This command is not valid for the application or document projects

Iemand een idee waarom ik deze error krijg wanneer ik de default.ivb wil saven na toevoegen van een Module/code?

de gebruikte code komt uit ons Macro labo:

Sub OpenIDW()
On Error GoTo Oops

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim sFullFileName As String
sFullFileName = oDoc.FullFileName

Dim sDrawingName As String
sDrawingName = Left(sFullFileName, Len(sFullFileName) - 6) & "01.idw"

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.Documents.Open(sDrawingName)

Exit Sub

Oops:
MsgBox "Oops! Something went wrong!", vbInformation
End Sub

Aantal maal bekeken: 457

Hierop reageren

Berichten in deze discussie

de fout ligt waarschijnlijk bij uw references in vba, een nieuwe versie van office kan zoiets veroorzaken

in vba --> Tools --> References, en eens kijken of er missing bij staan.

Aangevinkt en de Forms 2.0 via Browse toegevoegd, jammer genoeg nog hetzelfde.

Zit er toevallig code in de andere openstaande documenten?

Want ik zie die unsaved eronder, dat heb ik nooit

RSS

Interessante links

Word Fan!

Inventor Wizard Cartoons

Video's

  • Video's toevoegen
  • Alles weergeven

© 2019   Gemaakt door Stefaan Boel.   Verzorgd door

Banners  |  Een probleem rapporteren?  |  Algemene voorwaarden