关于 word VBA的宏运行 输入文本的代码 急求 谢谢

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了关于 word VBA的宏运行 输入文本的代码 急求 谢谢相关的知识,希望对你有一定的参考价值。

有一个固定的word表格,我想用自带的VBA 把 word中的字母 a,b,c...替换成我想要的东西 求源代码

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "x" ‘x为查找的内容
.Replacement.Text = "y" y为要替换成的内容
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
参考技术A 录制一个宏,手工替换一次,然后进代码里修改。

寻找Word VBA代码以使用当前默认高亮颜色突出显示文本

对于我可以包含在我的宏中以使用当前默认高亮颜色突出显示文本的VBA代码,我一直在搜索,高低,几个月,无济于事。我查看了我的个人资源书以及谷歌的所有内容,包括这里。

我创建了一个巨大的宏,它们以每种可能的(基本)颜色突出显示每个星期日的文本,并且它们都很好用。但有时我有一个场景,我想以持续的方式,多次,以特定的颜色突出显示随机文本。然后我会想换颜色......一会儿。并再次切换......一会儿。

我有很多突出显示选项的键盘快捷键(很多),包括用于突出显示我手动选择的文本的内置命令快捷键。因此,例如,我可以在左侧手动选择三个单词,并使用Ctrl + Alt + H调用内置的Highlight命令,它将使用当前的默认颜色。

但我无法用宏来进一步自动化。例如,我使用了许多不同的宏迭代来突出显示文本,因为我正在键入它,或者自动突出显示我左边的X个单词,或者一行或一个句子或段落。但是对于每个宏,我都被迫声明一种特定的颜色。这意味着我必须拥有大量的宏系列才能对每个(基本)颜色变化做同样的事情。如果我只想偶尔突出显示特定颜色的文本,那就没问题了。但是当我知道我将使用特定的颜色作为下一个,比如20或40个高光时,我想设置默认颜色然后只使用通用高亮命令而不是以颜色为中心的命令(这是更多脚步)。

答案

经过多次实验,我终于找到了一种方法。我不确定这是否是最有效的方式,但它有效!

我有许多以突出显示为中心的宏将使用此功能,但这里有一个使用此功能的示例。我将现有颜色声明为字符串,然后使用字符串而不是特定颜色(我错误地认为这是一个要求)。以下宏允许我在输入时突出显示:

    Sub honHighlightOnTypingSelectWord_DEFAULTCOLOR()

        CurColor = Options.DefaultHighlightColorIndex

        Application.ActiveDocument.Application.Options.DefaultHighlightColorIndex = CurColor

            Selection.Words(1).Select
            Selection.Range.HighlightColorIndex = CurColor

    End Sub 

问题解决了!

以上是关于关于 word VBA的宏运行 输入文本的代码 急求 谢谢的主要内容,如果未能解决你的问题,请参考以下文章

使用 Excel VBA 宏在 Word 中查找和替换页脚文本

word VBA如何实现TextBox中的文字居中对齐,文本框有相关的属性么?谢谢

Excel VBA 宏后期绑定

excel的宏与VBA入门——代码调试

[使用vba代码的ms Word文档文本翻译

vba打开word后每页插入文本框