在word里用vba编写一个按钮程序，目的是全文查找指定文字然后将该文档内的指定文字更改为红色。

Posted 2023-05-08

在word里用vba编写一个按钮程序，目的是全文查找指定文字然后将该文档内的指定文字更改为红色。请高手指点一下。

word里面插入一个按钮,然后指定下面的宏.
Sub 替换()
a = InputBox("输入查找字符")
b = InputBox("输入替换次数,不输入替换1000次")
If b = "" Then c = 1000
c = b
For i = 1 To c
Selection.Find.ClearFormatting
With Selection.Find
.Text = a
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute
Selection.Font.Color = wdColorRed

Next i
End Sub 参考技术A 给你个简单的方法，在word里面记录宏，记录下你所说的这些操作，然后进vba编辑器，看宏代码，那些就是了~

通过 VBA excel 程序在 MS Word 标题中的边框线后添加页码和新行

【中文标题】通过 VBA excel 程序在 MS Word 标题中的边框线后添加页码和新行

【英文标题】：Adding Page number and new line after a border line in MS Word header by a VBA excel program

【发布时间】：2016-04-10 21:13:03

【问题描述】：

我的 vba 程序有点问题。

我有一个 VBA excel 程序来创建一个新的 word 文档。我想在我的 word 文档中添加一个标题，但我是 word 中的 VBA 新手。所以我不知道该怎么做。

在我的标题中，我想在左侧有一些来自 Excel 的信息，在右侧有页码“Page X of Y”。还有一件事，我可以在标题下添加一条边框线，但我不知道如何在边框后添加一条额外的线以在标题和普通文本之间保持空格。

这是我的代码：

Dim objword As Word.Application
Dim mydoc As Word.document
Dim WRng As Word.Range
Set objword = CreateObject("Word.application")
Set mydoc = objword.Documents.Add

'HEADER

Set WRng = mydoc.Sections(1).Headers(wdHeaderFooterPrimary).Range

WRng.Text = wsexcel.Range("A5") & " " & wsexcel.Range("B5") & vbtab & **Page  number of total**
WRng.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle

**???? Add space after the border line???** 

标题示例

code

【参考方案1】：

以下任何一项都会在标题的底部边框线之后创建一个空格：

1) 增加页面布局/格式中上边距的大小。 （这是纸张上边缘与页面上第一行非标题文本之间的距离。） 2）在标题文本的段落格式中，增加“后间距”设置。设置选项以消除相同样式的段落之间的间距，否则您最终可能会在标题文本的所有行之间创建间距。

您可以在 VBA 代码中执行上述任一操作。

【讨论】：

非常感谢！我只需添加以下行来更改上边距，它就可以了！再次感谢！我从来没有想过利润。 mydoc.Sections(1).PageSetup.TopMargin = InchesToPoints(1.7)