能用vba实现自动排版吗？

bdlxzhf

工作中要打印出很多这样的文件。word文件中的行数是固定不变的，总是那么几行。
要是能按行指定字体、字号，以及缩进 量就太好咧。（排版)


谢谢各位达人。

bdlxzhf

补充下，文件中基本内容差不多，变化的只有文号[数码]、项目名称、抬头单位名、金额、时间。
很固定的格式，我也是用EXCEL自动生成的，弄到WORD里面，然后用宏处理成上面那样了，想再深入排版一下。

duquancai

bdlxzhf 发表于 2016-11-24 03:58
补充下，文件中基本内容差不多，变化的只有文号[数码]、项目名称、抬头单位名、金额、时间。
很固定的格式 ...

1. Sub shishi()
   
2.    With ActiveDocument.Content
   
3.       With .ParagraphFormat
   
4.          .LeftIndent = 0: .RightIndent = 0: .FirstLineIndent = 0
   
5.       End With
   
6.       .Collapse 1: .Expand 4: .Font.Name = "宋体": .Font.Size = 14
   
7.       .Move 4, 2: .MoveEnd 4, 3: .Font.Name = "黑体": .Font.Size = 22: .ParagraphFormat.Alignment = 1
   
8.       .Move 4, 2: .Expand 4: .Font.Name = "仿宋": .Font.Size = 16
   
9.       .Move 4, 1: .MoveEnd 4, ActiveDocument.Content.Paragraphs.Count - 9
   
10.       .Font.Name = "仿宋": .Font.Size = 16: .ParagraphFormat.FirstLineIndent = 32
    
11.       .Move 4, 1: .Expand 4: t1 = Len(.Text): .Move 4, 1: .Expand 4: t2 = Len(.Text)
    
12.       .MoveStart 4, -1: .ParagraphFormat.Alignment = 2: .MoveEnd 4, -1
    
13.       .ParagraphFormat.RightIndent = CentimetersToPoints(((t2 - t1) / 2 * 16) / 28.35)
    
14.    End With
    
15. End Sub

复制代码

bdlxzhf

谢谢啊，学习了。

bdlxzhf

老师，有点小问题：
1、第1行没有居中。
2、最后2行字体没设成仿宋三号，也没有尽量靠右

duquancai

bdlxzhf 发表于 2016-11-25 23:45
老师，有点小问题：
1、第1行没有居中。
2、最后2行字体没设成仿宋三号，也没有尽量靠右

我可是严格按照你附件做的，自己仔细核对你附件的要求

duquancai

bdlxzhf 发表于 2016-11-25 23:45
老师，有点小问题：
1、第1行没有居中。
2、最后2行字体没设成仿宋三号，也没有尽量靠右

第1段，你没有要求居中。
最后2段，你没要求仿宋三号，已经是靠到不能再靠右了（如果还要靠右，你得设置页边距，那不是我的事情！！！）

bdlxzhf

谢谢老师，是我写要求时没写全。呵~
下来我试着自己添加点语句，看能不能达到。
谢谢了。