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
)="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...