刷新word文档

Question

我有一个 VBA 脚本，我在网上找到了将多个 Word datasets 保存为 PDF 格式的 "Serienbrief"（我认为它在英语中称为bulkletter）。 word文档由各种Mergefields以及多个Excel条形图组成，仍然连接到对应的Excel文件。

问题：

当我将datasets 保存为pdf 时，mergefields 会随着dataset 的变化而变化。

但是，图表始终具有第一个 dataset 的值。我可以通过在更改 dataset 后手动刷新 Word 文档来将图表更新为正确的值，但我需要自动化该过程。

我在寻找什么：

我需要扩展下面的脚本，它会在每次保存新的pdf（基本上是cntrl+A，然后是F9）之前刷新文档（因此也刷新条形图）。

我尝试过的：

我在这里Word VBA to refresh embedded Excel chart发现了一个类似的问题，但答案对我没有帮助，也是因为我不确定在脚本中的哪里实现它。

您可以在下面找到我目前使用的脚本，它工作得很好，除了缺少刷新部分。

感谢任何帮助！

Sub Serienbrief()
' set variables
Dim iBrief As Integer, sBrief As String
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Path As String
' catch any errors
On Error GoTo ErrorHandling

' determine path
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Speicherort für Serienbriefe auswählen", 0, 16)

If BrowseDir = "Desktop" Then
Path = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Else
Path = BrowseDir.items().Item().Path
End If

If Path = "" Then GoTo ErrorHandling

Path = Path & "\Serienbrief-" & Format(Now, "dd.mm.yyyy-hh.mm.ss") & "\"
MkDir Path

On Error GoTo ErrorHandling

' hide application for better performance
MsgBox "Serienbriefe werden exportiert. Dieser Vorganag kann einige Minuten dauern - Microsoft Word wird während dieser Zeit ausgeblendet", vbOKOnly + vbInformation
Application.Visible = False

' create bulkletter and export as pdf
With ActiveDocument.MailMerge
.DataSource.ActiveRecord = 1
Do
.Destination = wdSendToNewDocument
.SuppressBlankLines = True



With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
sBrief = Path & .DataFields("IDSCHOOL").Value & ".pdf"
End With
.Execute Pause:=False
ThisDocument.InlineShapes(1).LinkFormat.BreakLink

If .DataSource.DataFields("IDSCHOOL").Value > "" Then
ActiveDocument.SaveAs FileName:=sBrief, FileFormat:=wdFormatPDF
End If
ActiveDocument.Close False

If .DataSource.ActiveRecord < .DataSource.RecordCount Then
.DataSource.ActiveRecord = wdNextRecord
Else
Exit Do
End If
Loop
End With

' error handling
ErrorHandling:
Application.Visible = True

If Err.Number = 76 Then
MsgBox "Der ausgewählte Speicherort ist ungültig", vbOKOnly + vbCritical
ElseIf Err.Number = 5852 Then
MsgBox "Das Dokument ist kein Serienbrief"
ElseIf Err.Number = 4198 Then
MsgBox "Der ausgewählte Speicherort ist ungültig", vbOKOnly + vbCritical
ElseIf Err.Number = 91 Then
MsgBox "Exportieren von Serienbriefen abgebrochen", vbOKOnly + vbExclamation
ElseIf Err.Number > 0 Then
MsgBox "Unbekannter Fehler: " & Err.Number & " - Bitte Makro erneut ausführen.", vbOKOnly + vbCritical
Else
MsgBox "Serienbriefe erfolgreich exportiert", vbOKOnly + vbInformation
End If

End Sub

Answer 1

变化：

ThisDocument.InlineShapes(1).LinkFormat.BreakLink

到：

ActiveDocument.InlineShapes(1).LinkFormat.Update
ActiveDocument.InlineShapes(1).LinkFormat.BreakLink