"世界那麼大"
elseif r_character =
"分" or r_character =
"統" then
r_character.font.name =
"伯樂俏皮體"
elseif asc
(r_character)
>=
48 and asc
(r_character)
<=
57 then
if r_character =
"5" then
r_character.font.name =
"遊狼近草體（簡）"
else
r_character.font.name =
"建剛字型檔徐明簡體"
end if
elseif asc
(r_character)
>=
97 and asc
(r_character)
<=
122 or asc
(r_character)
>=
65 and asc
(r_character)
<=
90 or r_character =
"." or r_character =
"（" or r_character =
"）" or r_character =
"(" or r_character =
")" then
r_character.font.name =
"遊狼近草體（簡）"
else
if r_character =
"具" or r_character =
"有" or r_character =
"面" then
r_character.font.name =
choose
(int
(vba
.rnd *5)
+1,"陳代明硬筆體2013正式版"
,"邯鄲-郭靈霞靈芝體"
,"迷你簡硬筆行書"
,"陳代明粉筆字型演示版"
,"方正硬筆行書簡體"
) else
r_character.font.name =
choose
(int
(vba
.rnd *2)
+1,"邯鄲-郭靈霞靈芝體"
,"邯鄲-郭靈霞靈芝體"
) end if
end if
r_character.font.size =
choose
(int
(vba
.rnd *7)
+1,"19"
,"18"
,"18"
,"19.5"
,"18.5"
,"19"
,"19.5"
) r_character.font.position =
choose
(int
(vba
.rnd *5)
+1,1.5
,2.5,2
,0,1
) r_character.font.spacing =
choose
(int
(vba
.rnd *5)
+1,-
1.8,
-1.5,-
1.6,
-1.7,-
1.4)
next
selection.find.clearformatting
selection.find.replacement.clearformatting
with selection.find
.text =
"「".replacement.text =
"".forward = true
.wrap = wdfindcontinue
.format = false
.matchcase = false
.matchwholeword = false
.matchbyte = true
.matchwildcards = false
.matchsoundslike = false
.matchallwordforms = false
end with
selection.find.execute replace:
=wdreplaceall
selection.find.clearformatting
selection.find.replacement.clearformatting
with selection.find
.text =
"」".replacement.text =
"".forward = true
.wrap = wdfindcontinue
.format = false
.matchcase = false
.matchwholeword = false
.matchbyte = true
.matchwildcards = false
.matchsoundslike = false
.matchallwordforms = false
end with
selection.find.execute replace:
=wdreplaceall
end sub
如何用純 CSS 創作一顆逼真的土星
按下右側的 點選預覽 按鈕可以在當前頁面預覽，點選鏈結可以全屏預覽。請用 chrome,safari,edge 開啟 定義 dom，容器本身表示土星星球，其中的ring元素表示土星環 居中顯示 body定義容器尺寸 saturn畫出土星星球 此為草稿，後面還會細化 saturn saturn bef...
如何用Word編輯參考文獻
如何用word編輯參考文獻 1.以尾註的方式插入第乙個參考文獻。將游標定位於word文件中將要插入參考文獻的位置，按 插入 引用 腳注和尾註 出現一選單，選擇 尾註 文件結尾 編號格式為 1,2,3 按 插入 按鈕。2.按要求的格式輸入參考文獻內容。這時你會發現文字中的序號 1 字是上標格式的，這是...
如何使用CSS3 SCSS實現逼真的車窗雨滴效果
在天氣預報類的web移動應用中，常常需要實現螢幕的雨滴效果，表示陰雨天氣。感覺上比較神奇，其實想通了，這個效果的實現只需要一點物理知識和css3的簡單變換。實現乙個小雨滴 首先雨滴是乙個個小的橢圓形元素 raindrop其次雨滴是乙個個凸透鏡，能折射出遠處的景色，遠景所處位置遠大於2倍焦距，成倒立 ...