关于WORD中首行缩进转换为“空格”的问题

时　间:2013-10-07 15:22:33
作　者:刘飞   ID：30471  城市：石家庄
摘　要:从word向Access拷如文本时，还是首行能空两格最好，他可以帮你了。
正　文:

     谢谢这个网站，他让我学到了很多，我也要为其做出自己的贡献。

    日常工作中，我们常常先用Word录入和编辑有关的文字内容，然后再将其复制粘贴到Outlook Express、FrontPage或Dreamweaver等应用软件里来发邮件或制作网页。在Word中，通常使用“首行缩进”的方法为每一段中文在起始处提供两个空格。但是文字内容粘贴到上述应用软件后，原来在Word中由首行缩进空出来的位置却不见了，用户使用起来深感不便。如何解决这一问题呢？
     我们知道通过创建和使用“宏”(VBA代码)可以扩展Word的功能。利用下面这段“宏”就可以把Word每段文字的首行缩进自动转换成为首行的两个空格，此后再复制和粘贴，就能够满足书写习惯的要求了。
创建和使用“宏”的具体操作步骤如下。
创建宏
      在Word中按组合键Alt+F8，为“宏”设定一个名字，我们在此假设为“zsf”，单击“创建”按钮，可以看到在VBA的代码框中自动出现了“Sub zsf()……End Sub”几行的代码(如附图所示)，在其间键入下面的代码(“'”号后为注释部分，不必键入)，然后保存。

————————————————————此为代码———————————————————— 

Sub zsf()

Dim lngPN As Long, L As Long

Dim strSS As String

lngPN = ActiveDocument.Paragraphs.Count

    L = 1

   Selection.HomeKey Unit:=wdStory

    While L <= lngPN

       Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend

     strSS = Selection.Text

     strSS = Left(strSS, Len(strSS) - 1)

            If strSS <> "" Then

                Selection.TypeText Text:="　　" & strSS

            End If

    Selection.MoveRight Unit:=wdCharacter, Count:=1

    L = L + 1

Wend

MsgBox "转换完毕！"

End Sub
 

      打开所要处理的文档，按组合键Alt+F8，键入或选中“宏”的名字(如“zsf”)，单击“运行”按钮，稍候片刻，程序运行完毕后，首行空格就转换成功了。如果您有兴趣，还可以把上述宏的功能定义到快捷键上，这样使用起来会更加方便。