MicrosoftWord2010下的VBA宏：生成标题提纲

最新推荐文章于 2023-08-29 10:13:46 发布
最新推荐文章于 2023-08-29 10:13:46 发布
阅读量385 收藏 2
点赞数
原文链接：https://my.oschina.net/Tsybius2014/blog/331950
版权

编写本脚本的Office版本：Microsoft Office 2010

本段脚本，可以用来生成一个需求分析文档的提纲：

174618_Al4j_1425762.png

在上方的“视图→宏（最右边）→查看宏”中，创建一个宏，添加如下代码：

'宏名称：DemandAnalysis
'宏功能：生成需求分析模版
Sub DemandAnalysis()

    '设置标题自动编号
    SetNumber
    
    WriteTitle "需求分析文档"
     
    '引言
    WriteHeadline "引言", 1
    WriteWord "在这里输入正文"
    WriteHeadline "编写目的", 2
    WriteWord "在这里输入正文"
    WriteHeadline "项目风险", 2
    WriteWord "在这里输入正文"
    WriteHeadline "文档约定", 2
    WriteWord "在这里输入正文"
    WriteHeadline "预期读者和阅读建议", 2
    WriteWord "在这里输入正文"
    WriteHeadline "产品范围", 2
    WriteWord "在这里输入正文"
    WriteHeadline "参考文献", 2
    WriteWord "在这里输入正文"
     
    '综合描述
    WriteHeadline "综合描述", 1
    WriteWord "在这里输入正文"
    WriteHeadline "产品的状况", 2
    WriteWord "在这里输入正文"
    WriteHeadline "产品的功能", 2
    WriteWord "在这里输入正文"
    WriteHeadline "用户类和特性", 2
    WriteWord "在这里输入正文"
    WriteHeadline "运行环境", 3
    WriteWord "在这里输入正文"
    WriteHeadline "设计和实现上的限制", 3
    WriteWord "在这里输入正文"
    WriteHeadline "假设和约束", 3
    WriteWord "在这里输入正文"
     
    '外部接口需求
    WriteHeadline "外部接口需求", 1
    WriteWord "在这里输入正文"
    WriteHeadline "用户界面", 2
    WriteWord "在这里输入正文"
    WriteHeadline "硬件接口", 2
    WriteWord "在这里输入正文"
    WriteHeadline "软件接口", 2
    WriteWord "在这里输入正文"
    WriteHeadline "通讯接口", 2
    WriteWord "在这里输入正文"
     
    '系统功能需求
    WriteHeadline "系统功能需求", 1
    WriteWord "在这里输入正文"
    WriteHeadline "说明和优先级", 2
    WriteWord "在这里输入正文"
    WriteHeadline "激励/响应序列", 2
    WriteWord "在这里输入正文"
    WriteHeadline "输入/输出数据", 2
    WriteWord "在这里输入正文"
    
    '其他非功能需求
    WriteHeadline "其他非功能需求", 1
    WriteWord "在这里输入正文"
    WriteHeadline "性能需求", 2
    WriteWord "在这里输入正文"
    WriteHeadline "安全措施需求", 2
    WriteWord "在这里输入正文"
    WriteHeadline "安全性需求", 2
    WriteWord "在这里输入正文"
    WriteHeadline "软件质量属性", 2
    WriteWord "在这里输入正文"
    WriteHeadline "业务规则", 2
    WriteWord "在这里输入正文"
    WriteHeadline "用户文档", 2
    WriteWord "在这里输入正文"
    
    '词汇表
    WriteHeadline "词汇表", 1
    WriteWord "在这里输入正文"
    
    '数据定义
    WriteHeadline "数据定义", 1
    WriteWord "在这里输入正文"
    
    '分析模型
    WriteHeadline "分析模型", 1
    WriteWord "在这里输入正文"
    
    '待定问题列表
    WriteHeadline "待定问题列表", 1
    WriteWord "在这里输入正文"
    
    '附录
    'WriteHeadline "附录A", 1
    'WriteWord "在这里输入正文"
    
End Sub

