电子文件头（宏）体验版 v1

413191246se

* 纯属纸上谈兵，并非和真实文件头（红头文件）相符，请朋友们体验一下，可以用方向键上下移动图形，文本框中的文字可以自行修改，仅为填补空白，提供一份辅助便利。

1. Sub 电子文件头()
   
2. 
   
3. '文本框（红头文件）
   
4.     Documents.Add
   
5.     ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 90#, 72#, 369#, 46.8).Select
   
6.     Selection.ShapeRange.TextFrame.TextRange.Select
   
7.     Selection.Collapse
   
8.     Selection.TypeText Text:="辽宁省朝阳市通用模板公司附属分公司文件"
   
9.     Selection.ShapeRange.Select
   
10.     With Selection.Font
    
11. '        .Name = "宋体"
    
12.         .Size = 36
    
13.         .Bold = True
    
14.         .Color = wdColorRed
    
15.         .Scaling = 50
    
16.     End With
    
17.     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
18.     Selection.ParagraphFormat.Alignment = wdAlignParagraphDistribute
    
19.     Selection.ShapeRange.Fill.Transparency = 1#
    
20.     Selection.ShapeRange.Line.Visible = msoFalse
    
21.     Selection.ShapeRange.LockAspectRatio = msoTrue
    
22.     Selection.ShapeRange.Height = 50
    
23.     Selection.ShapeRange.Width = 413
    
24.     Selection.ShapeRange.Left = wdShapeCenter
    
25. 
    
26. '文本框（文号）
    
27.     ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 198#, 125.4, 225#, 39#).Select
    
28.     Selection.ShapeRange.TextFrame.TextRange.Select
    
29.     Selection.ShapeRange.Select
    
30.     Selection.ShapeRange.Fill.Transparency = 1#
    
31.     Selection.ShapeRange.Line.Visible = msoFalse
    
32.     Selection.TypeText Text:="朝通模司字〔2015〕23号"
    
33.     Selection.ShapeRange.Select
    
34.     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
35.     Selection.Font.Size = 16
    
36.     Selection.Font.Name = "仿宋_GB2312"
    
37.     Selection.Font.Bold = True
    
38.     Selection.Font.Name = "Times New Roman"
    
39.     Selection.ShapeRange.Left = wdShapeCenter
    
40. 
    
41. '线条（右上宽高）
    
42.     ActiveDocument.Shapes.AddLine(89#, 174.6, 505#, 174.6).Select
    
43.     Selection.ShapeRange.Line.Weight = 4.5
    
44.     Selection.ShapeRange.Line.Style = msoLineThinThick
    
45.     Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)
    
46.     Selection.ShapeRange.Left = wdShapeCenter
    
47. 
    
48. '文本框（不透明，衬托五角星）
    
49.     ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 270#, 156.8, 42#, 40.8).Select
    
50.     Selection.ShapeRange.Line.Visible = msoFalse
    
51.     Selection.ShapeRange.Left = wdShapeCenter
    
52. 
    
53. '五角星
    
54.     ActiveDocument.Shapes.AddShape(msoShape5pointStar, 297#, 160.4, 27#, 25.65).Select
    
55.     Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)
    
56.     Selection.ShapeRange.Line.Weight = 0.25
    
57.     Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)
    
58.     Selection.ShapeRange.LockAspectRatio = msoTrue
    
59.     Selection.ShapeRange.Left = wdShapeCenter
    
60.     Selection.ShapeRange.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
    
61.     Selection.ShapeRange.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
    
62. 
    
63. '组合
    
64.     ActiveDocument.Shapes.Range(Array("Text Box 2", "Text Box 3", "Line 4", "Text Box 5", "AutoShape 6")).Select
    
65.     Selection.ShapeRange.Group.Select
    
66.     Selection.ShapeRange.LockAspectRatio = msoTrue
    
67. End Sub

复制代码

shenghua8

楼主程序写得好。
但使用的公文标准太老了。
还用的是双线和五角星。

请查阅《中华人民共和国国家标准 GB／T 9704—2012 党政机关公文格式》。

413191246se

谢谢楼上朋友！可能吧，我不太清楚公文标准，我现在不敢做《公文》宏，因为就怕做了不标准，贻误大家，此宏仅是为了做比成样，提供给大家一个体验而已。

shenghua8

标准是人定的。
其中不乏整体经验与人个喜好。
我个人也喜欢宋体，因为它兼容性好，用的不是GB2312字体集，任何版本的操作系统与WORD下，都能显示2万多汉字，与GB18030-2000相差无几。
但仿宋看多了，也就习惯了。大不了在XP系统下，不使用“仿宋_GB2312”，而是将Vista/win7/8等系统下的“仿宋”拷过去。
仿宋本是无所谓有，无所谓无的。这正如地上的路；其实地上本没有路，走的人多了，也便成了路。