Für alle anderen Datenbanken könnte das Grundgerüst so aussehen:
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim strwert As String
Set doc = ws.CurrentDocument.Document
Forall felder In doc.Items
If felder.type = 1280 then
strwert = felder.text
{hier dann prüfen auf alle Schreibweisen des alten Namens & Ersetzen durch neuen Namen}
End If
End Forall
Da Du nicht weisst, wie alle Felder heissen, in denen der alte Name drin sein könnte, musst Du alle Felder ablaufen.
Hoffe das hilft Dir.
Bye
Markus