1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
| Sub 插入访谈(x)
Path = ActiveDocument.AttachedTemplate.FullName
Application.Templates(Path).BuildingBlockEntries(x).Insert Where:=Selection.Range, RichText:=True
With ActiveDocument.PageSetup
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(2.54)
.BottomMargin = CentimetersToPoints(2.54)
.LeftMargin = CentimetersToPoints(3.17)
.RightMargin = CentimetersToPoints(2.7)
.HeaderDistance = CentimetersToPoints(1)
.FooterDistance = CentimetersToPoints(1.3)
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
Application.Templates(Path).BuildingBlockEntries("访谈页眉").Insert Where:=Selection.Range, RichText:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.WholeStory
Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=True
With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
.Range.Font.Size = 9
.Range.Font.Name = "宋体"
.Range.Collapse Direction:=wdCollapseEnd
End With
End Sub
Sub 财务负责人(control As IRibbonControl)
Call 插入访谈("财务负责人")
End Sub
Sub 采购负责人(control As IRibbonControl)
Call 插入访谈("采购负责人")
End Sub
Sub 人力负责人(control As IRibbonControl)
Call 插入访谈("人力负责人")
End Sub
Sub 生产负责人(control As IRibbonControl)
Call 插入访谈("生产负责人")
End Sub
Sub 投融资负责人(control As IRibbonControl)
Call 插入访谈("投融资负责人")
End Sub
Sub 销售负责人(control As IRibbonControl)
Call 插入访谈("销售负责人")
End Sub
Sub 研发负责人(control As IRibbonControl)
Call 插入访谈("研发负责人")
End Sub
Sub 总经理(control As IRibbonControl)
Call 插入访谈("总经理")
End Sub
Sub 独立董事(control As IRibbonControl)
Call 插入访谈("独立董事")
End Sub
Sub 内审负责人(control As IRibbonControl)
Call 插入访谈("内审负责人")
End Sub
|