UC知道关于word VBA
来源：百度知道 编辑：UC知道 时间：2024/06/03 04:53:04
1.如何利用VBA读一个文本文件的内容将其插入WORD
更进一步就是利用VBA选择文本文件中的部分内容，如同一字体的内容 将其插入word 如何操作？ 先谢谢了~~
2.word中如何提取某样式内容生成文本文件？
如何读一个样式或同一字号内容，同一属性内容，同一字体，写入另一个文本中~ 利用VBA可以实现吗？？？请高手帮忙~谢谢~
更进一步就是利用VBA选择文本文件中的部分内容，如同一字体的内容 将其插入word 如何操作？ 先谢谢了~~
2.word中如何提取某样式内容生成文本文件？
如何读一个样式或同一字号内容，同一属性内容，同一字体，写入另一个文本中~ 利用VBA可以实现吗？？？请高手帮忙~谢谢~
第一个问题
给你个建议
可以使用替换的方法
即现在word中输入一些替换用的关键词
比如 “替换内容1”
然后用vba的替换命令把
“替换内容1” 替换成你想要的内容
如果你看不懂的话
建议还是找去其他方法吧
需要一些基础
第二个问题
方法1
可以使用查找 高级 格式 选定要查找的内容的格式
选中突出显示所有。。。。
查找全部
方法2
有个前提就是你的格式很规范
格式 样式与格式
选中你要查找的内容的一部分
旁边的格式栏会显示你选中的文件的样式的
在上面点右键
选择选中所有#实例
就可以了
然后就可以操作了
至于要用vba的话 自己录制一个宏看看代码
写入文本的话 在vba帮助里搜索一下也有的
希望都你有用
Sub 全部转换()
Dim shu As String '记录文本中的分数
Dim zi As String '取分数中的分子
Dim mu As String '取分数中的分母
Dim wei As Integer '记录分数中分数线的位置
'移动到文章开头
Selection.HomeKey Unit:=wdStory
'查找“/”
While Selection.Find.Execute(findtext:="[0-9]@/[0-9]@[!0-9]@", Wrap:=wdFindContinue, MatchWildcards:=True)
shu = Left(Selection, Len(Selection) - 1)
wei = InStr(1, shu, "/"