关于“413191246se”楼主发布的Word2003通用模板宏（公文版）2017-4-18(Win7)适用...

zdj8210

各位大神好，我下载了“413191246se”楼主制作的Word2003通用模板宏（公文版）2017-4-18(Win7).rar进行了试用于公文写作上，感觉和我想要的排版不一致，我用的是office2016。具体见附件，谢谢！能否按我上传的样式进行修改，我对VBA代码不懂。下面的压缩包里有两个文件，一个是用本宏排版的格式，另一个是按公文模版排版的理想格式，谢谢！

（公文版）排版情况(.zip

33.64 KB, 下载次数: 0

Word2003通用模板宏（公文版）2017-4-18(Win7).rar导入试用

413191246se

楼主，你好！——我的代码是2003上运行的，不知在你的2016上运行是否正常？如果正常，那么，你想要的格式，需要时间，因为和我的不同，请耐心等待……，我有时间看看能否为你做一下。

zdj8210

413191246se 发表于 2017-6-16 16:18
楼主，你好！——我的代码是2003上运行的，不知在你的2016上运行是否正常？如果正常，那么，你想要的格式， ...

好的，谢谢！我在2016上运行没发现错误，不过还有一个问题就是页码只显示横线，没有页码，不知道是不是2003版本和2016版本存在指令不同的情况。谢谢了

413191246se

楼主：
*也请你在Word2016中录制宏，比如录制《页面设置》宏，因为我的是2003，不一定适用于你的情况。
*公文一字线页码：试试重新插入一次，按 Alt+F8找到该宏。
*正文中样式：如“一级标题，3号黑体”，我怎么就不理解呢？Word2003内置样式“标题1”的格式是：2级标题，3号黑体。你为什么要改变大纲级别呢？
*示例计划文档中：文档分为两节，但我没找到分节符，页脚当成一个节录制了一个“公文纸张”宏。
*示例计划样式文档中：第1段落：我默认加粗，确定是黑体？不是英文Times New Roman？第4、7段落：未指明行距。（尾部版记部分：暂略！）
*楼主，本人水平比较低，能帮到则帮，不能帮敬请原谅！谢谢！——请试用下面的宏，继续反馈使用情况：
*请继续用原来的《公文》宏排版，再应用我的新宏（建议设置热键为F6--包括两个宏：文件头部设置和纸张设置，请打开《显示/隐藏编辑标记》来观察）：

1. Sub HeadText公文文件头()
   
2.     On Error Resume Next
   
3.     公文纸张
   
4.     Dim doc As Document
   
5.     Set doc = ActiveDocument
   
6. 
   
7.     With doc
   
8.         If .Paragraphs(2).Range Like "发文*" Then .Paragraphs(1).Range.Delete: .Paragraphs(1).Range.Delete '删除旧文件头
   
9.         .Content.InsertBefore Text:="000001" & vbCr & "密级" & vbCr & "急件" & vbCr & "□□□□□□文件" & vbCr & vbCr & vbCr & "发文字号〔" & Format(Date, "yyyy") & "〕" & "X号" & Space(18) & "签发人: 周大同" & vbCr & vbCr
   
10. 
    
11.         With .Range(0, .Paragraphs(3).Range.End) '前3段
    
12.             With .Font
    
13.                 .Name = "黑体"
    
14.                 .Size = 16 '三号
    
15.             End With
    
16.             With .ParagraphFormat
    
17.                 .Alignment = wdAlignParagraphJustify '两端对齐
    
18.                 .LineSpacingRule = wdLineSpaceExactly '固定值
    
19.                 .LineSpacing = 33.2
    
20.             End With
    
21.         End With
    
22. 
    
23.         With .Paragraphs(4).Range '第4段
    
24.             .Font.Name = "方正小标宋简体"
    
25.             .Font.Size = 45
    
26.             .Font.Color = wdColorRed '红色
    
27.         End With
    
28. 
    
29.         With .Range(.Paragraphs(5).Range.Start, .Paragraphs(6).Range.End).ParagraphFormat '5-6段
    
30.             .LineSpacingRule = wdLineSpaceExactly '固定值
    
31.             .LineSpacing = 23.7
    
32.         End With
    
33. 
    
34.         With .Range(.Paragraphs(8).Range.Start, .Paragraphs(9).Range.End).ParagraphFormat '8-9段
    
35.             .LineSpacingRule = wdLineSpaceExactly '固定值
    
36.             .LineSpacing = 32.3
    
37.         End With
    
38. 
    
39.         With .Paragraphs(7).Range '第7段
    
40.             .Font.Name = "仿宋_GB2312"
    
41.             .Font.Name = "Times New Roman"
    
42.         End With
    
43. 
    
44.         .Range(.Paragraphs(5).Range.Start, .Paragraphs(8).Range.End).Font.Size = 16 '5-8段/三号
    
45.         .Paragraphs(9).Range.Font.Size = 22 '二号
    
46.     End With
    
47. End Sub
    
48. Sub 公文纸张()
    
49.     With ActiveDocument.PageSetup
    
50.         .LineNumbering.Active = False
    
51.         .Orientation = wdOrientPortrait
    
52.         .TopMargin = CentimetersToPoints(3.45)
    
53.         .BottomMargin = CentimetersToPoints(3.25)
    
54.         .LeftMargin = CentimetersToPoints(2.8)
    
55.         .RightMargin = CentimetersToPoints(2.6)
    
56.         .Gutter = CentimetersToPoints(0)
    
57.         .HeaderDistance = CentimetersToPoints(1.5)
    
58.         .FooterDistance = CentimetersToPoints(2.47)
    
59.         .PageWidth = CentimetersToPoints(21)
    
60.         .PageHeight = CentimetersToPoints(29.7)
    
61.         .FirstPageTray = wdPrinterDefaultBin
    
62.         .OtherPagesTray = wdPrinterDefaultBin
    
63.         .SectionStart = wdSectionNewPage
    
64.         .OddAndEvenPagesHeaderFooter = False
    
65.         .DifferentFirstPageHeaderFooter = False
    
66.         .VerticalAlignment = wdAlignVerticalTop
    
67.         .SuppressEndnotes = False
    
68.         .MirrorMargins = False
    
69.         .TwoPagesOnOne = False
    
70.         .BookFoldPrinting = False
    
71.         .BookFoldRevPrinting = False
    
72.         .BookFoldPrintingSheets = 1
    
73.         .GutterPos = wdGutterPosLeft
    
74.         .LayoutMode = wdLayoutModeLineGrid
    
75.     End With
    
76. End Sub

复制代码

zdj8210

413191246se 发表于 2017-6-17 12:17
楼主：
*也请你在Word2016中录制宏，比如录制《页面设置》宏，因为我的是2003，不一定适用于你的情况。
* ...

413191246se你好，我这几天研究了一下，还是没研究出个所以然来，后面我用了另外一个大侠开发的“WORD公文处理加载项（２０１２０５２９）”，已完美解决我想要的公文问题，谢谢了

qcxyc

zdj8210 发表于 2017-6-22 09:19
413191246se你好，我这几天研究了一下，还是没研究出个所以然来，后面我用了另外一个大侠开发的“WORD公 ...

WORD公文处理加载项（２０１２０５２９）
能把这公开吗