一些背景故事。我在使用邮件合并和SQL数据库填充带有名称/地址的字母的组织中工作。这些信已发送给我们的捐助者,以感谢。这些字母经常变化,新字母每月至少出现10次。
为简化我们的流程,我创建了一个程序,该程序可让您将字母正文内容复制/粘贴到富文本框中,并且当您按“ Go”按钮时,它将打开一个预制的Word模板,并替换其中的书签。带有复制的正文内容的模板。
该程序适用于大多数字母,但是其中一些字母存在创建粗黑线的问题,我无法采取任何措施将其删除。我无法右键单击它们,无法使用Backspace或Delete删除它们,也无法突出显示它们。
我认为问题可能来自隐藏格式。一些写信的员工使用的是Mac版本的Office 2016,而我使用的是Windows版本。我向使用Mac版本的人发送了一个RTF文件,其中显示有黑色线条,但他们说看不到这些线条。
我的问题是,是否有办法摆脱这些限制或将来防止它们出现?我曾考虑过将Office版本的两端都升级到2019,但是有很多人会亲临这些信件,并且可能很难升级每个人。
编辑:这是“执行”代码:
'create temp rtf files to maintain rtf
If strForm = "ANG2" Then
txtPreD.SaveFile("\\server\AcknowledgementLetters\fptemp.rtf")
txtPostD.SaveFile("\\server\AcknowledgementLetters\bptemp.rtf")
ElseIf strForm = "ANGL" Then
txtPreD.SaveFile("\\server\AcknowledgementLetters\predtemp.rtf")
txtPostD.SaveFile("\\server\AcknowledgementLetters\postdtemp.rtf")
txtBP.SaveFile("\\server\AcknowledgementLetters\bptemp.rtf")
Else
txtPreD.SaveFile("\\server\AcknowledgementLetters\predtemp.rtf")
txtPostD.SaveFile("\\server\AcknowledgementLetters\postdtemp.rtf")
End If
'if bookmarks exists,insert appropriate rtf files
If odoc.Bookmarks.Exists("fp") = True Then
goWord.activeDocument.Bookmarks("fp").Select()
goWord.Selection.InsertFile(FileName:="\\server\AcknowledgementLetters\fptemp.rtf")
End If
If odoc.Bookmarks.Exists("bp") = True Then
goWord.activeDocument.Bookmarks("bp").Select()
goWord.Selection.InsertFile(FileName:="\\server\AcknowledgementLetters\bptemp.rtf")
End If
If odoc.Bookmarks.Exists("PreD") = True Then
goWord.activeDocument.Bookmarks("PreD").Select()
goWord.Selection.InsertFile(FileName:="\\server\AcknowledgementLetters\predtemp.rtf")
End If
If odoc.Bookmarks.Exists("PostD") = True Then
goWord.activeDocument.Bookmarks("PostD").Select()
goWord.Selection.InsertFile(FileName:="\\server\AcknowledgementLetters\postdtemp.rtf")
End If
在此之前,程序将检查以查看它需要打开哪个模板并将其作为Word对象(odoc)打开。这段代码确实是唯一重要的部分。在此之后,我只需单击“完成”即可,一旦检查完是否有错误,它只会保存文件。同样,是的,它创建的DO的RTF文件也具有黑线。这是程序本身的另一张图片,因此您可以更好地了解发生了什么。