请问大侠如何编程调整word文档的行间距？

Question

Selection.WholeStory     '选中这个文档
Selection.ParagraphFormat.LineSpacing = 20   '设置行间距
Selection.MoveRight Unit:=wdCharacter, Count:=1  '取消选中

Answer 1

你是否发现在Word中通过菜单来调整行间距是件麻烦事?Word97有了新的便捷的方法了：按Ctrl＋1设单倍行间距；按Ctrl＋5设一倍半行间距；按Ctrl＋2设双倍行间距(都要先选中文字，而且退出汉字输入方式)。

Answer 2

你是要在哪里编程，是在VB中，还是在VC中，还是直接在WORD BASIC中控制

Answer 3

Dim wApp As New Word.Application
wApp.Documents.Open "c:\test.doc" '打开需要修改的文档
wApp.Visible = True           'TRUE把WORD显示出来，FALSE把WORD隐藏
wApp.Selection.WholeStory     '选中这个文档
wApp.Selection.ParagraphFormat.LineSpacing = 20   '设置行间距
wApp.Selection.MoveRight Unit:=wdCharacter, Count:=1  '取消选中
wApp.Documents.Close True       '关闭，并保存
wApp.Quit True                 '退出WORD
Set wApp = Nothing             '清空对象

Answer 4

大侠再帮一下忙吧。请问如何将几行文字文字写入这个设定好行距的word文件？

Answer 5

wApp.Selection.TypeText Text:="你需要输入的文字1" & Chr(13) & "你需要输入的文字2"
wApp.Selection.TypeParagraph       '换行
wApp.Selection.TypeText Text:="你需要输入的文字3" & Chr(13) & "你需要输入的文字4"----------------------------------------------------
换行可以使用 chr(13)或者是wApp.Selection.TypeParagraph

Answer 6

大侠为什么我运行时Dim wApp As New Word.Application出现编译错误，说是用户定义类型未定义？请问这是怎么回事？

Answer 7

问题解决了，多谢iju1221大侠！分数奉上。