word vba 宏

2013-06-06 10:36:22 266 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Word VBA宏及MATLAB调用Word学习简介什么是宏一组动作的集合，简单点说就是批处理。什么是VBA 写代码的面向WORD的VB编辑开发语言。我们平时所称的VBA，即是以编程的方法来处理WORD中的各种对象。学习方法建议多录制宏，查看代码使用可能出现的问题 word宏无法打开，设置步骤一：依次打开：工具－－选项－－安全性–宏安全性，设置成“低”或“中”，点击“确定” 步骤二：现在去关闭WORD程序。。步骤三：再打开WORD程序，打开相应的文件，用你的宏就Ok了。 VBA 对象、属性、事件、方法 MATLAB调用Word 基本思阅读详情

如何取得上标和上标之间的内容
如何获得加粗字体和加粗字体之间的内容

并且有时候
如果上标或者黑体什么的在段尾
下面紧接着是表格
这时候通过vba获取的上标可能是不完整的
在段尾再打一下回车然后再删除这个回车就正常了

...全文

Word vba 宏批处理应用实例（一） Word vba 宏批处理应用实例（一） Office办公软件使用过程中，应用宏进行批处理操作，能帮助工作者节省大量时间，提高办公效率与准确性，而且是一件非常有意思的事情。废话不说了，直接上实例——Word vba之文档表格内容自动合并。举个栗子，有两个word文档：A和B。A中有200页，每页中有一个表格，表格第一行需要录入天气数据，见图1所示。B中有一个表格，有200行，每行有1条天气数据，见图2所示。现在需要把文档B中的天气数据拷贝到文档A中，你会怎么处理？CTRL+C然后CTRL+V，想想——心累阅读详情

taohua300

VBA 2,506 成员 10,830 内容

+ 关注 + 加入社区

切换为时间正序

赵4老师 2013-06-13

打赏
举报

在Word2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

赵4老师 2013-06-13

打赏
举报

引用 6 楼 taohua300 的回复:

[quote=引用 5 楼 zhao4zhong1 的回复:] 在Word2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

手动怎么判断两个上标之间是《不是上标的空格》[/quote] 用Range或Selection对象的Move方法移到下一个字符，获取当前字符的Font属性中的Superscript属性？

taohua300 2013-06-13

打赏
举报

引用 7 楼 zhao4zhong1 的回复:

在Word2003中开始记录宏，手动选中你要获取的内容，Ctrl+C，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码中将哪些内容放在剪贴板中了。

按你说的知道怎么做但不知道这么为什么这么做查看选中，复制的代码然后怎么做？

赵4老师 2013-06-13

打赏
举报

在Word2003中开始记录宏，手动选中你要获取的内容，Ctrl+C，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码中将哪些内容放在剪贴板中了。

taohua300 2013-06-13

打赏
举报

引用 5 楼 zhao4zhong1 的回复:

在Word2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

手动怎么判断两个上标之间是《不是上标的空格》

taohua300 2013-06-11

打赏
举报

我试了一下可以下载啊

dsd999 2013-06-08

打赏
举报

测试文件无法下载了。

taohua300 2013-06-07

打赏
举报

测试文件

taohua300 2013-06-07

打赏
举报

Sub chk_shangbiao()


Dim flag As Boolean
Dim filename As String
filename = ActiveDocument.Name
Dim newdoc As Document
Set newdoc = Documents.Add
flag = True
Documents(filename).Activate
Selection.HomeKey Unit:=wdStory
Do
    Dim mystr As Range
    Selection.Find.ClearFormatting
        
       With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
     '   .Wrap = wdFindContinue
        .Font.Superscript = True
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
       End With
       
        Selection.Find.Execute
        Set mystr = Selection.Range
        If Selection.Find.Found = True Then
           ' MsgBox mystr.Text
           If Left(mystr.Text, 1) = " " Or Right(mystr.Text, 1) = " " Then
                MsgBox mystr.Text
                newdoc.Content = newdoc.Content & mystr.Text & Chr(13) & Chr(10)
           End If
        Else
            flag = False
        End If
Loop While flag
newdoc.Activate
newdoc.SaveAs ("d:\check_shangbiao.doc")
End Sub

这段代码主要是为了检查上标前后是否有被标记了上标的空格和两个上标之间是否有正常空格

word vba 宏

相关推荐