WORD中用VBA设置标题格式

学习VS交流

WORD中用VBA设置标题格式

Sub test()
    Content = InputBox("请输入标题行有几行", "请输入", "")
    '设置首行格式(也即是标题格式)
    Selection.HomeKey Unit:=wdStory  '移至文首
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend  '选中首行
    Selection.ClearFormatting  '清除首行格式
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter  '设置首行居中对齐
    'Selection.ParagraphFormat.LineUnitBefore = 1  '设置首行段前间距1行
    'Selection.ParagraphFormat.LineUnitAfter = 1  '设置首行段后间距1行
    Selection.Font.Name = "黑体"  '设置首行字体为“微软雅黑”
    Selection.Font.Size = 22  '设置首行字号为18号
    Selection.Font.Bold = wdToggle  '设置首行字形为加粗
    Selection.EndKey Unit:=wdLine  '移至首行末尾
    Selection.TypeParagraph  '回车

End Sub


请大家帮我完善下这个代码
1、执行代码，弹出提示框，如标题有三行（如附件），就在输入框中输入　3
2、设置格式的范围，就是第1行至第3行。
3、设置完行3行格式后，光标返回到第3行末。
4、在第3行后，添加一个回车，也就是标题与正文空一行。

谢谢老师们了！

VBA设置标题.rar (7.44 KB, 下载次数: 83)

2015-1-20 17:45 上传

点击文件名下载附件

学习VS交流

请老师们帮帮忙！谢谢大家了！

413191246se

楼主，你试用我的——Word2003 通用模板（元旦版）（对了，前几天我把我的正宗模板已经发给你了，你用没用啊？）里面就有《清清爽爽》自动排版宏，其中Auto1宏你研究一下；另外，你说的行，其实应该叫做段落。（由于觉得你的问题没必要花时间弄，所以不折腾了。）

学习VS交流

413191246se 发表于 2015-1-20 23:18
楼主，你试用我的——Word2003 通用模板（元旦版）（对了，前几天我把我的正宗模板已经发给你了，你用没用啊 ...

朋友，非常感谢你多次帮助我!
很感激你！

我是想在自动执行排版时，同时设置标题的格式
由于标题格式，有时候，不光是一行，所以这儿想出这个办法，可能是个笨办法
不知道老师有没有什么更好的办法

413191246se

楼主，朋友，兄弟：其实最近几天，我也重新设计通用模板自动排版这个宏，现在也是在《标题一》怎么自动识别这个问题上停滞不前。一行标题，二行标题，都好处理。默认第一行就是标题一，第二行如果没有句号等标点符号，可以当成是二行标题一，也可以是《标题+标题一》这种格式；但是三行标题，可以是《标题+标题一+副标题》的样式，也可以是别的样式，我感觉用得不多，不好下结论……（其实行应该为段！样式来说：如果是一段，就是标题1；两段，可能是《标题+标题1》，也可能是《标题1+副标题》，但最近几年我倾向于喜欢《标题1+标题1》这种双行标题一样式；但是如果是双行标题，你怎么区分《标题+标题1》和《标题1+副标题》这两种样式组合呢？）
***你能举出几种文章的标题样式吗？让我看看，咱们共同研究。

413191246se

楼主，你到底用没用我的——Word2003 通用模板（元旦版）---正宗模板 啊！？里面有自动排版代码。

413191246se

对了，最近我给领导排版《述职报告》，格式是这样的：
述职报告
XXXXXXXX单位，某某某
2015年1月21日
***这种格式，与上面我讲的三行标题又不同，它的格式（样式）应该是：标题1+副标题+副标题（不是：标题+标题1+副标题），所以，三行标题不好判断到底是哪一种，我才没在我的模板中处理，只判断了单行和双行标题两种情况。
楼主，你怎么认为？

413191246se

如果只有一行标题，则这样处理标题：
Sub Auto1()
    With ActiveDocument
        .Paragraphs(1).Range.InsertParagraphBefore
        .Paragraphs(2).Range.InsertParagraphAfter
        With .Range(Start:=0, End:=.Paragraphs(3).Range.End)
            .Style = ActiveDocument.Styles(wdStyleHeading1)
            With .ParagraphFormat
                .SpaceBefore = 0
                .SpaceAfter = 0
                .LineSpacing = LinesToPoints(1.15)
                .Alignment = wdAlignParagraphCenter
                .AutoAdjustRightIndent = False
                .DisableLineHeightGrid = True
            End With
        End With
        .Paragraphs(1).Range.Font.Size = 21
        .Paragraphs(3).Range.Font.Size = 26
    End With
End Sub

学习VS交流

413191246se 发表于 2015-1-21 00:47
对了，最近我给领导排版《述职报告》，格式是这样的：
述职报告
XXXXXXXX单位，某某某

老师你好，我是这样处理的

先把标题都设置为二号宋体加粗

然后再根据　像老师说的这类情况　手动调整

我也没有想到更好的办法

学习VS交流

413191246se 发表于 2015-1-21 00:39
楼主，你到底用没用我的——Word2003 通用模板（元旦版）---正宗模板 啊！？里面有自动排版代码。

我用了老师的　自动排版　工具

还是很好用！
非常感谢分享！