乔山办公网我们一直在努力
您的位置:乔山办公网 > office365 > 求写一段用word VBA程序(宏命令)

求写一段用word VBA程序(宏命令)

作者:乔山办公网日期:

返回目录:office365


一、浮于文字上方的图片
Sub ab1()
'图片大小6.4×14
'
Selection.ShapeRange.LockAspectRatio = msoFalse '去掉“锁定横纵比“的勾
Selection.ShapeRange.Height = 274.95
Selection.ShapeRange.Width = 396.85
End Sub

二、如果是嵌入型

Sub ab1()
'图片大小6.4×14
'
Selection.InlineShapes(1).Height = 396.85
Selection.InlineShapes(1).Width = 274.95
End Sub

你的代码中查找内容为空,替换内容也为空,所以运行后不会有任何效果
给你e69da5e887aae799bee5baa6337一个例程(把所有红色字替换为蓝色字):
Sub ColorReplace()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.Color = wdColorRed
Selection.Find.Replacement.Font.Color = wdColorBlue
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
好吧,我去网络连接上看看告诉你

方法/步骤

  • 新建一个word 文档,命名为“百度经验@小木”。打开完成的页面如图,点击“视图”,然后点击“宏”->“录制宏”。今天我使用“word”来做一个示例,如果有必要的话,我还会把在其他office软件使用宏的教程发上来。

  • 现在,在“宏名”输入框输入你想起的名字。在“将宏保存在(S)”下拉列表中,选择“当前文档名”,即宏命令仅在当前文档有效。然后,点击“键盘”,即给宏命令定义快捷键,以提高编辑效率。

  • 把光标放在“请按新快捷键”输入框中,按下你要设置的快捷键。在“将更改保存在”后点击下拉列表选择“当前文档名”。然后点击“指定”,最后点击“关闭”。

  • 此时,鼠标下面就会出现“磁带”形状。现在,我们来录制(定义)一个简单操作作为例子吧。点击“插入”->“表格”,然后选择两行三列的e5a48de588b6e799bee5baa6e79fa5e98193335表格样式。如图2,界面上就已经创建可一个表格。现在如果你还想继续录制的话,可以继续点击一系列操作。

  • 我们点击“视图”->“宏”->“停止录制”。现在我们就完成了一个宏命令啦。现在,我们按下快捷键“Ctrl + Shift + B”就可以实现插入两行三列的表格了(如图2)!当然,你也可以定义多一点操作,比如:插入表格,输入特定文字,然后换行,等等。把这些操作一次性录制下来,就可以通过按下快捷键来一次完成啦。

  • 在保存时,文档会弹出一个窗口。如果大家已经编辑好文档的,或者需要发给别人,就不需要保存保存“宏”命令了,直接点击“是”,保存为传统格式。出于考虑安全性,启用宏的文档需要另存为其他格式。在此窗口点击“否”,进入另存为界面,在保存类型下拉列表中选择“启用宏的word文档”,然后点击保存。以后打开此文档,就可以继续使用宏命令了。

  • 我还写了许多计算机技巧,为的就是一句话:简单机械的操作还是交给电脑来完成吧。往往在使用office软件的时候,会遇到许多重复麻烦的操作,编辑起来非常麻烦,从今以后,大家就可以利用宏来快捷编辑啦。

相关阅读

  • 求写一段用word VBA程序(宏命令)

  • 乔山办公网office365
  • 一、知浮于文字上方的图片Sub ab1()图片大小6.4×道14Selection.ShapeRange.LockAspectRatio = msoFalse 去掉“锁定横纵比“的勾回 Selection.ShapeRange.Height = 274.95 Selection.Shap
关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网