会议标牌制作方法（单张）——手动 + 自动宏

413191246se

会议标牌制作方法（文字颠倒/手动）：——此方法也是我参照网上别人介绍的方法试验而成，谢谢网友！
==============================================================
* 新建文档，变为横向纸张。
* 插入一个1行2列的表格。
* 两个单元格都输入“办公室”三个字；选定两个单元格，字号设为初号/加粗/黑体（什么字体均可）。
* 选定左单元格文字，点击：格式菜单/文字方向/选定右边的选项（文字正向朝右）/确定。
* 选定右单元格文字，点击：格式菜单/文字方向？选定左边的选项（文字正向朝左）/确定。
* 拖动表格底边框向下伸展到页面边距处。
* 选定左、右两个单元格，点击“表格和边框”工具栏按钮，打开表格工具栏，点击“中部居中”按钮。
* 字体设置为130磅（在字号框中键入130回车）。
* 将表格边框线设为虚线，OK！（打印完毕纵向纸张观看即可。）
******下面是《会议标牌》自动宏制作方法：（宏代码）

1. Sub 会议标牌_单张()
   
2. '本宏未实际打印，页边距可自行调整，字体/字号等亦请自行调整。
   
3.     Dim i As String
   
4.     i = InputBox("请输入文字！", "会议标牌_单张", "办公室")
   
5.     If i = "" Then Exit Sub
   
6.     Documents.Add DocumentType:=wdNewBlankDocument
   
7.     With ActiveDocument.Styles(wdStyleNormal).Font
   
8.         If .NameFarEast = .NameAscii Then
   
9.             .NameAscii = ""
   
10.         End If
    
11.         .NameFarEast = ""
    
12.     End With
    
13.     With ActiveDocument.PageSetup
    
14.         .LineNumbering.Active = False
    
15.         .Orientation = wdOrientLandscape
    
16.         .TopMargin = CentimetersToPoints(3.17)
    
17.         .BottomMargin = CentimetersToPoints(3.17)
    
18.         .LeftMargin = CentimetersToPoints(2.54)
    
19.         .RightMargin = CentimetersToPoints(2.54)
    
20.         .Gutter = CentimetersToPoints(0)
    
21.         .HeaderDistance = CentimetersToPoints(1.5)
    
22.         .FooterDistance = CentimetersToPoints(1.75)
    
23.         .PageWidth = CentimetersToPoints(29.7)
    
24.         .PageHeight = CentimetersToPoints(21)
    
25.         .FirstPageTray = wdPrinterDefaultBin
    
26.         .OtherPagesTray = wdPrinterDefaultBin
    
27.         .SectionStart = wdSectionNewPage
    
28.         .OddAndEvenPagesHeaderFooter = False
    
29.         .DifferentFirstPageHeaderFooter = False
    
30.         .VerticalAlignment = wdAlignVerticalTop
    
31.         .SuppressEndnotes = False
    
32.         .MirrorMargins = False
    
33.         .TwoPagesOnOne = False
    
34.         .BookFoldPrinting = False
    
35.         .BookFoldRevPrinting = False
    
36.         .BookFoldPrintingSheets = 1
    
37.         .GutterPos = wdGutterPosLeft
    
38.         .LayoutMode = wdLayoutModeLineGrid
    
39.     End With
    
40.     ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
    
41.     ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
    
42.         2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
    
43.     Selection.TypeText Text:=i
    
44.     Selection.MoveRight Unit:=wdCell
    
45.     Selection.TypeText Text:=i
    
46.     Selection.Tables(1).Select
    
47.     Selection.Font.Bold = True
    
48.     Selection.Font.Name = "黑体"
    
49.     Selection.Font.Size = 42
    
50.     Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    
51.     Selection.HomeKey Unit:=wdLine
    
52.     Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    
53.     Selection.Orientation = wdTextOrientationDownward
    
54.     Selection.MoveRight Unit:=wdCell
    
55.     Selection.Orientation = wdTextOrientationUpward
    
56.     Selection.Tables(1).Select
    
57.     Selection.Rows.HeightRule = wdRowHeightAtLeast
    
58.     Selection.Rows.Height = CentimetersToPoints(15)
    
59.     Selection.SelectCell
    
60.     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
61.     Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    
62.     Selection.Font.Size = 130
    
63.     Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    
64.     Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    
65.     Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
66.     Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    
67.     Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
    
68.     Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    
69.     Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    
70.     Selection.HomeKey Unit:=wdLine
    
71.     ActiveWindow.View.TableGridlines = True
    
72. End Sub

复制代码

413191246se

代码看着挺多，其实都是录制宏（稍微简化）拼凑，此宏属纸上谈兵，并未实际打印，页边距/纸张方向请自行调试。

wcm_xp

点赞，我有收获

fypc2004

谢谢  有用