教你快速将网上粘贴的文字排成标准的Word文档

daturay

直接从网上粘贴文字到Word，由于全角/半角，换行/回车等差别，在Word里排版挺麻烦。下面是我的经验与大家分享。

很多从网上下载的Word文章一般都采用首行全角空格代替首行缩进，整理起来比较麻烦，因此前几天我录了一个宏，代替手动操作可以极大提高效率，与各位分享，另请高手不要见笑。

Sub YF_Indent1F()
'
' Indent Macro
' 宏在 2004-4-6 由 Daturay 录制
'
For i = 1 To 10
Selection.Find.ClearFormatting
With Selection.Find
.Text = \"^p　\"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute

If Len(Selection.Text) <> 2 Then
Beep
MsgBox (\"全部处理完毕！\")
Exit Sub
End If

Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
With Selection.ParagraphFormat
.CharacterUnitFirstLineIndent = .CharacterUnitFirstLineIndent + 1
End With
Next i
End Sub

说明：
1、网上的文章还有一个特点就是往往使用的是换行而不是换段，因此，在执行宏之前，一般要先用^p替换全部^l，再连续执行上面的宏，直到提示“全部处理完毕”为止
2、上面的宏用的是全角空格，简单改一下就同样可以用于半角空格
3、很多网上文章还有一个特点就是每行一回车，多空行才代表真正换段。这种情况就更简单了，因为它的规律就是换段处是连续的^p^p，而换行处只有一个^p，所以我一般是把^p^p换成ABABABABAB，然后把所有的^p再换成无（就是删除），最后再把ABABABABAB换回^p即可。

wannxy

请问宏怎么用啊？你上面编的程序放到哪里啊？

daturay

打开Word，工具，宏，Visual Basic编辑器，左面窗格上半部分，点Normal，模块，双击NewMacros，出现编辑区，在最后回车，加入上文从“Sub YF_Indent1F() ”到“End Sub”（直接从上面复制即可），按第三个保存按钮保存，然后关闭就会返回Word。在Word中，Word工具栏上右键，自定义，命令，类别选宏，右边命令格中选择“Normal.NewMacros.YF_Indent1F”，把它拖到工具栏中的任意位置（括号内是不必需的：这时也可以在它上面右击，改变它的外观），关闭“自定义”。

以后要用时，如同一般“剪切”、“复制”按钮一样用。

边操作，边记录，累死我了。。。

purplemood

（自己未测试）感觉这样比较实用的帖子应该加威望

robot

我对WORD是除了打字之外，别的一窍不通

不错！支持！

sundk

太感谢了

sundk

太感谢了