wps中如何设置千分位

1.WPS文字里怎么设置A2的纸啊

1打开WPS文字的一个新的文档。

选择页面布局---纸张大小。 2点击纸张大小进入纸张大小设置页面。

比如我们需要纸张的大小为16开,这个时候选择纸张大小,选项16开。 3如果我们需要的不是16开,并且在纸张大小里没有合适的选择,而是要制定的大小,比如宽度为200毫米,高度为150毫米。

应该怎么设置呢。选择纸张大小为自定义在宽度栏输入200、高度栏输入150. 4在纸张下方有一个默认选项。

这个按钮是以后你新建文档,默认的就是这个设置。 5点击确定,我们可以看到我们新设置的页面是什么样子的了。

希望能帮助到你,麻烦点击“有用”,谢谢。

2.word里面怎么把数字设为千分位

手动输入个英文逗号就行,如有你非要高难度的,我转一个文章给你,你看看吧

采用了vba编写了一个小程序来实现这一功能,以方便有这方向烦恼的读者,程序如下:

sub 改变数字格式为千分位格式 ()

dim strwithth as string '用于保存处理后的数字

dim inti as integer

'循环给定的数字

dim intlen as integer '求数字长度

dim intcount as integer '保存改变个数

with selection

.homekey unit:=wdstory '回到文章开头

.find.clearformatting

do

.find.text = "^#^#^#^#" '查找4位数字

'如果没有找到,退出

if .find.execute = false then

msgbox "长春崔宇的程序:千分位设置完毕!共改变 " & intcount & "个数字。", vbinformation

exit sub

end if

intcount = intcount + 1 '计数器增加

.moveleft '移到整个数字的左边

.moveright unit:=wdword, count:=1, extend:=wdextend '选择整个数字

intlen = len(.text)

strwithth = "" '清空

for inti = intlen to 1 step -3

if inti > 3 then

strwithth = "," & mid(.text, inti - 2, 3) & strwithth

else

'对于长度为3的倍数的数字特别处理

strwithth = left(.text, iif(intlen mod 3 = 0, 3, intlen mod 3)) & strwithth

end if

next

.text = strwithth

.moveright '右移一个来取消选择

loop

end with

end sub

将上面的代码,保存在normal模板中,需要运行时,按alt+f8选择该宏运行就可以了,当然也可为这个宏分配一个按钮。

程序的实现方法:程序是以word的查找为基础,找到四位以上的数字,然后选择这个数字,将其变为千分位格式后写回,循环到查找结束。当然代码中并没有对数字进行细致的分析,所以对“2002年”这样不应加千分位的数字也会处理。代码在office9,office10,office11,office12上运行通用。

wps中如何设置千分位

tag:千分位设置文字数字设为

相关内容