Word字型修改(罰抄,抄作業專用)

2021-09-24 02:19:49 字數 1325 閱讀 9007

——word vba 指令碼 罰抄專用

sub 字型修改()'

' 字型修改 巨集

' dim r_character as range

dim fontsize(5

) ' 字型大小在5個值之間進行波動,可以改寫

fontsize(1

)="21"

fontsize(2

)="21.5"

fontsize(3

)="22"

fontsize(4

)="22.5"

fontsize(5

)="23"

dim fontname(3

) '字型名稱在三種字型之間進行波動,可改寫,但需要保證系統擁有下列字型

fontname(1

)="楷體"

fontname(2

)="手寫體"

fontname(3

)="宋體"

dim paragraphspace(5

) '行間距 在一定以下值中均等分布,可改寫

paragraphspace(1

)="12"

paragraphspace(2

)="13"

paragraphspace(3

)="20"

paragraphspace(4

)="7"paragraphspace(5

)="12"

'不懂原理的話,不建議修改下列**

for each r_character in activedocument.characters

vba.randomize

r_character.font.name =

fontname

(int

(vba.rnd *3)

+1) r_character.font.size =

fontsize

(int

(vba.rnd *5)

+1) r_character.font.position =

int(vba.rnd *3)

+1r_character.font.spacing =

0 next

for each cur_paragraph in activedocument.paragraphs

cur_paragraph.linespacing =

paragraphspace

(int

(vba.rnd *5)

+1) next

end sub

Word字型修改

word vba 指令碼 罰抄專用 sub 字型修改 字型修改 巨集 dim r character as range dim fontsize 5 字型大小在5個值之間進行波動,可以改寫 fontsize 1 21 fontsize 2 21.5 fontsize 3 22 fontsize 4 ...

Linux修改字型

最近使用linux專案開發,寫文件的時候沒有microsoft office,所以使用自帶的libreoffce writer寫文件,坑的要死,沒有常用的字型,文件寫道一半的時候拿到windows下結果一堆亂碼,所以我說加一些字型吧。可以直接拷貝windows下的字型 雅黑 msyh 黑體 simh...

linux修改字型

第一步 將windows下喜歡的字型檔案copy到乙個資料夾中,例如將xp裡windows fonts中的字型檔案,然後上傳到linux伺服器上,在linux中命名為xpfonts。第二步 將copy到的字型資料夾copy到系統字型資料夾中並且修改許可權 cp xpfonts usr share f...