乘法口诀表（小九九）宏

413191246se

* 最近在默诵《乘法口诀表》（小九九）时竟然把 7 x 9 误会为 83，反复思考才得知是 63！好久没背诵了。
* 正好网上说这也算是一道编程题，遂今天中午就练习编写，最后误打误撞就成功了，此宏可以锻炼记忆力。
* 如果想打印的话，请自行打几下回车，使之在纸张正中才美观好看，现在呈现效果是在屏幕上正好合适。

1. Sub a0907_MultiplicationTable()
   
2. '乘法口诀表（小九九）
   
3.     Dim i&, j&
   
4. 
   
5.     Documents.Add
   
6. 
   
7.     With Selection
   
8.         For j = 1 To 9
   
9.             For i = 1 To 9
   
10.                 .TypeText Text:=i & " x " & j & " = " & i * j & Chr(-24159)
    
11.                 If i = j Then .TypeParagraph: Exit For
    
12.             Next
    
13.         Next
    
14.         .HomeKey 6
    
15.     End With
    
16. 
    
17.     With ActiveDocument
    
18.         With .Content
    
19.             .Find.Execute "(?)(^13)", , , 1, , , , , , "\2", 2
    
20.             With .Font
    
21.                 .NameAscii = "Times New Roman"
    
22.                 .Size = 15
    
23.                 .Bold = True
    
24.             End With
    
25.             .InsertBefore Text:="乘法口诀表" & vbCr
    
26.         End With
    
27. 
    
28.         With .Paragraphs(1)
    
29.             .Style = wdStyleHeading1
    
30.             .SpaceBefore = 0
    
31.             .SpaceAfter = 0
    
32.             .Range.Underline = wdUnderlineDouble
    
33.         End With
    
34. 
    
35.         With .PageSetup
    
36.             .Orientation = wdOrientLandscape
    
37.             .TopMargin = CentimetersToPoints(0.3)
    
38.             .BottomMargin = CentimetersToPoints(2.5)
    
39.             .LeftMargin = CentimetersToPoints(2.54)
    
40.             .RightMargin = CentimetersToPoints(2.54)
    
41.             .PageWidth = CentimetersToPoints(29.7)
    
42.             .PageHeight = CentimetersToPoints(21)
    
43.         End With
    
44.     End With
    
45. 
    
46.     With ActiveWindow.ActivePane.View
    
47.         .Zoom.PageFit = wdPageFitFullPage
    
48.         .Zoom.PageFit = wdPageFitBestFit
    
49.         .ShowAll = False
    
50.     End With
    
51. 
    
52.     Selection.MoveUp Unit:=wdScreen, Count:=1
    
53. End Sub

复制代码

413191246se

* 精简版本：

1. Sub MultiplicationTable()
   
2. '乘法口诀表（小九九）
   
3.     Dim i&, j&
   
4.     Documents.Add
   
5.     With Selection
   
6.         .TypeText Text:="乘法口诀表" & vbCr
   
7.         For j = 1 To 9
   
8.             For i = 1 To 9
   
9.                 .TypeText Text:=i & " x " & j & " = " & i * j & Chr(-24159)
   
10.                 If i = j Then .TypeParagraph: Exit For
    
11.             Next
    
12.         Next
    
13.         With .PageSetup
    
14.             .TopMargin = CentimetersToPoints(1.5)
    
15.             .LeftMargin = CentimetersToPoints(1.5)
    
16.             .RightMargin = CentimetersToPoints(1.5)
    
17.         End With
    
18.     End With
    
19. End Sub

复制代码

lk987655

CentimetersToPoints,这个过程没有写

413191246se

楼上朋友，你好！——我重新录制了一下段落宏，发现 间距直接写 .SpaceAfter=0 即可，而 左缩进 要写成 .LeftIndent = .CentimeterstoPoints(0)，没问题。

HTbaican

感谢楼主分享！！！

dongdonggege

我的是PowerPoint的，有些问题，不能换行，请指点，谢谢。