'例程：设置标题自动编号
Sub SetNumber()

    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = "%1"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0.76)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "标题 1"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(2)
        .NumberFormat = "%1.%2"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.02)
        .TabPosition = wdUndefined
        .ResetOnHigher = 1
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "标题 2"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(3)
        .NumberFormat = "%1.%2.%3"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.27)
        .TabPosition = wdUndefined
        .ResetOnHigher = 2
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "标题 3"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(4)
        .NumberFormat = "%1.%2.%3.%4"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.52)
        .TabPosition = wdUndefined
        .ResetOnHigher = 3
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "标题 4"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(5)
        .NumberFormat = "%1.%2.%3.%4.%5"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.78)
        .TabPosition = wdUndefined
        .ResetOnHigher = 4
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "标题 5"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(6)
        .NumberFormat = "%1.%2.%3.%4.%5.%6"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(2.03)
        .TabPosition = wdUndefined
        .ResetOnHigher = 5
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "标题 6"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(7)
        .NumberFormat = "%1.%2.%3.%4.%5.%6.%7"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(2.29)
        .TabPosition = wdUndefined
        .ResetOnHigher = 6
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "标题 7"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(8)
        .NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(2.54)
        .TabPosition = wdUndefined
        .ResetOnHigher = 7
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "标题 8"
    End With
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(9)
        .NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8.%9"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(2.79)
        .TabPosition = wdUndefined
        .ResetOnHigher = 8
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "标题 9"
    End With
        
End Sub

'例程：书写文章大标题
Sub WriteTitle(Word As String)

    Selection.Font.Name = "黑体"
    Selection.Font.Size = 24
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.TypeText Text:=Word
    Selection.TypeParagraph

End Sub

'例程：书写“标题 1”-“标题 6”
Sub WriteHeadline(Word As String, Level As Integer)

    Selection.Style = ActiveDocument.Styles("标题 " & Level)
    ActiveWindow.DocumentMap = True
    Selection.TypeText Text:=Word
    Selection.TypeParagraph

End Sub

'例程：书写正文
Sub WriteWord(Word As String)

    Selection.Font.Name = "宋体"
    Selection.Font.Size = 10.5
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    Selection.TypeText Text:="    " & Word '自然段前要加空格
    Selection.TypeParagraph
    
End Sub

'例程：清空全部文字（测试例程）
Sub Clean()
    
    Selection.WholeStory
    Selection.TypeBackspace
    
End Sub

 

运行后就可以生成一个自动编号标题的需求分析文档了

如果要把这段代码用于生成其他的文档标题提纲，只需要在例程（Sub）DemandAnalysis()中，调用如下的函数：

1）SetNumber：调用SetNumber例程，为标题自动编号。这个例程在开始调用且仅调用一次

2）WriteTitle：例程，用于撰写居中的标题，在该例程中可以设置标题的字体等样式

3）WriteHeadline：例程，撰写标题，第一个参数为标题的文字，第二个参数是一个数字，代表了标题的级别（1级标题字体最大）

4）WriteWord：例程，撰写正文

END

转载于:https://my.oschina.net/Tsybius2014/blog/331950

