主页 / coding / 问题 / 79365081
Accepted
Willem
Asked: 2025-01-17 22:34:58 +0800 CST

宏用于更新所有字段（包括询问字段），而不会弹出询问字段提示

  • 772

寻找一个 vba 代码来更新所有字段，而不包含属于 Ask 字段的提示，例如 Print Preview 所包含的提示。但是，打开和关闭 Print Preview 的代码并不是我们想要的，因为它会将我带回到文档的顶部，而不是让我停留在我原来的页面上。我说的是这个代码：

Sub Update()

Application.ScreenUpdating = False
    With ActiveDocument
        .PrintPreview
        .ClosePrintPreview
    End With
    Application.ScreenUpdating = True
End Sub

除了告诉提示不显示之外，还有其他方法可以更新所有字段吗？或者 ask 字段的提示字段是它们固有的，在操作过程中不能禁用它们吗？

提前感谢您的支持

威廉

vba

1 个回答

  1. Best Answer

    您发布的代码本身不会带您返回文档顶部；它只会带您返回当前页面的顶部。您可以通过添加以下内容强制将当前选择带回视图：

    ActiveWindow.ScrollIntoView Selection.Range

    退出之前。例如：

    Sub UpdateFields()
Application.ScreenUpdating = False
With ActiveDocument
  .Fields.Update
  .PrintPreview
  .ClosePrintPreview
End With
ActiveWindow.ScrollIntoView Selection.Range
Application.ScreenUpdating = True
End Sub

    不过，这仍然会给你留下 ASK 和 FILLIN 字段提示。你可以使用如下代码处理这两个问题：

    Sub UpdateFields()
Application.ScreenUpdating = False
Dim Fld As Field
With ActiveDocument
  For Each Fld In .Fields
    Select Case Fld.Type
      Case wdFieldAsk, wdFieldFillIn: Fld.Locked = True
    End Select
  Next
  .Fields.Update
  .Fields.Locked = False
  .PrintPreview
  .ClosePrintPreview
End With
ActiveWindow.ScrollIntoView Selection.Range
Application.ScreenUpdating = True
End Sub

    在没有字段提示的情况下更新ASK 和 FILLIN 字段是不可能的。

    • 2

相关问题