VBA - 替换单词表中的文本答案

【问题标题】：VBA - replace text from word tableVBA - 替换单词表中的文本
【发布时间】：2018-08-23 15:41:41
【问题描述】：

我尝试将Word中表格中的文本复制到文本中，但是文本被覆盖后，出现在文本“黑”点中。拜托，你能告诉我我哪里错了吗？

Dim rngStory   As Range    
    Name_1 = ActiveDocument.Tables(1).Cell(1, 2)        
    For Each rngStory In ActiveDocument.StoryRanges    
      With rngStory.Find    
      .Text = "<<name>>"    
        .Replacement.Text = Name_1    
        .Wrap = wdFindContinue    
      .Execute Replace:=wdReplaceAll    
      End With        
  Next rngStory

【问题讨论】：

这是因为表格单元格包含两个负责内部单元格结构的字符，在幕后：Chr(13) 和 Chr(7)。这些需要从文本中“修剪”（Name_1）。看到这个：stackoverflow.com/a/49533912/3077495
Reading date from table in Word without additional characters的可能重复

标签： vba ms-word

【解决方案1】：

试试：

Name_1 = Split(ActiveDocument.Tables(1).Cell(1, 2).Range.Text, vbCr)(0)

或者，如果单元格中可能有多个段落：

Name_1 = ActiveDocument.Tables(1).Cell(1, 2).Range.Text
Name_1 = Left(Name_1, Len(Name_1)-2)

【讨论】：

两者都可以。如果您遇到类型不匹配，那是因为您的代码中存在其他错误。
超级，第二个代码有效。非常感谢您的帮助。