vba word 输出TXT问题 100
IfSelection.Find.Found=TrueThenSelection.HomeKeyunit:=wdLineSelection.MoveDownunit:=w...
If Selection.Find.Found = True Then
Selection.HomeKey unit:=wdLine
Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
Set fs = CreateObject("Scripting.FileSystemObject")
Set sr = fs.CreateTextFile("D:\" & txtname & ".txt", True)
sr.Writeline (Selection.Text)
sr.Close
输出到TXT后 末尾总会多出三个字符 如果用 Write则只多出一个字符 猜测可能是段落末尾的回车 求教怎么只选择段落文字。。 由于需要对输出到txt的字符要求必须完全准确 谢谢。。 展开
Selection.HomeKey unit:=wdLine
Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
Set fs = CreateObject("Scripting.FileSystemObject")
Set sr = fs.CreateTextFile("D:\" & txtname & ".txt", True)
sr.Writeline (Selection.Text)
sr.Close
输出到TXT后 末尾总会多出三个字符 如果用 Write则只多出一个字符 猜测可能是段落末尾的回车 求教怎么只选择段落文字。。 由于需要对输出到txt的字符要求必须完全准确 谢谢。。 展开
展开全部
用Write吧，为了避免多选一个回车，那就再加一句moveleft，最后改成
Selection.HomeKey unit:=wdLine
Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
Selection.MoveLeft wdCharacter, 1, wdExtend
Set fs = CreateObject("Scripting.FileSystemObject")
Set sr = fs.CreateTextFile("D:\" & TxtName & ".txt", True)
sr.Write (Selection.Text)
sr.Close
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
