VB在招标代理业务中的运用-招标采购小帮手

VB在招标代理业务中的运用

    政府采购、招标代理服务的业务中，有很多文件都需使用相关部门制定的范本、参考格式文件，例如政府采购项目须参照《政府采购公告和公示信息格式规范》（2020年版）编辑发布公告。
    一、发现、提出问题
    有无方法可以避免编辑、制作相同格式的文件，提升工作效率？
    二、思考问题
    每个项目在采购（包括单一来源、询价、竞争性谈判、竞争性磋商、公开招标）流程中都有相应的规范格式，不同的只是项目的具体信息，包括：项目名称、项目部编号、采购单位、预算金额、公告日期、开标时间等。想法：编写一个程序，通过程序将项目的具体信息进行查找、替换，变成需要的项目信息，保存替换后的文件。
   例如：项目名称用“re_xmmc”表示，项目编号用“re_xmbh”表示，代理机构用“re_dljg”表示等等。
    三、制定方案、对策
    1）选择本人比较熟悉的编程语言，Visual Basic 6.0，简称VB。
    2）定义关键字。把需要进行查找、替换的项目具体信息设置为关键字，添加固定前缀re_作为标识。
    3）编辑、制作word、excel模板文件。
    4）界面设计、代码开发。
    5）程序功能测试、代码完善。
    四、程序试用、检验效果
    五、反馈，功能完善。
    ![在这里插入图片描述](https://img-blog.csdnimg.cn/2fcfb558e6c54f7abdb81747691d4fe8.jpg?x-oss-process=image/watermark,type_ZHJvaWRzYW5zZmFsbGJhY2s,shadow_50,text_Q1NETiBAbHlsNDEyMzA2MTE=,size_20,color_FFFFFF,t_70,g_se,x_16#pic_center)
   ![在这里插入图片描述](https://img-blog.csdnimg.cn/1736ae326a8d4f20830c0a508a6d852e.jpg?x-oss-process=image/watermark,type_ZHJvaWRzYW5zZmFsbGJhY2s,shadow_50,text_Q1NETiBAbHlsNDEyMzA2MTE=,size_20,color_FFFFFF,t_70,g_se,x_16#pic_center)

招标代理-1

招标代理-2

  查找、替换功能函数代码：

Sub chazhaoth()  '查找替换调用模块

  If ysje <> "" Then
   ysw = Round(ysje / 10000, 2)
  End If

wrdApp.Selection.Find.Replacement.ClearFormatting   '项目编号
    With wrdApp.Selection.Find
        .Text = "re_xmbh"
        .Replacement.Text = xmbh
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    wrdApp.Selection.Find.Execute Replace:=wdReplaceAll
    
    wrdApp.Selection.Find.Replacement.ClearFormatting  '项目名称
    With wrdApp.Selection.Find
        .Text = "re_xmmc"
        .Replacement.Text = xmmc
        .Forward = True
        .Wrap = wdFindContinue
    End With
   wrdApp.Selection.Find.Execute Replace:=wdReplaceAll
    
    wrdApp.Selection.Find.Replacement.ClearFormatting   '采购单位
    With wrdApp.Selection.Find
        .Text = "re_cgdw"
        .Replacement.Text = cgdw
        .Forward = True
        .Wrap = wdFindContinue
    End With
    wrdApp.Selection.Find.Execute Replace:=wdReplaceAll

    wrdApp.Selection.Find.Replacement.ClearFormatting  '代理机构
    With wrdApp.Selection.Find
        .Text