怎么设置汉字页码？

pbdq

在做一本中文古典书籍，要求用汉字页码。


实际使用上，设置页码格式后，页码变成类似       ”一百七十七“


而我想要的是 ”一七七“


请问应该怎么处理比较好？

pbdq

@duquancai  请大神来帮忙啊

pbdq

顶上去，坐等大神

不经意的回头

参考这个帖子http://club.excelhome.net/thread-634150-1-1.html

pbdq

不经意的回头 发表于 2017-1-5 14:28
参考这个帖子http://club.excelhome.net/thread-634150-1-1.html

谢谢你！ 思路可取，就是输入域的时候太复杂了。请问域里面可以调用自定义的函数吗？

413191246se

算法设想：将页脚部分文本（不是页码）设置为变量 i，i=i+1，再将 0-9 直译为 ○-九，赋值给页脚文本（或每次到下一页脚都取消链接，重新赋值）。

pbdq

413191246se 发表于 2017-1-7 14:11
算法设想：将页脚部分文本（不是页码）设置为变量 i，i=i+1，再将 0-9 直译为 ○-九，赋值给页脚文本（或每 ...

那不是每一页都需要分章节？？ 或者你有更好的思路？

413191246se

楼主：的确，在页脚区域输入任何文字都是在每页显示页脚文字，我想到另一个方法：就是不设置页脚，在页脚区域（但不要进入页眉页脚）上面浮动画一个文本框，在文本框中显示“一七七”这些文字即可，应该不影响页眉页脚页码显示，我已初步成功编程完毕一个小宏，如果你会用宏，请试试吧！如果不会用宏，请另寻他法。

1. Sub aaaa汉字页码()
   
2. '注意：文档至少有 3 页，再试用此宏！最好将光标放到第一页！
   
3. '算法：在页脚区域画一文本框，最好是全部文稿完毕后，用宏临时设置之！(光标定位在任意页开始编号！)
   
4.     Dim i As Long, j As String, k As Long, g As String, v As Long, s As String, x As String, y As Long
   
5.     i = 174 '此行语句以后可以删除！
   
6.     Do
   
7.         y = y + 1
   
8.         i = i + 1
   
9.         ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 90#, 774#, 423#, 54.6).Select
   
10.         Selection.ShapeRange.TextFrame.TextRange.Select
    
11.         Selection.Collapse
    
12.         Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
13.         Selection.Font.Bold = True
    
14.         Selection.Font.Size = 22
    
15.         
    
16. '        MsgBox "i=" & "[" & i & "]"
    
17. 'i=175 j=一七五
    
18.         v = Len(Str(i)) - 1
    
19. '        MsgBox "v=" & v
    
20. 
    
21.         s = Str(i)
    
22.         s = Val(s)
    
23.         
    
24. '        MsgBox "s=" & "[" & s & "]"
    
25. 
    
26.         For k = 1 To v
    
27.             x = Mid(s, k, 1)
    
28. '            MsgBox "x=" & x
    
29.             
    
30.             '翻译
    
31.             If x = "1" Then
    
32.                 j = "一"
    
33.             ElseIf x = "2" Then
    
34.                 j = "二"
    
35.             ElseIf x = "3" Then
    
36.                 j = "三"
    
37.             ElseIf x = "4" Then
    
38.                 j = "四"
    
39.             ElseIf x = "5" Then
    
40.                 j = "五"
    
41.             ElseIf x = "6" Then
    
42.                 j = "六"
    
43.             ElseIf x = "7" Then
    
44.                 j = "七"
    
45.             ElseIf x = "8" Then
    
46.                 j = "八"
    
47.             ElseIf x = "9" Then
    
48.                 j = "九"
    
49.             ElseIf x = "0" Then
    
50.                 j = "○" '此零乃是符号，不是真正的汉字 GBK 的零，自己网络找找吧！
    
51.             End If
    
52.             g = g & j
    
53. '            MsgBox "g=" & g
    
54.         Next k
    
55.         
    
56.         j = g
    
57.         Selection.TypeText Text:=j
    
58.    
    
59.         Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    
60.         Selection.Font.Color = wdColorRed
    
61.         
    
62.         Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:="" '光标定位到下一页
    
63.         g = "" '清零
    
64. 
    
65.     Loop Until y = 3 '假设有 3 页，如果有 100页，请将 3 为 100
    
66. 
    
67. End Sub

复制代码

pbdq

413191246se 发表于 2017-1-9 21:55
楼主：的确，在页脚区域输入任何文字都是在每页显示页脚文字，我想到另一个方法：就是不设置页脚，在页脚区 ...

这个方法在简单的文档可用。但我们的文档特别的复杂。有的页面不要页码。有的要。

有的时候有跳页。

pbdq

413191246se 发表于 2017-1-9 21:55
楼主：的确，在页脚区域输入任何文字都是在每页显示页脚文字，我想到另一个方法：就是不设置页脚，在页脚区 ...

特别感恩大仙花时间研究这个问题。