问删除Word表中的可变行数
EN

Stack Overflow用户

提问于 2022-08-11 16:58:28

回答 1查看 41关注 0票数 0

背景:我的女儿在一个非常大的学区担任特殊需要教师(信息技术已经不堪重负，特别是在新学年开始的时候)，并且有一个无法触摸/无法访问的数据库，该数据库创建了一份pdf报告。她和她的50位特殊需要指导员的同事想要的摘要报告只包含适用于他们各自需求的数据(1页)，而不是多页(2-6页)。仅她一人就有超过75份这类报告。

到目前为止:在运行Windows 10和Office 365的PC上，我手动将一个pdf文件转换为macro，并修改了获得的堆栈溢出VBA宏，以删除"Delete“之后的所有内容。

需要:从Office中的文件名列表中，打开PDF作为DOCm文件并保存，然后修改每个DOCm文件并保存.

所需的修改：每个报表都有两个表，两个表之间有文本。第二个表总是以相同的标题开头：“第二个表标题”。对于第二个表，她希望通过删除第2行，这一行总是包含“需要的文本”少于1，这是一个可变的行数。

你的帮助不仅会受到她的感激，她的同事也会很感激。我是一个新手用户谁受益于堆栈溢出回答多次，但需要更多的帮助来解决这个问题。

vba

ms-word

docx

回答 1

Stack Overflow用户

发布于 2022-08-12 02:05:45

例如：

Sub TableCleaner()
Application.ScreenUpdating = False
Dim i As Long, r As Long
With ActiveDocument.Tables(2)
  With .Range
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .MatchCase = True
      .Forward = True
      .Wrap = wdFindStop
      .Text = "Text Needed"
      .Replacement.Text = ""
      .Execute
    End With
    If .Find.Found = True Then i = .Cells(1).RowIndex - 1
  End With
  For r = i To 2 Step -1
    .Rows(r).Delete
  Next
End With
Application.ScreenUpdating = True
End Sub

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/73324403

复制

相似问题

问删除Word表中的可变行数
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问删除Word表中的可变行数EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问删除Word表中的可变行数
EN