如何遍历页眉页脚，取消链接到前一页。并在横向页面在左边插入页码？

小声说话666 · 发表于 2021-2-24 23:59

19820713chen 发表于 2021-2-24 17:33

我使用的WPS2016，由于单位要求不能使用WORD，故一直使用WPS。
发贴前就是参考 http://club.excelhome.net/thread-933750-2-1.html 里的代码想修改一下，但在WPS中没达到我要的效果。
无奈只因是小小白一枚，只会抄抄改改，大部分代码还看不懂，故再发贴求助。

目前进展：
去掉所有节链接主要是：
wdHeaderFooterPrimary
wdHeaderFooterEvenPages
我目前有点感觉，似懂非懂已经搞定。
但在WPS里遍历横向页面往文本框里插入页码域本人还不会操作。还望指点

9楼代码，我运行后效果如下：

19820713chen · 发表于 2021-2-25 09:38

这样的效果？

19820713chen · 发表于 2021-2-25 09:40

只能用在word,wps可能用不了！

Sub 插入页码_左右()
Dim s As Section
Dim n As String
Dim asection As Section
Application.ScreenUpdating = False '关闭屏幕刷新
On Error Resume Next '设置错误处理
Dim 节 As Section
Dim 总节数 As Long, 计数器 As Long
If Documents.Count <> 0 Then
总节数 = ActiveDocument.Sections.Count
Else
Exit Sub '如果没有打开文档直接退出
End If
For 计数器 = 2 To 总节数
With ActiveDocument
If .Sections(计数器).PageSetup.Orientation <> .Sections(计数器 - 1).PageSetup.Orientation Or wdOrientLandscape Then
.Sections(计数器).Footers(wdHeaderFooterPrimary).LinkToPrevious = False
.Sections(计数器).Footers(wdHeaderFooterEvenPages).LinkToPrevious = False
'如果本节页面方向和前节页面方向不同，则关闭本节同前开关设置
End If
End With
Next 计数器 '取消所有节的同前开关设置
For Each asection In ActiveDocument.Sections
With asection.Headers(wdHeaderFooterPrimary)
.Range.Delete
.Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
End With
Next
'删除页脚
For Each asection In ActiveDocument.Sections
With asection.Footers(wdHeaderFooterPrimary)
.Range.Delete
.Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
End With
With asection.Footers(wdHeaderFooterEvenPages)
.Range.Delete
.Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
End With
Next
For Each s In ActiveDocument.Sections
s.Footers(1).Range.Delete
With s.Footers(1).Range.Sections(1).Headers(1).PageNumbers
.NumberStyle = wdPageNumberStyleArabic
.HeadingLevelForChapter = 0
.IncludeChapterNumber = False
.ChapterPageSeparator = wdSeparatorHyphen
.RestartNumberingAtSection = False
.StartingNumber = 0
End With
s.Footers(1).PageNumbers.Add 4, True
With s.Footers(wdHeaderFooterPrimary).Range.Frames(1).Range
.Select
With Selection
.InsertBefore "— "
.InsertAfter " —"
With .Font
.Name = "宋体"
.Name = "Times New Roman"
.Size = 9
End With
.ParagraphFormat.CharacterUnitRightIndent = 1.5
End With
End With
With s.Footers(wdHeaderFooterEvenPages).Range.Frames(1).Range
.Select
With Selection
.InsertBefore "— "
.InsertAfter " —"
With .Font
.Name = "宋体"
.Name = "Times New Roman"
.Size = 9
End With
.ParagraphFormat.CharacterUnitRightIndent = 1.5
End With
End With
Next
ActiveWindow.ActivePane.Close
ActiveWindow.View.Type = wdPrintView
For 计数器 = 2 To 总节数
ActiveDocument.Sections(计数器).PageSetup.OddAndEvenPagesHeaderFooter = True
If ActiveDocument.Sections(计数器).PageSetup.Orientation = wdOrientLandscape Then
'如果是横向页面，则进行调整
With ActiveDocument.Sections(计数器).Footers(wdHeaderFooterPrimary).Range.Frames(1)
.Width = CentimetersToPoints(0.42)
.HeightRule = wdFrameAtLeast
.Height = CentimetersToPoints(1.05)
.HorizontalPosition = MillimetersToPoints(16) '页码距短边15毫米，左下位置
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.VerticalPosition = MillimetersToPoints(188)
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.HorizontalDistanceFromText = MillimetersToPoints(0)
.VerticalDistanceFromText = MillimetersToPoints(0)
.Range.Orientation = wdTextOrientationDownward '调整页码文字方向
End With
With ActiveDocument.Sections(计数器).Footers(wdHeaderFooterEvenPages).Range.Frames(1)
.Width = CentimetersToPoints(0.42)
.HeightRule = wdFrameAtLeast
.Height = CentimetersToPoints(1.05)
.HorizontalPosition = MillimetersToPoints(16) '页码距短边15毫米，右下位置
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.VerticalPosition = MillimetersToPoints(15)
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.HorizontalDistanceFromText = MillimetersToPoints(0)
.VerticalDistanceFromText = MillimetersToPoints(0)
.Range.Orientation = wdTextOrientationDownward '调整页码文字方向
End With
End If
ActiveDocument.Sections(计数器).Headers(wdHeaderFooterPrimary) _
.Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone '用于防止页眉出现横线
ActiveDocument.Sections(计数器).Headers(wdHeaderFooterEvenPages) _
.Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
With ActiveDocument.Sections(计数器).Footers(wdHeaderFooterEvenPages).Range.Font
.Name = "Times New Roman"
.Size = 9
End With
Next 计数器
Application.ScreenUpdating = True '恢复屏幕刷新
End Sub

复制代码

小声说话666 · 发表于 2021-2-25 21:50

19820713chen 发表于 2021-2-25 09:40
只能用在word,wps可能用不了！

多谢大神代码。

经WPS测试，未达效果。

可能是WPS不支持 .Range.Orientation = wdTextOrientationDownward '调整页码文字方向

如果是插入竖文本框就不用调整文字方向了。

		自动登录	找回密码
密码			免费注册

[求助] 如何遍历页眉页脚，取消链接到前一页。并在横向页面在左边插入页码？