VBA Word 复制 table 的值而不引用 table 的序列号

Question

我有一个 Word 文件，其中正在更改 table 的数量。我需要从第 3 个或第 4 个 table 复制值（它总是会改变）。

table 总是 1 行和 2 列（其他 table 完全不同），第一列总是文本“温度”，第二列中的文本正在变化，我需要复制该文本。

如果有帮助，table 开头总是有“规格”一词。

在我意识到 table 的数量不是永久的之前，我使用了那个代码。（万一有帮助）

那么，您能否建议如何使流程自动化？

Sub Demo()
Dim wsCopy as Word.Document
Dim wsDest as Worksheet

    Set wsCopy = Documents(1)
    Set wsDest = ThisWorkbook.Worksheets(1)
    
Application.ScreenUpdating = False
With wsCopy.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "Temperature"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
  End With
  Do While .Find.Execute
    If .Information(wdWithInTable) = True Then
      With .Cells(1)
        If .ColumnIndex = 2 Then
          Set Rng = .Range
          Rng.End = Rng.End - 1
          Rng.Copy
          Exit Do
        End If
      End With
    End If
    .Collapse wdCollapseEnd
  Loop
End With
Application.ScreenUpdating = True
    wsDest.Cells(ActiveCell.Row, "N").PasteSpecial Paste:=xlPasteValues
End Sub

Answer 1

例如：

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Text = "Specifications"
    .Execute
    If .Found = False Then Exit Sub
  End With
  .Collapse wdCollapseEnd
  .Find.Text = "Temperature"
  Do While .Find.Execute
    If .Information(wdWithInTable) = True Then
      If .Cells(1).ColumnIndex = 1
        wsDest.Cells(ActiveCell.Row, "N").Value = _
          Split(.Tables(1).Range.Cells(2).Range.Text,vbCr)(0)
        Exit Do
      End If
    End If
    .Collapse wdCollapseEnd
  Loop
End With
Application.ScreenUpdating = True
End Sub

VBA Word 复制 table 的值而不引用 table 的序列号

VBA Word Copy table's value without referencing the table's sequence number

vba

ms-word