1. wordvba，如何在Word中打开VBA编程窗口？
打开多个文档后--窗口--重排窗口--垂直平铺(水平平铺、层叠)--确定。
2. 如何用wordvba实现页面设置里的字体设置？
appword.selection.font.bold=true
appword.selection.font.italic=true
这是加粗和倾斜的语句！你自己看加在自己想要的地方！
3. wordvba如何提取文章段落？
同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Subtest()
Selection.HomeKeywdStory
Selection.Find.Text="关键字"
Selection.Find.Execute
Selection.Paragraphs(1).Range.Copy
Documents.Add
Selection.Paste
EndSub
这个代码，把查找到的第一个“关键字”所在的段落，复制到一个新的文档里。
4. vba如何提取一串数字的前几位数？
一、左截字符串，从字符串的左边开始截取N位。 =LEFT(字符串,N) 比如要提取A1单元格从左边第一位开始的连续三个字符。
=LEFT(A1,3) 二、从字符串指定位数向右截取N位。 =MID(字符串,指定位数,N) 比如B1单元格是ABC123D，现在要提取其中的123到C1里 在C1输入公式： =MID(B1,4,3)
5. 用VBA快速获取word大纲文本？
语句没有错，在ActiveWindow.View.ShowHeading 1后再循环获取一级大纲字符串，不用循环应该没有吧。
6. 如何vba删除word前几段落段首空格？
你这么急，为什么不用“查找”、“替换”呢，多简单：在查找框输入括号内的内容（^p )，替换为（^p），注意空格分半角和全角，要多次交换使用才能确保所有空格删除完毕。
7. word调用excel？
在有文件的文件夹中新建一个excel 工作簿，打开工作簿，按Alt + F11，把下面的代码复制进去，按F5执行。
代码会复制工作文件的前300个字符到excel中。
子测试（）
Dim i％，myName $，myPath $，AppWord As Object
Set AppWord = CreateObject（“Word.Application”）
myPath = ThisWorkbook.Path＆“\”
myName = Dir（myPath＆“* .doc *”）
With ActiveSheet
.Columns（“A：B”）。ClearContents
Do my myName <>“”
AppWord.Documents.Open Filename：= myPath＆myName
i = i +
1.Cells（i，1）= myName
.Cells（i，2） = AppWord.ActiveDocument.Range（开始：= 0，结束：= 300）.Text
AppWord.ActiveDocument。关闭False
myName = Dir
Loop
End With
AppWord.Quit
Set AppWord = Nothing
MsgBox“已完成。”
End Sub
