option explicit
ValidationMode = true
InteractiveMode = im_Batch

if ActiveModel is nothing then
   MsgBox "There is no current Model"
elseif not ActiveModel.IsKindOf(PdPDM.cls_Model) Then
   MsgBox "The current model is not an Physical Data model."
else
   ProcessFolder ActiveModel
end If

private sub ProcessFolder(folder)
  dim tab
  dim ind

  for each tab in ActiveModel.tables
    if not tab.isShortcut then
      if tab.PhysicalOptions <> null or tab.PhysicalOptions <> "" then
        output tab.name & " : " & tab.PhysicalOptions
        tab.PhysicalOptions = ""
      end if
      for each ind in tab.indexes
        if not ind.isShortcut then
          if ind.PhysicalOptions <> null or ind.PhysicalOptions <> "" then
            output ind.name & " : " & ind.PhysicalOptions
            ind.PhysicalOptions = ""
          end if
        end if  
      next
    end if
  next

  dim package
   
  for each package In folder.Packages
    if not package.IsShortcut then
      ProcessFolder package
    end if
  next

end sub

Dim PDApp 
Set PDApp = CreateObject("PowerDesigner.Application.15.1") 

Dim PDM 
Set PDM = PDApp.OpenModel("d:\Job\Nav\StartTeamWorkFolder\Polyclinic\DB\PD Schema\ПоликлиникаEasy.pdm", omf_DontOpenView Or omf_Hidden) 

if Not (PDM Is Nothing) Then