k访谈提纲

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