求个取消word文档中所有日期域的的代码

ldl---

相当于shift+ctrl+f9

ldl---

已解决，网上搜的。

Sub 更新域并转换为静态文本()
    Word.Application.ScreenUpdating = False
    Dim oField As Field
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    With oDoc
        .Fields.Update
        .Fields.Unlink
    End With
    Word.Application.ScreenUpdating = True
End Sub

413191246se

楼主，你搜索的代码，是删除所有域，并非删除日期域。
删除所有域的代码，只须一句：
ActiveDocument.Fields.Unlink

daibao88

Sub 日期域变静态文本()
    Word.Application.ScreenUpdating = False
    Dim oField As Field
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    For Each oField In ActiveDocument.Fields
        If VBA.InStr(oField.Code.Text, "DATE") Or VBA.InStr(oField.Code.Text, "TIME") Then
            oField.Unlink
        End If
    Next
    Word.Application.ScreenUpdating = True
End Sub