WPS宏中如何添加和删除删除线？

WPS宏删除线

Sub 添加删除线()

' 检查是否选中了文本
If Selection.Type = wdSelectionIP Then
    MsgBox "请先选中需要添加删除线的文字！", vbExclamation
    Exit Sub
End If

' 为选中的文字添加删除线
Selection.Font.StrikeThrough = True

End Sub

WPS宏如何添加删除线？

Sub AddStrikethrough()

Dim rng As Range
' 让用户选择想要添加删除线的单元格区域
On Error Resume Next
Set rng = Application.InputBox("请选择要添加删除线的单元格区域", Type:=8)
On Error GoTo 0

' 检查用户是否选择了区域
If Not rng Is Nothing Then
    ' 遍历选中的每个单元格
    Dim cell As Range
    For Each cell In rng
        ' 给单元格的字体添加删除线
        cell.Font.Strikethrough = True
    Next cell
End If

End Sub

WPS宏删除线设置步骤？

Sub 添加删除线()

Dim rng As Range
'判断是否选中了文本，如果没有选中则提示用户
If Selection.Type = wdSelectionIP Then
    MsgBox "请先选中要添加删除线的文本", vbInformation
    Exit Sub
End If
'将选中的文本设置为删除线格式
Set rng = Selection.Range
rng.Font.StrikeThrough = True

End Sub

WPS宏删除线代码怎么写？

Sub AddStrikethrough()

' 声明变量
Dim rng As Range
' 提示用户选择需要添加删除线的单元格
On Error Resume Next ' 防止用户取消选择时报错
Set rng = Application.InputBox("请选择需要添加删除线的单元格", Type:=8)
On Error GoTo 0

' 检查用户是否选择了范围
If Not rng Is Nothing Then
    ' 为选中的单元格添加删除线格式
    rng.Font.Strikethrough = True
    MsgBox "删除线已添加完成！", vbInformation
Else
    MsgBox "未选择任何单元格", vbExclamation
End If

End Sub

Sub RemoveStrikethrough()

' 声明变量
Dim rng As Range
' 提示用户选择需要移除删除线的单元格
On Error Resume Next
Set rng = Application.InputBox("请选择需要移除删除线的单元格", Type:=8)
On Error GoTo 0

' 检查用户是否选择了范围
If Not rng Is Nothing Then
    ' 移除选中的单元格的删除线格式
    rng.Font.Strikethrough = False
    MsgBox "删除线已移除完成！", vbInformation
Else
    MsgBox "未选择任何单元格", vbExclamation
End If

End Sub

WPS宏删除线效果不显示怎么办？

Selection.Font.Strikethrough = True