vba 将 word 字符复制到excel 或txt
发布网友
发布时间：2022-05-07 23:56
共1个回答
热心网友
时间：2023-11-21 03:59
你的代码可以用的。
Sub test()Dim i
Dim Wrd As Range
i = Selection.Font.ColorIndex
For Each Wrd In ActiveDocument.Words
If Wrd.Font.ColorIndex <> i Then Wrd.Copy
SaveAsTxtFile '调用SaveAsTxtFile
Next Wrd
End Sub
Sub SaveAsTxtFile()
Const 指定文件名 = "autosave01.txt"
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
ActiveDocument.SaveAs2 FileName:=指定文件名, FileFormat:=wdFormatText, Encoding:=936
ActiveDocument.Close
End Sub
追问请问 我把您的代码 拷贝到 alt+F11 的vba 编辑器里。运行即可吗？
热心网友
时间：2023-11-21 03:59
你的代码可以用的。
Sub test()Dim i
Dim Wrd As Range
i = Selection.Font.ColorIndex
For Each Wrd In ActiveDocument.Words
If Wrd.Font.ColorIndex <> i Then Wrd.Copy
SaveAsTxtFile '调用SaveAsTxtFile
Next Wrd
End Sub
Sub SaveAsTxtFile()
Const 指定文件名 = "autosave01.txt"
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
ActiveDocument.SaveAs2 FileName:=指定文件名, FileFormat:=wdFormatText, Encoding:=936
ActiveDocument.Close
End Sub
追问请问 我把您的代码 拷贝到 alt+F11 的vba 编辑器里。运行即可吗？
