精华内容
下载资源
问答
  • Word_2003应用

    2011-06-26 11:21:31
    四、利用域代码实现个性化功能 33 1.设置特殊页码 33 (1)一页两版文档的页码设置 33 (2)同一页面的两种页码设置 33 2.显示文档信息 34 (1)显示文档的名称和位置 34 (2)即时显示文档大小 34 (3)显示文档中的字符数 34...
  • word使用技巧大全

    热门讨论 2011-03-18 20:37:53
    99、Word中查找/替换通配符和代码 101 四十三、Word中公式编辑器的使用技巧 104 1、公式编辑器的启动与退出 104 四十四、Word文档设置多个不同的页眉页脚 107 四十五、Word 快捷键 108 四十六、Word 通配符 110 四十...
  • 因为更新部分有统一的格式,考虑利用Word文件的自定义属性和域功能实现自动更新这些常规内容。 主要包括:文档名,版本号(在文件名中有统一命名规则),文档更新日期,更新人员,核查人员等。通过文件自定义属性/...

    因工作需要,需要经常更新文档内容。每次更新后文件版本号等信息都需要一一更新,过于繁琐且容易遗漏。因为更新部分有统一的格式,考虑利用Word文件的自定义属性和域功能实现自动更新这些常规内容。

    主要包括:文档名,版本号(在文件名中有统一命名规则),文档更新日期,更新人员,核查人员等。通过文件自定义属性/域/宏结合使用,可以很好的实现文件版本号自动更新的问题。

    Modules代码:

    Option Explicit
    
    
    Public posIssueNo As Byte
    
    Sub Update()
    '
    ' NS_New Macro
    ' Macro created 03/08/2012 by Vico Song
    '
        ''''''''''''''''''''''''''''''''''''''''''''
        ''' Define variables  ''''''''''''''''''''''
        ''''''''''''''''''''''''''''''''''''''''''''
        Dim vProperties, vDefaultPropertyValue, vAuthors, vCheckers, v As Variant
        Dim i, lenDocName As Integer
        Dim b As Boolean
        Dim s As String
        
        
        ''''''''''''''''''''''''''''''''''''''''''''
        ''' Initial variables  '''''''''''''''''''''
        ''''''''''''''''''''''''''''''''''''''''''''
        vProperties = Array("_DocuName", _
                        "_IssueNumber", _
                        "_Prepared/Modified", _
                        "_Checked/Released", _
                        "_UpdateDate")
        vDefaultPropertyValue = Array("DD***xXXXXExx", _
                        "xx", _
                        "_AUTHOR_", _
                        "_CHECKER_", _
                        Date)
        ''' Add author to the list below
        vAuthors = Array("Luke Wang", _
                        "Vico Song")
        ''' add checker to the list below
        vCheckers = Array("Jason Li", _
                        "Kino Zhang", _
                        "Larry Yu", _
                        "Luke Wang", _
                        "Sean Lee")
    
        ''' Check the document name
        lenDocName = Len(ActiveDocument.Name)
        If lenDocName < 21 Then
            MsgBox ("E01: The file name is not defined by NEW or COPE numbering system!")
            Exit Sub
        End If
        
        If UCase(Left(ActiveDocument.Name, 2)) = "DD" And _
          UCase(Mid(ActiveDocument.Name, 9, 1)) = "E" And _
          IsNumeric(Mid(ActiveDocument.Name, 10, 2)) And _
          IsNumeric(Mid(ActiveDocument.Name, 13, 2)) Then
            posIssueNo = 13 ''' Numbering System NEW, file name like DDT10208E00_02-EN.doc
        ElseIf UCase(Left(ActiveDocument.Name, 2)) = "DD" And _
          UCase(Mid(ActiveDocument.Name, 11, 1)) = "E" And _
          IsNumeric(Mid(ActiveDocument.Name, 12, 2)) And _
          IsNumeric(Mid(ActiveDocument.Name, 15, 2)) Then
            posIssueNo = 15 ''' Numbering System COPE, file name like DDDEP10402E13_21-EN.doc
        Else
            MsgBox ("E02: The file name is not defined by NEW or COPE numbering system!")
            Exit Sub
        End If
        
        ''''''''''''''''''''''''''''''''''''''''''''
        ''' Check and create document properties '''
        ''''''''''''''''''''''''''''''''''''''''''''
        If UBound(vProperties) = UBound(vDefaultPropertyValue) Then
            For i = 0 To UBound(vProperties)
                Call CreateProperty(vProperties(i), vDefaultPropertyValue(i))
            Next
        Else
            MsgBox ("Error!!!" & vbCrLf & vbCrLf & "Please check VBA code!" & vbCrLf & vbCrLf & _
                "Tip: UBound(vProperties) != UBound(vDefaultPropertyValue)")
            Exit Sub
        End If
        
        
        ''''''''''''''''''''''''''''''''''''''''''''
        ''' Initial components of frm_docInput   '''
        ''''''''''''''''''''''''''''''''''''''''''''
        b = False
        s = ActiveDocument.CustomDocumentProperties("_Prepared/Modified")
        frm_docInput.cmb_Author.Clear
        For Each v In vAuthors
            frm_docInput.cmb_Author.AddItem (v)
            ''' set current default property value as combo box default value
            If v = s Then
                frm_docInput.cmb_Author.Value = v
                b = True
            End If
        Next
        ''' If current value of document property does not exist in the list,
        ''' add it into list and set it as combo box default value
        If Not b Then
            frm_docInput.cmb_Author.AddItem (s)
            frm_docInput.cmb_Author.Value = s
        End If
        
        b = False
        s = ActiveDocument.CustomDocumentProperties("_Checked/Released")
        frm_docInput.cmb_Checker.Clear
        For Each v In vCheckers
            frm_docInput.cmb_Checker.AddItem (v)
            ''' set current default property value as combo box default value
            If v = s Then
                frm_docInput.cmb_Checker.Value = v
                b = True
            End If
        Next
        ''' If current value of document property does not exist in the list,
        ''' add it into list and set it as combo box default value
        If Not b Then
            frm_docInput.cmb_Checker.AddItem (s)
            frm_docInput.cmb_Checker.Value = s
        End If
    
        s = ActiveDocument.CustomDocumentProperties("_UpdateDate")
        v = Date
        frm_docInput.cmb_Date.Clear
        If Not v = s Then frm_docInput.cmb_Date.AddItem (v)
        frm_docInput.cmb_Date.AddItem (s)
        frm_docInput.cmb_Date.Value = s
        
        frm_docInput.txt_docNo = Left(ActiveDocument.Name, posIssueNo - 2)
        frm_docInput.txt_issueNo = Mid(ActiveDocument.Name, posIssueNo, 2)
    
        frm_docInput.Show
    End Sub
    
    Public Sub CreateProperty(ByVal sPropertyName As String, ByVal sDefaultValue As String)
    '
    ' CreateProperty Macro
    ' Macro created 03/08/2012 by Vico Song
    '
        Dim bExist As Boolean
        Dim p As DocumentProperty
        
        bExist = False
        ''' Check all existed properties, if current property already exist
        For Each p In ActiveDocument.CustomDocumentProperties
            If p.Name = sPropertyName Then bExist = True
        Next
    
        ''' If current property does not exist, create.
        If Not bExist Then
            ActiveDocument.CustomDocumentProperties.Add _
                Name:=sPropertyName, LinkToContent:=False, Value:=sDefaultValue, _
                Type:=msoPropertyTypeString
        End If
    End Sub


    窗体frm_docInput代码:

    Option Explicit
    
    Private Sub btn_Cancel_Click()
        Unload Me
    End Sub
    
    Private Sub btn_OK_Click()
        ActiveDocument.CustomDocumentProperties("_DocuName") = frm_docInput.txt_docNo.Value
        ActiveDocument.CustomDocumentProperties("_IssueNumber") = frm_docInput.txt_issueNo.Value
        ActiveDocument.CustomDocumentProperties("_Prepared/Modified") = frm_docInput.cmb_Author.Value
        ActiveDocument.CustomDocumentProperties("_Checked/Released") = frm_docInput.cmb_Checker.Value
        ActiveDocument.CustomDocumentProperties("_UpdateDate") = frm_docInput.cmb_Date.Value
        
        ActiveDocument.StoryRanges(wdFirstPageFooterStory).Fields.Update
        ActiveDocument.StoryRanges(wdEvenPagesHeaderStory).Fields.Update
        ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Fields.Update
        
        Unload Me
    End Sub


    窗体界面:

     

    展开全文
  • Access 2007 VBA宝典 1/4

    2012-03-31 08:12:09
     2.2 使用Word模板创建格式化的Word文档  2.2.1 书签  2.2.2 文档属性  2.3 窗体文档  2.4 小结  第3章 使用Excel分析数据  3.1 将Access数据导出到未格式化的工作表  3.2 使用Excel模板创建填充...
  • Access 2007 VBA宝典 4/4

    2012-03-31 08:36:49
     2.2 使用Word模板创建格式化的Word文档  2.2.1 书签  2.2.2 文档属性  2.3 窗体文档  2.4 小结  第3章 使用Excel分析数据  3.1 将Access数据导出到未格式化的工作表  3.2 使用Excel模板创建填充...
  • Access 2007 VBA宝典 2/4

    2012-03-31 08:22:16
     2.2 使用Word模板创建格式化的Word文档  2.2.1 书签  2.2.2 文档属性  2.3 窗体文档  2.4 小结  第3章 使用Excel分析数据  3.1 将Access数据导出到未格式化的工作表  3.2 使用Excel模板创建填充...
  • Access 2007 VBA宝典 3/4

    2012-03-31 08:31:46
     2.2 使用Word模板创建格式化的Word文档  2.2.1 书签  2.2.2 文档属性  2.3 窗体文档  2.4 小结  第3章 使用Excel分析数据  3.1 将Access数据导出到未格式化的工作表  3.2 使用Excel模板创建填充...
  • 实例232 显示长日期格式的系统时间 实例233 实时显示系统时间 实例234 倒计时 9.4 使用JavaScript控制DOM 实例235 创建节点 实例236 添加节点 实例237 为下拉列表增加选项 实例238 删除下拉列表的选项 实例...
  • 实例232 显示长日期格式的系统时间 实例233 实时显示系统时间 实例234 倒计时 9.4 使用JavaScript控制DOM 实例235 创建节点 实例236 添加节点 实例237 为下拉列表增加选项 实例238 删除下拉列表的选项 实例...
  • 【说明】格式:作者,[版本号],资料来源,日期,[起止页号]。其中,《软件需求规格说明书》与《软件概要设计说明书》是必选的参考资料。 概述 模型划分【说明】数据模型的整体划分原则,分多少个package,为...
  • Visual Basic 2010入门经典.part1.rar

    热门讨论 2012-09-26 11:30:12
    12.5.5 格式日期和时间 217 12.5.6 获取当前的系统日期和时间 217 12.5.7 判断值是否为Date 218 12.6 总结 218 12.7 问与答 218 12.8 作业 219 12.8.1 测验 219 12.8.2 答案 219 12.8.3 练习 219 第十三...
  • Visual Basic 2010入门经典.part2.rar

    热门讨论 2012-09-26 11:47:21
    12.5.5 格式日期和时间 217 12.5.6 获取当前的系统日期和时间 217 12.5.7 判断值是否为Date 218 12.6 总结 218 12.7 问与答 218 12.8 作业 219 12.8.1 测验 219 12.8.2 答案 219 12.8.3 练习 219 第十三...
  • 实例196 日期格式有效性判断 实例197 常见日期格式使用 实例198 查看本地时区 实例199 简单的时区转换工具 9.3 System类的使用 实例200 查看常用系统属性 实例201 重定向标准输出 实例202 计算程序运行时间 ...
  • 实例196 日期格式有效性判断 实例197 常见日期格式使用 实例198 查看本地时区 实例199 简单的时区转换工具 9.3 System类的使用 实例200 查看常用系统属性 实例201 重定向标准输出 实例202 计算程序运行时间 ...
  • 实例196 日期格式有效性判断 实例197 常见日期格式使用 实例198 查看本地时区 实例199 简单的时区转换工具 9.3 System类的使用 实例200 查看常用系统属性 实例201 重定向标准输出 实例202 计算程序运行时间 ...
  • 实例196 日期格式有效性判断 实例197 常见日期格式使用 实例198 查看本地时区 实例199 简单的时区转换工具 9.3 System类的使用 实例200 查看常用系统属性 实例201 重定向标准输出 实例202 计算程序运行时间 ...
  • 实例196 日期格式有效性判断 实例197 常见日期格式使用 实例198 查看本地时区 实例199 简单的时区转换工具 9.3 System类的使用 实例200 查看常用系统属性 实例201 重定向标准输出 实例202 计算程序运行时间 ...
  • excel的使用

    2012-11-25 17:06:01
    首先打开“工具”菜单,单击“宏”命令中的“Visual Basic编辑器”,进入Visual Basic编辑环境,在“工程-VBAobject”栏中的当前表上单击鼠标右键,选择“插入”-“模块”,在右边栏创建下面的函数rrr,代码如下: ...
  • 实例171 将日期格式化为指定格式 实例172 判断月份最后一天 实例173 获得Windows系统已经运行的时间 实例174 获取当前日期与指定日期的绝对值 实例175 使用Shell函数打开记事本 实例176 获取系统环境信息 实例...
  • 实例171 将日期格式化为指定格式 实例172 判断月份最后一天 实例173 获得Windows系统已经运行的时间 实例174 获取当前日期与指定日期的绝对值 实例175 使用Shell函数打开记事本 实例176 获取系统环境信息 实例...
  • 读写Word文档 - 文本内容的处理 / 段落 / 页眉和页脚 / 样式的处理 读写Excel文件 - xlrd模块 / xlwt模块 Day16~Day20 - Python语言进阶 常用数据结构 函数的高级用法 - “一等公民” / 高阶函数 / Lambda函数 ...
  • 实例196 日期格式有效性判断 250 实例197 常见日期格式使用 252 实例198 查看本地时区 253 实例199 简单的时区转换工具 254 9.3 System类的使用 255 实例200 查看常用系统属性 255 实例201 重定向标准输出 256 实例...
  • 实例196 日期格式有效性判断 250 实例197 常见日期格式使用 252 实例198 查看本地时区 253 实例199 简单的时区转换工具 254 9.3 System类的使用 255 实例200 查看常用系统属性 255 实例201 重定向标准输出 256 实例...
  • 实例196 日期格式有效性判断 250 实例197 常见日期格式使用 252 实例198 查看本地时区 253 实例199 简单的时区转换工具 254 9.3 System类的使用 255 实例200 查看常用系统属性 255 实例201 重定向标准输出 256 实例...
  • 实例196 日期格式有效性判断 250 实例197 常见日期格式使用 252 实例198 查看本地时区 253 实例199 简单的时区转换工具 254 9.3 System类的使用 255 实例200 查看常用系统属性 255 实例201 重定向标准输出 256 实例...
  • PROJECT 2007宝典 9/9

    2012-04-01 19:13:00
    出版日期:2008-1-1 ISBN:9787115167699 字数:1046000 页码:587 -------------------------------------------------------------------------------- 无论是正在为小团队管理一个项目,还是监督一个数百人的协作...
  • PROJECT 2007宝典 8/9

    2012-04-01 19:11:45
    出版日期:2008-1-1 ISBN:9787115167699 字数:1046000 页码:587 -------------------------------------------------------------------------------- 无论是正在为小团队管理一个项目,还是监督一个数百人的协作...

空空如也

空空如也

1 2 3
收藏数 53
精华内容 21
关键字:

word域代码日期格式