word自动化排版宏

szqhb

选定第二段代码
ActiveDocument.Paragraphs(2).Range.Select

Anson4

感谢分享！

anxiolve

这个必须顶，感谢楼主，拿走了

｀.尛燦﹖

顶LZ，很好很强大

hhzjxss

测试一下看看，WORD用得少！谢谢！

deborth_cba

樓主 能否做到以下要求
頁邊距左邊3  右邊 3，  上面2   下面2
內容字體宋體 12  
標題加粗 宋體16 ，與上面表格1/2行距，與下面的正文也是1/2行距
附一個附件。

绝恋的情

学习下，谢谢分享

huangyun

进来学习。。

webcpa

非常感谢，有对word中表格自动排版的代码吗？谢谢

loquat

webcpa 发表于 2013-8-3 15:08
非常感谢，有对word中表格自动排版的代码吗？谢谢

1. Sub 表格边框()
   
2.     Dim i%, j%, k%
   
3.     Application.ScreenUpdating = False
   
4.     j = Selection.Tables.Count
   
5.     For i = 1 To j
   
6.         With Selection.Tables(i)
   
7.             Selection.ParagraphFormat.LineSpacing = LinesToPoints(1) '一倍行距
   
8.             Selection.Cells.VerticalAlignment = 1  '竖向居中
   
9.             Selection.Font.Size = 10.5   '字体
   
10.             ''''''还可以加很多其他操作
    
11.             For k = -1 To -6
    
12.                 With .Borders(i)
    
13.                     .LineStyle = wdLineStyleSingle
    
14.                     If i >= -4 Then
    
15.                         .LineWidth = wdLineWidth150pt
    
16.                     Else
    
17.                         .LineWidth = wdLineWidth050pt
    
18.                     End If
    
19.                 End With
    
20.             Next
    
21.         End With
    
22.         With Options
    
23.             .DefaultBorderLineStyle = wdLineStyleSingle
    
24.             .DefaultBorderLineWidth = wdLineWidth050pt
    
25.         End With
    
26.     Next i
    
27.     '''''还可以加很多其他操作
    
28.     Application.ScreenUpdating = True
    
29. End Sub

复制代码