Vba 在word文档中选择和标记特定格式

Vba 在word文档中选择和标记特定格式,vba,ms-word,Vba,Ms Word,由于需要将文档文件导出为TXT,然后在不丢失粗体和下划线格式的情况下重新导入,我需要一个宏来完成这项工作 我的想法是选择每组粗体字,可以是一个句子,也可以是句子中的一个单词,然后在前面和后面写上say。当返回到word中时,应出现相反的情况,即所有文本介于和之间,返回到粗体。相同的宏适用于下划线和粗体+下划线。我尝试将文档导出为html,然后在html编辑器中打开并另存为txt,只保存粗体和下划线标记。完美,如果不是编辑器在每行末尾放置的CR LF TIA,我的宏编程技能缺乏基本的 阿尔贝托您能

由于需要将文档文件导出为TXT,然后在不丢失粗体和下划线格式的情况下重新导入,我需要一个宏来完成这项工作

我的想法是选择每组粗体字,可以是一个句子,也可以是句子中的一个单词,然后在前面和后面写上say。当返回到word中时,应出现相反的情况,即所有文本介于和之间,返回到粗体。相同的宏适用于下划线和粗体+下划线。我尝试将文档导出为html,然后在html编辑器中打开并另存为txt,只保存粗体和下划线标记。完美,如果不是编辑器在每行末尾放置的CR LF

TIA,我的宏编程技能缺乏基本的


阿尔贝托

您能为原始文件和您处理的文件提供一些示例文档吗?如果仅涉及CR和LF,您可以通过VBA替换它们:

textasstring=替换$textasstring,vbCrLf, textasstring=替换$textasstring,vbLf


另一个解决方案是使用一个编辑器,该编辑器能够支持扩展搜索和替换,包括\r和\n记事本++。

谢谢,这样做了,但我意识到我采用的方式太复杂了。更简单的方法是告诉单词在任何粗体句子前放一个符号,在结尾放一个不同的符号。我在兜圈子,我的程序幻想也快用完了,所以我想我自己永远也做不到。