option explicit
ValidationMode = true
InteractiveMode = im_Batch

dim tab
for each tab in ActiveModel.tables
  tab.name = "PREFIX_" & tab.name 
next

Dim tb
Select Case tab.ClassName
            Case "Table"              Set tb=tab
            Case "Shortcut of table"  Set tb=tab.TargetObject
End Select
tb.name = "PREFIX_" & tb.name

' Rename all tables in the active model'
option explicit
ValidationMode = true
InteractiveMode = im_Batch

dim tab
for each tab in ActiveModel.tables
  ' Skip shortcuts'
  if tab.ClassName = "Table" then
      tab.name = "PREFIX_" & tab.name
  end if
next

'-------------------------------------------------------------------------------'
' Rename all tables in a PDM (PowerDesigner 15)'
'-------------------------------------------------------------------------------'
Option Explicit

Dim model
set Model = ActiveModel ' Current active model'
If (model Is Nothing) Or (Not model.IsKindOf(PdPDM.cls_Model)) Then
   MsgBox "The current model is not a PDM model."
Else
   ProcessTables model
End If

'-----------------------------------------------------------------------------'
' Recursively process all tables.'
'-----------------------------------------------------------------------------'
Sub ProcessTables(package)
   Dim table
   For Each table In package.Tables
      ' Shortcuts are not processed (processing  of them'
      ' can lead to multiple renaming of a same table).'
      if not table.isShortcut then ' If condition can be also: table.ClassName = "Table"'
          table.name = "PREFIX_" & table.name
      end if
   Next

   ' Process tables defined in all subpackages.'
   Dim subpackage
   For Each subpackage in package.Packages
      If Not subpackage.IsShortcut Then
         ProcessTables subpackage
      End If
   Next
End Sub