在Word表行和列中比较值以及删除或合并单元格

我给出的问题是根据重复的日期值对多行进行合并的单词表进行格式设置。在下面的示例，第1个显示复制日期值和第2列中是与该日期对应的文本：在Word表行和列中比较值以及删除或合并单元格

2017年1月3日从A 2017年1月3日电子邮件细读电子邮件到小组委员会 01/03 /从2017年的B博士从d先生 2017年1月3日电话呼叫的 2017年1月3日电话打到d先生 2017年1月3日电话通话细读邮件

我想结束了什么是以下内容：

01/03/2017阅读A的电子邮件电子邮件给小组委员会从的B博士从d先生电话呼叫的电话打到d先生电话呼叫细读邮件

也就是说，我想一个日期在第1列和合并文本列2.我不能在MS Word中编写代码时不会找到太多帮助，因为它更多地针对MS Excel。

我知道我可以使用：

If ActiveDocument.Tables.Count >= 1 Then 
    With ActiveDocument.Tables(1) 
    .Cell(Row:=1, Column:=1).Merge _ 
    MergeTo:=.Cell(Row:=1, Column:=2) 
    .Borders.Enable = False 
    End With 
End If

然而，这只是一个简单的合并，我需要更复杂的东西根据我上面提到的标准。

希望有人能够协助并指引我走向正确的方向。

来源

2017-05-08 Martin Hewitt Tayler

在MS Word中，一旦合并了行，就失去了可靠地处理该表中的行的能力。合并列后，Word将无法正确响应您在该表中处理单个单元格的列号。因此，您的计划将无法使用，至少在使用VBA时不会。

你的任务非常复杂，因为你试图在原地修改数据。更好更简单的方法是将所有内容重新写入新表格，也许只有两列，一列是日期，另一列是所有其他文本。

要提出这个问题，可以问你应该设计输出表，确保你的源表没有合并的单元格，数据传输的规则以及勇敢的努力来表明你试图自己解决问题。 :-)

来源

2017-05-08 11:05:56 Variatus

谢谢您的意见。我非常喜欢重写产生输出的代码，但它来自锁定的软件程序。格式化表的请求是用户事后才想到的。由于输出可能长达多页，因此这仅仅是为了节省编辑器费力地选择，合并和删除日期字段中的每个更改。我会重新考虑我能做些什么。 –

在Word表行和列中比较值以及删除或合并单元格

回答

相关问题