整合營銷服務商
電腦端+手機端+微信端=數(shù)據(jù)同步管理
免費咨詢熱線：
電腦端+手機端+微信端=數(shù)據(jù)同步管理
免費咨詢熱線：
文字添加刪除線方法有兩種，一種是使用html刪除線標簽<s>；另外一種是使用css刪除線樣式text-decoration：line-through。
html標簽實現(xiàn)刪除線樣式
1，使用標簽
< s > 我被加刪除線</ s >
2，css刪除線樣式實現(xiàn)刪除線效果
使用css實現(xiàn)刪除線樣式屬性單詞text-decoration：line-through
使用CSS text-decoration 屬性 可以添加刪除線
text-decoration定義和用法：
text-decoration 屬性規(guī)定添加到文本的修飾。
注釋：修飾的顏色由 “color” 屬性設置。
說明：這個屬性允許對文本設置某種效果，如加下劃線。如果后代元素沒有自己的裝飾，祖先元素上設置的裝飾會“延伸”到后代元素中。不要求用戶代理支持 blink。
text-decoration可能的值：
none默認。定義標準的文本。
underline定義文本下的一條線。
overline定義文本上的一條線。
line-through定義穿過文本下的一條線。
blink定義閃爍的文本。
inherit規(guī)定應該從父元素繼承 text-decoration 屬性的值。
前端設計模式-面試題
分享成果，隨喜正能量】我們畢生的任務就是做一個優(yōu)秀的普通人。這個優(yōu)秀的普通人，熱愛世界，熱愛萬物，熱愛眾生，然后踏踏實實地去尋找到一個自己內心喜歡又有時代價值的事情。一個人一輩子能夠做好一兩件事就很好了。。
我給VBA的定義：VBA是個人小型自動化處理的有效工具。利用好了，可以大大提高自己的勞動效率，而且可以提高數(shù)據(jù)的準確度。我推出的VBA系列教程共十套(本文的最后附有VBA教程目錄和VBA工具目錄)，現(xiàn)在已經全部完成。
如果您VBA是入門階段，可以打包選擇7.1.3.9教程，第7套教程是入門，第1套教程是入門后的提高，第3套教程字典是必備的VBA之精華，第9套教程是實用的典型案例講解。如果您有了一定的VBA基礎可以根據(jù)自己的需要，進行教程的選擇。教程提供的程序源碼文件就如一座大型的代碼庫支持著大家的工作。同時還有實用的資料送給學員。
VBA是面向對象編程的語言，博大精深。很多朋友咨詢英語和VBA的關系，這套《VBA即用型代碼手冊（漢英）》集合了眾多的案例，案例我用漢語和英語同時發(fā)布，學員從中可以更好的領會和掌握VBA中用到的一些英語。今日的內容：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 類型，并且它的文本框是否包含書寫位置
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()
'將當前活動文檔保存為過濾后的 html，并以當前時間命名
Dim strTime As String
strTime = Format(Now, "hh-mm")
ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & strTime, FileFormat:=wdFormatFilteredHTML
End Sub
【分享成果，隨喜正能量】我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中：
【分享成果，隨喜正能量】總有一段時光，讓我們深感痛苦，但不是所有的時光都這樣，我們要學會在黑暗中，找到一絲光芒，這束光來自于內心，它會讓我們重新找到好日子。。
ext-decoration屬性介紹#
text-decoration屬性值說明表#
值作用none去掉文本修飾線underline設置下劃線overline設置上劃線line-through設置刪除線
HTML標簽自帶修飾線#
u標簽#
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>設置文本修飾線</title> </head> <body> <u>成功不是擊敗別人，而是改變自己</u> </body> </html>
*請認真填寫需求信息，我們會在24小時內與您取得聯(lián)系。
