消除word文件中的空间

在我的word文件中有像下面的格式那样的段落hundrens。这里有一个字母Y.它可以是除“A”，“T”，“C”，“G”之外的其他字母。我想删除它中的空白，然后创建一个新行。消除word文件中的空间

AAATGGGCCC CACAGAAGTG AGAATGGGTG AAGTCAGAAT TCCTGGTAAT GAAGTGCTTG 
AACTTGGATT CCTCCCGACA TGTGCAGTAC AATGAGATGA TTTTCTCCTT AATGAGATTA 
GGAAATTCTA TTAGCGCTCC CAGCTGCTGA CCCGATTCCA TGAGGCTGAG GCTCCAGGGC 
TGAACCTGCC TGGTT 
Y 
AGTGTTCCTG GAAACTAGAC ACCCCACCCT TCAGATGGGC CAGGGCCTCC CCAGCTCTAC 
CTAAAGCTGT GGTCTGCCCC CAGGGGTGCC CAGTTTCCTC CCTTCACCCT GTGCTCCAGA 
GGAGTGTGGG GCCCTGGGCA TTCTGCAGTG TACCCCAGGA TCCTCACTCC TTCCTGCTTA

新的生产线的格式是

AAATGGGCCCCACAGAAGTGAGAATGGGTGAAGTCAGAATTCCTGGTAATGAAGTGCTTGAACTTGGATTCCTCCCGACATGTGCAGTACAATGAGATGATTTTCTCCTTAATGAGATTAGGAAATTCTATTAGCGCTCCCAGCTGCTGACCCGATTCCATGAGGCTGAGGCTCCAGGGCTGAACCTGCCTGGTT[Y]AGTGTTCCTGGAAACTAGACACCCCACCCTTCAGATGGGCCAGGGCCTCCCCAGCTCTACCTAAAGCTGTGGTCTGCCCCCAGGGGTGCCCAGTTTCCTCCCTTCACCCTGTGCTCCAGAGGAGTGTGGGGCCCTGGGCATTCTGCAGTGTACCCCAGGATCCTCACTCCTTCCTGCTTA

通知Y变成[Y]。

最终结果将保存为文本文件。感谢帮助。

来源

2011-02-25 Hui Zhao

你想这样做一次或你想在字VB脚本来做到这一点？（我注意到了Word-vba标签）。 – Argote 2011-02-25 18:30:06

你的意思是像一个宏或一个VB程序？至少你有尝试过什么吗？ – 2011-02-25 18:32:03

其实我想运行一个宏，比如点击一个空白的word文件中的一个按钮，然后等等等等。结果可以在文本文件中找到。 – 2011-02-25 18:32:26

您不需要编写程序。 “替换”工具是足够的：

更换Y与[Y]（编辑：下面看到的评论，因为它是一个多一点，确实复杂）
更换^w一无所有（^w意味着空白）
更换^p一无所有（^p意味着段落标记）

编辑：如果你需要一个宏，只需要在录制宏时进行一次上述操作。

编辑：通过应用，我得到以下VBA宏在评论中讨论的方法：

Sub ProcessATCG() 
    Selection.Find.ClearFormatting 
    Selection.Find.Replacement.ClearFormatting 
    With Selection.Find 
     .Text = "([!ACGT^13^32])" 
     .Replacement.Text = "[\1]" 
     .Forward = True 
     .Wrap = wdFindContinue 
     .Format = False 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchAllWordForms = False 
     .MatchSoundsLike = False 
     .MatchWildcards = True 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 
    With Selection.Find 
     .Text = "[^13^32]" 
     .Replacement.Text = "" 
     .Forward = True 
     .Wrap = wdFindContinue 
     .Format = False 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchAllWordForms = False 
     .MatchSoundsLike = False 
     .MatchWildcards = True 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 
End Sub

来源

2011-02-25 18:32:45 ChrisJ

单独的字母不一定总是“Y”的问题。有成千上万的段落。 – 2011-02-25 18:37:10

只要您点击“全部替换”，文档的大小就无关紧要了;-)“分隔字母”的集合是否定义良好？这些是什么？ – ChrisJ 2011-02-25 18:38:19

它们可以是“Y”，“Z”，“X”等。除“A”，“G”，“C”，“T”以外的任何字母。 – 2011-02-25 18:40:32

消除word文件中的空间

回答

相关问题