word排版古书页码设置

zldccmx

zldccmx

汉字页码（奇偶页不同）.zip (23.52 KB, 下载次数: 11)

2023-3-1 12:21 上传

点击文件名下载附件

相见是缘8

zldccmx 发表于 2023-3-1 12:18

老师，好！是我把你的代码抄错了吗？

1. Sub 添加汉字页码()
   
2.     ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = True '勾选"奇偶页不同"
   
3.     ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = False '不勾选"首页不同"
   
4.     Selection.HomeKey Unit:=wdStory '回到文首
   
5.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader '切换到页眉
   
6.     Selection.HeaderFooter.Range.Delete '删除旧页眉
   
7.     Selection.ParaeraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone '取消页眉文字下横线
   
8.     Selection.HeaderFooter.Shapes.AddTextbox(msoText0rientationVerticalFarEast, 520, 400, 32, 120).Select '插入纵向文本框，左项宽高
   
9.     Selection.ShapeRange.TextFrame.TextRange.Select
   
10.     Selection.Collapse
    
11.     Selection.Par agraphFormat.Alisument = wdAlienParagraphCenter
    
12.     Selection.ShapeRange.Line.Visible = msoFalse '文本框无框线
    
13.     Selection.Font.Name = "宋体"
    
14.     Selection.Font.Sire = 14
    
15.     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="PAGE \* CHINESENUM3 ", PreserveFormatting:=True '域编号中文
    
16.     ActiveWindow.ActivePane.View.NextHeaderFooter '切换到偶数页
    
17.     Selection.HeaderFooter.Range.Delete '删除旧页眉
    
18.     Selection.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
19.     Selection.HeaderFooter.Shapes.AddTextbox(msoText0rientationVerticalFarEast, 520, 400, 32, 120).Select
    
20.     Selection.ShapeRange.TextFr ame.TextRange.Select
    
21.     Selection.Collapse
    
22.     Selection.ParagraphFormat.Alisment = wdAlienParagraphCenter
    
23.     Selection.ShapeRange.Line.Visible = msoFalse
    
24.     Selection.Font.Name = "宋体"
    
25.     Selection.Font.Size = 14
    
26.     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="PAGE \* CHINESENUM3 ", PreserveFormatting:=True
    
27.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument '切换到正文
    
28. End Sub
    

复制代码

zldccmx

相见是缘8 发表于 2023-3-5 08:38
老师，好！是我把你的代码抄错了吗？

你把第8行抄错了，520 应该是50。

相见是缘8

zldccmx 发表于 2023-3-6 12:17
你把第8行抄错了，520 应该是50。

哦！感谢老师，怪不得……！

jyjzfl

我是认真观看，认真学习。