1. vba提取Word指定文字
发两个文件到908856685@qq.com，应该可以实现。以下是word中的主要代码：
subtest()
dimxcelasnewexcel.application
dimxwbkasexcel.workbook
dimxshtasexcel.worksheet
setxwbk=xcel.workbooks.open("d:\xxx\memo+browse.xlsx",0,1)
setxsht=xwbk.sheets(1)
msgboxxsht.range("a2")
xwbk.close0
xcel.quit
setxcel=nothing
endsub
2. vba提取文本中的文字
语句没有错，在ActiveWindow.View.ShowHeading 1后再循环获取一级大纲字符串，不用循环应该没有吧。
3. vba 提取固定字符前的字符
VBA在excel就是抓数据、计算数据的，要看你具体怎么抓。比如抓取特定字段数据，应该用到三个字符串函数：LEFT、RIGHT、MID
1、LEFT函数：
用法：LEFT（要提取字符所在单元格,从左侧开始提取的个数)
例如：=LEFT(A1,2) 意思是从A1单元格提取前两个字符。
2、RIGHT函数：
用法：RIGHT(要提取字符所在单元格,从右侧开始提取的个数）
例如：=RIGHT(A1,2) 意思是从A1单元格提取最后两个字符。
3、MID函数：
用法：MID(要提取字符所在单元格,开始位置，提取个数）
例如：=MID(A1,2,2) 意思是从A1单元格提的第二个单元格开始，提取两个字符，也就提取A1单元格第2个和第3个字符。
注：用MID函数，也可以替代前两个函数，比如：=MID(A1,1,2)与=LEFT(A1,2)的结果是一样的，再比如：=MID(A1,LEN(A1)-2+1,2)与=RIGHT(A1,2)的结果是一样的只是这里用到LEN函数，其作用是取得单元格字符串的长度。
4、提取后的字符合并：
字符合并要用到连接符号：&
比如：=LEFT(A1,2)&RIGHT(A1,2) 意思是把A1单元格的前两个和最后两个字符，提取出来组成一个新的字符。
4. vba读取word内容
必须提供实际的Word文档以便确认Word中的表结构。
5. word2007怎么提取文字
用Word无法直接进行语音输入文字，但是可以通过第三方软件如输入法来实现这个功能。
具体操作步骤如下：
1、首先打开word文档，点击空白处显示出光标并打开输入法。
2、然后点击输入法的展开按钮，找到【语音输入】并点击。
3、按住【开始说话】，然后说出你想要打出来的字。
4、最后说完之后暂停或关闭即可。
由于这个语音输入系统是Office提供的，所以只能在Office程序中进行语音输入，不过现在用word的人很多，相信不会有什么影响的。
6. word vba 获取文本框文字
VBA中设置文本框可直接使用回车键换行
称设置文本框 的属性 Scrollbars为 vertical为垂直。然后允许多行，并设置Enter回车键的行为（Access设置为文本中新行即可）
1，设置文本框Multiline = true
2，设置文本框Wordwarp = true
2，设置文本框Enterkeybehavior= true
7. excel提取指定文字到word
其实说到这个问题，有很多朋友都不是很清楚。其实很简单。只要熟悉几个按键，多操作几次就可以了。在这里我简单一说。
第一步:把鼠标点击一下所要复制的内容，然后crti+a表示全选，第二步crtl+c复制。
第三步:打开word，然后crtl+v粘贴就可以了。
8. vba提取word中指定内容
word中的表格是一个table对象，vba代码中可遍历word文件夹中各文件，依次打开，将其中的table对象即表格复制到excel中，
9. vba批量提取word指定内容到Excel
步骤一、先进入Excel表格，然后选中需要导入到Word文档中的区域，按下Ctrl+C复制; 步骤二、打开Word，然后选择菜单栏的“编辑”中的“选择性粘贴”，在“形式”下面选中“MicrosoftOfficeExcel工作表对象”然后确定; 此时，就已经把编辑好的Excel表格导入到Word中了，有的人这时肯定会说，这还不是和Word中表格没什么却别啊!确实，就这样用肉眼看，根本就看不错这个表格和Word中做的表格有什么不一样之处; 区别肯定是有的，不信你双击表格看看，会是什么效果，没错把，导入的表格和Excel中的表格一模一样，当然，这个表格也可以自由拖动它的长和宽，还可以运用Excel中的公式呢!
10. vba提取word指定数据
一：利用Word里面的“索引”功能。
1、选中需要提取的文字，执行菜单命令“插入-引用-索引和目录”；
2、在“索引”选项页里面选择单击按钮“标记索引项”；
3、指定“选项”为“当前页”，根据需要可以指定提取之后显示的页码格式为加粗或者倾斜，单击“标记”；
4、此时标记索引项窗口并不会关闭，而且你还能在文档中找到并选中下一个需要提取的文字，重复步骤3；
5、如果没有其它需要提取的文字了，单击“关闭”；
6、在需要插入索引表的地方，执行菜单命令“插入-引用-索引和目录”，根据需要设置索引表的格式（比如分栏、对齐、缩进等风格），然后单击“确定”。
这样所有标记过索引的文字以及它们所在的页码就都提取出来了。
如果需要提取的文字有很多，那么或许也可以用VBA宏来自动标记索引（即相当于自动完成上面的1-5步骤）。但是前提是这些文字必须都有非常特定的格式，即可以保证当前文档中凡是具有这个格式的文本，都是需要提取索引的文本。
二：下列VBA代码可以自动为当前文档中的所有红色文字建立索引条目，并在当前光标位置处插入带文字条目以及对应页码的索引表：
Option Explicit
Sub AutoMarkIndexForAllRedText()
Dim oSaveSelection As Range
Set oSaveSelection = Selection.Range
Selection.StartOf wdStory
Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorRed ' 在这里可以设置更多的匹配格式，如字体、字号等
While Selection.Find.Execute(FindText:="", Forward:=True, Format:=True)
ActiveDocument.Indexes.MarkEntry(Selection.Range, Selection.Range.Text).Select
Selection.Collapse wdCollapseEnd
Wend
oSaveSelection.Select
ActiveDocument.Indexes.Add Selection.Range
MsgBox "完成！"
- 相关评论
- 我要评论
-