VBA代码求助 将每个学生表显示在一页中

小花鹿

单位同事让我帮他做，我不知道如何写代码，同样格式的WORD文档比较多，不适合手工操作
现有一个WORD文档，里面有两个学生表，分别是学生1和学生2，这两个表行数都比较多，因此，表会显示在多个页面上，想让每个学生表显示在一个页面上，可以调整行高和列宽，也可以调整字号大小，但在调整字号大小时要按比例调整，也就是在原来字号的基础上都调小1号或几号
附件如下：
每个表显示在一页.rar (5.2 KB, 下载次数: 21)

2016-11-18 18:34 上传

点击文件名下载附件

duquancai

花鹿兄也来。。。。。凑热闹来的吧！

小花鹿

duquancai 发表于 2016-11-18 19:29
花鹿兄也来。。。。。凑热闹来的吧！

正想邀请老兄你来帮忙呢，没想到你真来了，谢谢光临
跟你学了一点XLS和DOC之间的数据互换，但对WORD格式的调整真的不会，同事有多个类似的WORD文档要调整，方便打印，我不会，所以，求助来了，如果你老兄有空，帮忙做一下，谢谢

小花鹿

duquancai 发表于 2016-11-18 19:29
花鹿兄也来。。。。。凑热闹来的吧！

WORD版块人不多，我发了两个，一个在EXCEL版，一个在WORD版试试运气，经常在WORD版看到你，我也经常来，但都是看看，没有能力回复

duquancai

小花鹿 发表于 2016-11-18 19:41
正想邀请老兄你来帮忙呢，没想到你真来了，谢谢光临
跟你学了一点XLS和DOC之间的数据互换，但对WORD格式 ...

我写了一个，你先凑合用，根据你的能力，修改一下吧！

1. Sub shiishi()
   
2.    Dim tb As Table, cl As Cell, i As Paragraph
   
3.    For Each tb In ActiveDocument.Tables
   
4.       s1 = tb.Range.Cells(1).Range.Information(wdActiveEndPageNumber)
   
5.       s = tb.Range.Cells(tb.Range.Cells.Count).Range.Information(wdActiveEndPageNumber)
   
6.       If s1 <> s Then
   
7.          Do
   
8.             n = n + 1
   
9.             tb.Range.Columns(2).Width = 40 * n
   
10.             tb.Rows.Alignment = wdAlignRowCenter
    
11.             tb.PreferredWidthType = wdPreferredWidthPercent
    
12.             tb.PreferredWidth = 100
    
13.             s = tb.Range.Cells(tb.Range.Cells.Count).Range.Information(wdActiveEndPageNumber)
    
14.          Loop Until s1 = s
    
15.       End If
    
16.       n = 0
    
17.    Next
    
18. End Sub

复制代码

duquancai

花鹿兄，我写了一个，不过是根据你附件的特点来写的，附件测试没问题。在审核代码。你看看吧！

小花鹿

duquancai 发表于 2016-11-18 20:12
花鹿兄，我写了一个，不过是根据你附件的特点来写的，附件测试没问题。在审核代码。你看看吧！

谢谢你了，我不会写，但理解了你的代码，我小范围修改一下还是可以的，谢谢

duquancai

小花鹿 发表于 2016-11-18 19:47
WORD版块人不多，我发了两个，一个在EXCEL版，一个在WORD版试试运气，经常在WORD版看到你，我也经常来， ...

图片，自己调整一下》》》》》》》

小花鹿

duquancai 发表于 2016-11-18 20:12
花鹿兄，我写了一个，不过是根据你附件的特点来写的，附件测试没问题。在审核代码。你看看吧！

许个愿望，有机会碰到你，请你吃饭，哈哈

duquancai

小花鹿 发表于 2016-11-18 20:20
许个愿望，有机会碰到你，请你吃饭，哈哈

代码还在审核中，图片我修改了，你看看！！！