嵌套域试验

kingtau

前几天看到一个贴子说需要为分栏单独设置页码。
研究了一下，发现用VBA插入页码简单，如果要为分栏设置页码需要域嵌套。
分析了@413191246se先生的双栏页码，自己也录制宏试了试，感觉都稍复杂。
按官方文档反复尝试，成功用简单代码实现域嵌套，就是方法笨了点。
如果是两栏：p2的值为：page*2-1;page*2
如果是三栏：p2的值为：page*3-2;page*3-1;page*3

1. Sub 嵌套域试验()
   
2. Dim p2 As Field, p As Field
   
3.     With Selection
   
4.         .HomeKey 6
   
5.         Set p2 = .Fields.Add(.Range, -1, "=*2-1", False)
   
6.         p2.ShowCodes = True
   
7.         .MoveRight Count:=3
   
8.         Set p = .Fields.Add(.Range, -1, "page", False)
   
9.         p2.Update
   
10.     End With
    
11. End Sub

复制代码

cuanju

大赞。用vba代码插入域代码，比手工输入域代码简洁。