Início / coding / Perguntas / 79365081
Accepted
Willem
Asked: 2025-01-17 22:34:58 +0800 CST

Macro para atualizar todos os campos (incluindo campos de solicitação) sem que o prompt do campo de solicitação apareça

  • 772

Procurando um código vba para atualizar todos os campos sem os prompts que pertencem aos campos Ask, como o Print Preview faz. Embora, um código para abrir e fechar o Print Preview não seja desejado porque ele me traz de volta ao topo do documento em vez de me deixar na página onde eu estava. Estou falando sobre este código:

Sub Update()

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

Existe uma maneira alternativa de atualizar todos os campos, mas dizer aos prompts para não aparecerem? Ou o campo prompt do campo ask é inerente a eles e eles não podem ser desabilitados durante a ação?

Agradecemos antecipadamente pelo seu apoio

Willem

vba

1 respostas

  1. Best Answer

    O código que você postou não o leva de volta ao topo do documento, por si só; ele o leva de volta ao topo da página atual. Você pode forçá-lo a trazer a seleção atual de volta à vista adicionando:

    ActiveWindow.ScrollIntoView Selection.Range

    antes de sair. Por exemplo:

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

    Isso ainda deixará você com os prompts de campo ASK & FILLIN, no entanto. Você pode lidar com ambos os problemas usando código como:

    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

    Não será possível atualizar os campos ASK e FILLIN sem os prompts de campo.

    • 2

relate perguntas