不分节实现首页无页码

Preeza

学习了！谢谢！

loquat

1. Sub 嵌套域4()
   
2. Dim aRange As Range, aField As Field
   
3. With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
   
4.     Set aRange = .Range
   
5.     aRange.Fields.Add aRange, wdFieldEmpty, "if  < 2 " & Chr(34) & Chr(34) & " ", False
   
6.     aRange.SetRange 5, 5
   
7.     aRange.Fields.Add aRange, wdFieldEmpty, "page", False
   
8.     aRange.SetRange 23, 23
   
9.     aRange.Fields.Add aRange, wdFieldEmpty, "=-1", False
   
10.     aRange.SetRange 26, 26
    
11.     aRange.Fields.Add aRange, wdFieldEmpty, "page", False
    
12.     aField.Update
    
13. End With
    
14. End Sub

复制代码

banjinjiu

loquat 发表于 2014-8-6 00:19

运行到这句“aField.Update”，出现运行错误91，对象变量或with块变量未设置。
我觉得改成“aRange.Fields.Update”较好，未发现错误。
另外向你请教下：aRange.SetRange 5, 5，这是什么意思？

loquat

banjinjiu 发表于 2014-8-8 20:36
运行到这句“aField.Update”，出现运行错误91，对象变量或with块变量未设置。
我觉得改成“aRange.Fi ...

这个错误估计是不同软件版本的差异，不过你这个写法确实更通用
选定aRange的第5到第5个位置定义为新的aRange