Warning: error_log(/data/www/wwwroot/hmttv.cn/caches/error_log.php): failed to open stream: Permission denied in /data/www/wwwroot/hmttv.cn/phpcms/libs/functions/global.func.php on line 537 Warning: error_log(/data/www/wwwroot/hmttv.cn/caches/error_log.php): failed to open stream: Permission denied in /data/www/wwwroot/hmttv.cn/phpcms/libs/functions/global.func.php on line 537
文字添加刪除線方法有兩種,一種是使用html刪除線標(biāo)簽<s>;另外一種是使用css刪除線樣式text-decoration:line-through。
html標(biāo)簽實(shí)現(xiàn)刪除線樣式
1,使用標(biāo)簽
< s > 我被加刪除線</ s >
2,css刪除線樣式實(shí)現(xiàn)刪除線效果
使用css實(shí)現(xiàn)刪除線樣式屬性單詞text-decoration:line-through
使用CSS text-decoration 屬性 可以添加刪除線
text-decoration定義和用法:
text-decoration 屬性規(guī)定添加到文本的修飾。
注釋:修飾的顏色由 “color” 屬性設(shè)置。
說(shuō)明:這個(gè)屬性允許對(duì)文本設(shè)置某種效果,如加下劃線。如果后代元素沒(méi)有自己的裝飾,祖先元素上設(shè)置的裝飾會(huì)“延伸”到后代元素中。不要求用戶代理支持 blink。
text-decoration可能的值:
none默認(rèn)。定義標(biāo)準(zhǔn)的文本。
underline定義文本下的一條線。
overline定義文本上的一條線。
line-through定義穿過(guò)文本下的一條線。
blink定義閃爍的文本。
inherit規(guī)定應(yīng)該從父元素繼承 text-decoration 屬性的值。
前端設(shè)計(jì)模式-面試題
分享成果,隨喜正能量】我們畢生的任務(wù)就是做一個(gè)優(yōu)秀的普通人。這個(gè)優(yōu)秀的普通人,熱愛(ài)世界,熱愛(ài)萬(wàn)物,熱愛(ài)眾生,然后踏踏實(shí)實(shí)地去尋找到一個(gè)自己內(nèi)心喜歡又有時(shí)代價(jià)值的事情。一個(gè)人一輩子能夠做好一兩件事就很好了。。
我給VBA的定義:VBA是個(gè)人小型自動(dòng)化處理的有效工具。利用好了,可以大大提高自己的勞動(dòng)效率,而且可以提高數(shù)據(jù)的準(zhǔn)確度。我推出的VBA系列教程共十套(本文的最后附有VBA教程目錄和VBA工具目錄),現(xiàn)在已經(jīng)全部完成。
如果您VBA是入門階段,可以打包選擇7.1.3.9教程,第7套教程是入門,第1套教程是入門后的提高,第3套教程字典是必備的VBA之精華,第9套教程是實(shí)用的典型案例講解。如果您有了一定的VBA基礎(chǔ)可以根據(jù)自己的需要,進(jìn)行教程的選擇。教程提供的程序源碼文件就如一座大型的代碼庫(kù)支持著大家的工作。同時(shí)還有實(shí)用的資料送給學(xué)員。
VBA是面向?qū)ο缶幊痰恼Z(yǔ)言,博大精深。很多朋友咨詢英語(yǔ)和VBA的關(guān)系,這套《VBA即用型代碼手冊(cè)(漢英)》集合了眾多的案例,案例我用漢語(yǔ)和英語(yǔ)同時(shí)發(fā)布,學(xué)員從中可以更好的領(lǐng)會(huì)和掌握VBA中用到的一些英語(yǔ)。今日的內(nèi)容:WORD_VBA文本框的添加、刪除、寫入及保存為html文件
Word Objects and Macro Examples
Sub mynzAddTextBox()
ActiveDocument.Shapes.AddTextBox Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=180, Width:=300, Height:=100
End Sub
Sub mynzDeleteTextBox()
'我們需要檢查 oShape 是否屬于 msoShapeRectangle 類型,并且它的文本框是否包含書(shū)寫位置
Dim oShape As Shape
If ActiveDocument.Shapes.Count > 0 Then
For Each oShape In ActiveDocument.Shapes
If oShape.AutoShapeType = msoShapeRectangle Then
If oShape.TextFrame.HasText = True Then
oShape.Delete
End If
End If
Next oShape
End If
End Sub
Sub mynzWriteInTextBox()
Dim oShape As Shape
If ActiveDocument.Shapes.Count > 0 Then
For Each oShape In ActiveDocument.Shapes
If oShape.AutoShapeType = msoShapeRectangle Then
If oShape.TextFrame.HasText = True Then
oShape.TextFrame.TextRange.InsertAfter "VBA Case"
Exit For
End If
End If
Next oShape
End If
End Sub
Sub mynzSaveMewithDateName()
'將當(dāng)前活動(dòng)文檔保存為過(guò)濾后的 html,并以當(dāng)前時(shí)間命名
Dim strTime As String
strTime = Format(Now, "hh-mm")
ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & strTime, FileFormat:=wdFormatFilteredHTML
End Sub
【分享成果,隨喜正能量】我20多年的VBA實(shí)踐經(jīng)驗(yàn),全部濃縮在下面的各個(gè)教程中:
【分享成果,隨喜正能量】總有一段時(shí)光,讓我們深感痛苦,但不是所有的時(shí)光都這樣,我們要學(xué)會(huì)在黑暗中,找到一絲光芒,這束光來(lái)自于內(nèi)心,它會(huì)讓我們重新找到好日子。。
ext-decoration屬性介紹#
text-decoration屬性值說(shuō)明表#
值作用none去掉文本修飾線underline設(shè)置下劃線overline設(shè)置上劃線line-through設(shè)置刪除線
HTML標(biāo)簽自帶修飾線#
u標(biāo)簽#
Copy<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <meta http-equiv="X-UA-Compatible" content="ie=edge"> <title>設(shè)置文本修飾線</title> </head> <body> <u>成功不是擊敗別人,而是改變自己</u> </body> </html>
*請(qǐng)認(rèn)真填寫需求信息,我們會(huì)在24小時(shí)內(nèi)與您取得聯(lián)系。