'******************************************************************************
'* File:     name2comment.vbs
'* Title:    Name to Comment Conversion
'* Model:    Physical Data Model
'* Objects: Table, Column, View
'* Author:   steveguoshao
'* Created: 2013-11-29
'* Mod By:   
'* Modified: 
'* Version: 1.0
'* Memo:     Modify from name2code.vbs
'******************************************************************************


Option   Explicit 
ValidationMode   =   True 
InteractiveMode   =   im_Batch


Dim   mdl   '   the   current   model


'   get   the   current   active   model 
Set   mdl   =   ActiveModel 
If   (mdl   Is   Nothing)   Then 
      MsgBox   "There   is   no   current   Model " 
ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then 
      MsgBox   "The   current   model   is   not   an   Physical   Data   model. " 
Else 
      ProcessFolder   mdl 
End   If


'   This   routine   copy   name   into   comment   for   each   table,   each   column   and   each   view 
'   of   the   current   folder 
Private   sub   ProcessFolder(folder) 
      Dim   Tab   'running     table 
      for   each   Tab   in   folder.tables 
            if   not   tab.isShortcut   then 
                  tab.comment   =   tab.name 
                  Dim   col   '   running   column 
                  for   each   col   in   tab.columns 
                        col.comment=   col.name 
                  next 
            end   if 
      next


      Dim   view   'running   view 
      for   each   view   in   folder.Views 
            if   not   view.isShortcut   then 
                  view.comment   =   view.name 
            end   if 
      next


      '   go   into   the   sub-packages 
      Dim   f   '   running   folder 
      For   Each   f   In   folder.Packages 
            if   not   f.IsShortcut   then 
                  ProcessFolder   f 
            end   if 
      Next 
end   sub

1，默认注释列也没有的，你需要把要它开出来。找到一个“三角型加一支笔”的那个按扭点一下，你就明白怎么加了。Comment列哦。




2   PowerDesigner中批量根据对象的name生成comment的脚本


执行方法：Open PDM -- Tools -- Execute Commands -- Run Script

---------------------------------------------------执行以下

Option Explicit

ValidationMode = True

InteractiveMode = im_Batch


Dim mdl 'the current model


'get the current active model

Set mdl = ActiveModel

If (mdl Is Nothing) Then

MsgBox "There is no current Model"

ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then

MsgBox "The current model is not an Physical Data model."

Else

ProcessFolder mdl

End If


'This routine copy name into code for each table, each column and each view

'of the current folder

Private sub ProcessFolder(folder)

Dim Tab 'running table

for each Tab in folder.tables

if not tab.isShortcut then

tab.comment = tab.name

Dim col 'running column

for each col in tab.columns

col.comment= col.name

next

end if

next


Dim view 'running view

for each view in folder.Views

if not view.isShortcut then

view.comment = view.name

end if

next


'go into the sub-packages

Dim f 'running folder

For Each f In folder.Packages

if not f.IsShortcut then

ProcessFolder f

end if

Next

end sub

--------------------------------


2   PowerDesigner中逆向工程将数据库中comment脚本赋值到PDM的name


执行方法：Open PDM -- Tools -- Execute Commands -- Run Script

----------------------------------------------执行以下


Option Explicit

ValidationMode = True

InteractiveMode = im_Batch


Dim mdl 'the current model


'get the current active model

Set mdl = ActiveModel

If (mdl Is Nothing) Then

MsgBox "There is no current Model"

ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then

MsgBox "The current model is not an Physical Data model."

Else

ProcessFolder mdl

End If


'This routine copy name into code for each table, each column and each view

'of the current folder

Private sub ProcessFolder(folder)


Dim Tab 'running table

for each Tab in folder.tables

if not tab.isShortcut then

    if len(tab.comment) <> 0 then

         tab.name = tab.comment

    end if

    On Error Resume Next

    Dim col 'running column

    for each col in tab.columns

        if len(col.comment) <>0 then

            col.name =col.comment

         end if

        On Error Resume Next

   next

end if

next

end sub

一、添加默认注释
1、新建一个TXT文档，将要添加的注释写在文档中
2、再将文档名改为：ActionTemplate.mst
3、将文件放到QTP安装目录（默认为：C:\Program Files\HP\QuickTest Professional）的dat文件夹中
 
在文件中写入注释的内容如下：

'**********************************************
'作者：
'创建时间：
'更新人：
'更新时间：
'函数名称：
'函数说明：
'参数说明：
'[1]
'[2]
'返回结果：
'调用举例Call
'**********************************************

保存后，重新启动QTP，这样在脚本中每次创建的Action都会包含模板中的内容，省去了不少重复工作。
 
二、调用外部vbs文件
1、将通用函数写在一个vbs文件中，以供其他脚本调用
2、调用外部VBS文件中的通用函数的方法（二选一即可），设置完后在QTP中直接使用函数名进行调用：
　　1）通过在QTP中设置：file-->settings-->Resource-->“添加VBS文件的路径“
     
 
　　2）在脚本中使用Executefile语句：Executefile "VBS文件路径"
　　
 
本事例程序代码：demo
转载于:https://www.cnblogs.com/yangxia-test/p/3328254.html

转自FK之不做愤青
 Vc下面可以直接录制宏（Tools->Record quick Macros），这样可以把鼠标，键盘动作录制下来，录制以后可以编辑，（Tools->Macro,选中宏名称，点 EDIT 就可以进入宏文件中进行编辑）。默认的存储文件名是 MYMACRO.DSM，也可以直接打开编辑.   编辑代码是用vbs 写的，代码如下：
'------------------------------------------------------------------------------
'FILE DESCRIPTION: New Macro File
'------------------------------------------------------------------------------
Sub FunctionHead()
'DESCRIPTION: 函数注释 标准格式
'Begin Recording
ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//"
 ActiveDocument.Selection = "/*"
 for i=0 to 100
     ActiveDocument.Selection = "="
 next
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//函数名：" 
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//作者：" 
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//日期：" 
 ActiveDocument.Selection = Date  
 ActiveDocument.Selection = "  " 
 ActiveDocument.Selection = Time 
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//功能："
 ActiveDocument.Selection.NewLine 
 ActiveDocument.Selection = "//输入参数：" 
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//返回值：" 
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//修改记录：" 
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//备注：" 
ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//"
 for i=0 to 100
     ActiveDocument.Selection = "="
 next
  ActiveDocument.Selection = "*/"  
ActiveDocument.Selection.NewLine
'End Recording
End Sub

Sub FileHead()
'DESCRIPTION: 文件注释 标准格式
'Begin Recording
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//"
 ActiveDocument.Selection = "/*"
 for i=0 to 100
     ActiveDocument.Selection = "="
 next
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//文件名：" & ActiveDocument.Name
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//作者：" 
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//日期：" 
 ActiveDocument.Selection = Date    
 ActiveDocument.Selection = "  " 
 ActiveDocument.Selection = Time 
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//功能："
 ActiveDocument.Selection.NewLine 
' ActiveDocument.Selection = "//输入参数：" 
 'ActiveDocument.Selection.NewLine
' ActiveDocument.Selection = "//返回值：" 
' ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//修改记录：" 
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//备注：" 
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "//"
 for i=0 to 100
     ActiveDocument.Selection = "="
 next
  ActiveDocument.Selection = "*/"  
  ActiveDocument.Selection.NewLine
'End Recording
End Sub
   在写完宏后，可以选择 Tools->Macro->Option ->Toolbats,把新制作的宏做成按钮显示，然后选择一个配套的icon，就可以在需要时直接加入注释了，很方便的哦，如果不够你还可以添加快捷键完全使用键盘操作。