chenzai1946
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
word2010批量修改表格内指定单元格内容（VBA）
03-08
工作中经常遇到对word的批量操作，如果重复的操作达到上百甚至更多后，也是不小的工作量，在此可以使用word的宏来自动执行重复的操作，提高办公效率，特写文档举列说明具体使用
VBA在WORD中给表格外的字体设置为标题
ajsyipsc40270的博客
08-09 355
使用VB可以将表外的字体设置标题字体实际操作如下： VB代码如下： Sub oliver_1() Selection.EndKey Unit:=wdStory '光标移到文末 For i = 1 To ActiveDocument.Tables.Count '有几个表格，下面操作就循环几次 With Application.Browser ...
Word 2010 中的 VBA 入门
yiling2012的专栏
06-07 1851
摘要：  介绍新程序员使用 Visual Basic for Applications (VBA) 编程来扩展 Microsoft Word 2010。本主题汇总了 VBA 语言、有关如何访问 Word 2010 中的 VBA 的说明、实际 Word VBA 编程问题的详细解决方案以及有关如何编程和调试的提示。 上次修改时间： 2015年5月11日 适用范围： Office 2
Word VBA-标题设置
xinlan3618的博客
05-28 3041
========================== ========================== ========================== ========================== ========================== ========================== ========================== ========================== ========================== ====
VBA操作WORD（八）设置标题格式（含主、副标题）
rielzhou的博客
07-27 2003
因为主标题和副标题一般都是包含一两句子的段落，所以参数直接传入Paragraph。至于判断主副标题的规则则外面调用部分再做判断。需要注意的是，上述代码对于只有两个或以内段落的文档而言，会报错，因为标题下方插入空行需要判断第三行，如果没有第三行，自然会出错。调用主标题和副标题设置，并且在标题下方增加一空行（注意，不是段后一行的高度，两者不是一回事）。主副标题判断的逻辑见注释。
Word VBA批量为Word文档添加水印 宏文档/源代码
07-11
提前将水印效果的图片处理好（用Word、PPT、PS都可以）。 然后用此功能直接选择文件，就可以批量为Word文档添加水印了。 无论下面有多少层文件夹，都可以将每层文件夹里的docx和doc文件全部添加上想要的水印。 省...
JavaWord:Microsoft Word作为Java“ IDE”
05-16
要生成并运行，请单击“视图”选项卡下的“宏”。 确保选择了JavaWord ，然后单击运行。 向快速访问工具栏添加快捷方式 要将快捷方式添加到快速访问工具栏中的宏中（如上面的示例所示），请按照下列步骤操作： ...
WPS VBA宏使用权限
最新发布
05-06
在IT行业中，VBA（Visual Basic for Applications）是一种强大的编程语言，主要用于自动化和扩展Microsoft Office应用程序的功能。在WPS Office中，VBA同样被用来创建宏，实现文档处理的自动化和自定义功能。本篇...
批量生成excle转word文件.rar_VBA 生成word_VBa_drawevx_批量_批量填写word
09-21
标题 "批量生成excel转word文件.rar_VBA 生成word_VBa_drawevx_批量_批量填写word" 提供的关键信息是使用VBA（Visual Basic for Applications）编程来批量处理Excel和Word文件。这个过程通常涉及到自动化工作流程，...
WPS.vba宏启用自动生成GenerateDBSql
07-15
在这个特定的场景中，"WPS.vba宏启用自动生成GenerateDBSql"指的是使用VBA宏在WPS Office（一款与Microsoft Office类似的办公软件）中自动创建数据库SQL语句。 WPS Office虽然主要被设计为文字处理、电子表格和演示...
Word-VBA 格式化多级列表和自定义列表
10-19
word vba script for format the muti-level title and single-level level, support the bullet style and number style.
就这样享用Word快速、轻松地掌握Word样式、自动编号、规范创建文档、自序、自动文献编号宏、超级目录&索引、显隐按钮等
10-06
史上最啰嗦的一本Word书，事实上，这些啰里啰唆中蕴含着一种力量，一种令人敬佩的力量。这种力量并不是来自啰嗦，而是来自啰嗦背后，来自一个怀抱理想、背负责任、充满激情的作者，以往没有讲透或未曾涉及的那些Word技巧和难点，在这本书中讲透了。作者在向你传授技术的同时，向你传授了思想。 本书正是旨在让广大Word用户快速、轻松地掌握Word样式、自动编号、规范创建文档、自序、自动文献编号宏、超级目录&索引、显隐按钮等真正实用、常用、经典、精华的Word高级技能。让大家从此快速、轻松、漂亮地完成以往令人头痛的种种选定、设置、修改、调整……，从以往大量枯燥的重复劳动中解脱出来，省下宝贵时间、赢得快乐心情、更好地享受精彩生活。
word目录编号的制定
03-21
怎样让word的各段链接到目录，可以展开、收拢。可以自定义格式等。
使用VBA提取WORD中的各级标题
hohoyu的专栏
08-29 1337
上述程序将WORD中的三级标题依次提取至EXCEL(程序中需要先生成excelapp对象)当前sheet的前三列中。
vba word 查找_VBA实践+按章节标题提取（保留）word文档内容
weixin_39524636的博客
12-11 3591
VBA实践+按章节标题提取（保留）word文档内容声明：在进行操作前，请备份文档！有这样一个文档，它的导航结构图如下所示，这些章节标题都设置好了样式和大纲级别，结构层次清晰易懂。一章的内容一般由基本知识和自测题两部分构成。现在要求：1.把红框内的章节保留在文档内形成一个新文档，以便对其进行整理后导入到excel中形成题库。这些章节的特点是以“附参考答案”结尾，但其大纲级别不同，有的是2级，有的是3...
使用VBA将大纲级别定义良好的单个Word文档按指定的大纲样式分割成多个文档
yivifu的专栏
07-03 1465
本文介绍了一个按文章章节分割word文档的宏。
【用VBA实现Word自动打印序列号】
yipiantian的博客
04-18 3040
vba宏编程
VBA操作WORD（七）设置每一级大纲式样
rielzhou的博客
07-27 1779
但是有两个弊端，一是将内容复制到另外一份word文档的时候，会变成目标word所设置的式样。二是大纲标题有点，不适合公文等场合（或许可以设置去掉，不过我不知道）。
vba 在光标插入文字_Word vba:把从excel拷贝来的文字粘贴到word中并进行排版（添加多级列表+添加目录+设置标题副标题作者及段落样式）...
weixin_39791349的博客
12-11 1560
此代码可能运行几次才能成功 重启一下电脑容易一次成功 Excel中的文字如下(A列和B列) 结果如下： vba代码如下： Sub把从excel拷贝来的文字粘贴到word中并进行排版() '主程序,此代码在word中执行 Dim a As Object '定义一个object型变量 Dim m, n, i As Long '定义3个long型整数变量 Set a = CreateObjec...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值