Hi,
ich benutze diesen Code (eigentlich um die Referenz einer AK zu ersetzen, funktioniert aber auch in Bgr.). Da ist einiges für Dich wohl überflüssig, es soll ja auch nur die Richtung weisen.
Code:
Sub Referenz_ersetzen()
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
Dim oRefFile As FileDescriptor
Dim oOrigRefName
'aktuell ref. Dok. melden
Dim sTmp As String
sTmp = "aktuell referenzierte Dateien (Anzahl: " _
& oDoc.file.ReferencedFileDescriptors.Count & "): " & vbCrLf
For Each oRefFile In oDoc.file.ReferencedFileDescriptors
sTmp = sTmp & oRefFile.FullFileName & vbCrLf
Next
MsgBox sTmp, vbInformation, "Makro Referenz_ersetzen"
'alle Referenzen ersetzen
For Each oRefFile In oDoc.file.ReferencedFileDescriptors
'get the full file path to the original internal references
oOrigRefName = oRefFile.FullFileName
'present a File Selection dialog
Dim oFileDlg As Inventor.FileDialog
Call ThisApplication.CreateFileDialog(oFileDlg)
oFileDlg.InitialDirectory = oOrigRefName 'das klappt nicht (weil Pfad inkl. Dateiname?)
oFileDlg.CancelError = True
On Error Resume Next
oFileDlg.ShowOpen
If Err.Number <> 0 Then
ThisApplication.StatusBarText = ""
MsgBox "Aktion abgebrochen", vbOKOnly, "nichts passiert"
Exit Sub
ElseIf oFileDlg.filename <> "" Then
selectedfile = oFileDlg.filename
End If
'Replace the reference
oRefFile.ReplaceReference (selectedfile) Next
End Sub
Entstanden ist das übrigens hieraus: http://ww3.cad.de/foren/ubb/Forum50/HTML/036869.shtml
------------------
Gruß KraBBy
[Edit: wann lerne ich mal, wie man Links beim ersten mal richtig einfügt]
[Diese Nachricht wurde von KraBBy am 05. Apr. 2017 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP