Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

关于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”),单击“运行”按钮,稍候片刻,程序运行完毕后,首行空格就转换成功了。如果您有兴趣,还可以把上述宏的功能定义到快捷键上,这样使用起来会更加方便。



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助