Hallo Lusilnie,
Alle im Produkte und Parts sind im Design-Mode dargestellt. Der Code sieht bisher wie folgt aus:
'Wörter in PartNumber ersetzen:
Sub SearchStringsAndReplace (StartProduct, SearchSubString, NewSubString)
Dim ChildrenProduct
Set ChildrenProduct = StartProduct.ReferenceProduct.Products
Dim PartNumber
Dim ReplacedString
Dim isSearchStringReplaced
Dim CurrentDimension
Dim isAlreadyModified
'PartNumber auslesen:
PartNumber = StartProduct.PartNumber
'Ersetzen des gesuchten Strings durch neuen:
ReplaceSubString PartNumber, SearchSubString, NewSubString, ReplacedString, isSearchStringReplaced
If (1 = isSearchStringReplaced) Then
StartProduct.PartNumber = ReplacedString
isAlreadyModified = ArraySearch(StartProduct.PartNumber, TableModifiedDocuments)
If (isAlreadyModified = 0) Then
CurrentDimension = UBound(TableModifiedDocuments)
CurrentDimension = CurrentDimension + 1
ReDim Preserve TableModifiedDocuments(CurrentDimension)
TableModifiedDocuments(CurrentDimension) = StartProduct.PartNumber
End If
End If
If 0 = ChildrenProduct.Count Then
Exit Sub
End If
Dim nrChild
For nrChild = 1 To ChildrenProduct.Count
Dim CurrentProduct
Set CurrentProduct = ChildrenProduct.Item(nrChild)
SearchStringsAndReplace CurrentProduct, SearchSubString, NewSubString
CurrentProduct.Update
Next
End Sub
Gruß
Thomas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP