Question

求电脑大神帮我看看这是什么。关于office word文档的。

Sub 无格式粘贴中文()
Application.ScreenUpdating = False
Selection.PasteAndFormat (wdFormatPlainText)
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
i.Range.Delete
End If
Next
Application.ScreenUpdating = True
End Sub

求大神解释这是什么啊 我门考试的题目。

Answer 1

这是word中的VBA程序，这个程序定义的无格式粘贴的操作。可以通过这段程序生成 无格式粘贴 的宏

追问

大神。
能不能告诉我运行结果是什么啊。

给跪了 谢谢了。

追答

复制一段文字后，在文章中某处运行这段程序，复制的文字将被粘贴至该处，格式延续该处文章格式

追问

大神 能不能帮我弄一下啊。
你最好了。。
万分感谢。

追答

Alt+F11进入 Visual Basic编辑器，视图中打开代码窗口，将该段代码复制并保存。
Alt+F8打开宏，你将看到增加一个名为 无格式粘贴的宏，当在word文档中进行无格式粘贴时，直接运行该宏（为提供效率，可设置快捷键）即可

追问

大神。
我错了。我还是弄不出来、
你能直接给我说下结果嘛。

真心跪下了。
麻烦了 万分感谢啊

追答

这段程序只是定义了 无格式粘贴的操作，
无格式粘贴你知道吧，就是复制来的资料不管原格式如何，粘贴后都是无格式的文本

Answer 2

JAVA程序