wordvba时间格式设置

VBA生成文档格式如何设置

展开全部 ①将格式应用于选定内容下列示例使用Selection属性将字符和段落格式应用于选定文本。

使用Font属性获得字体格式的属性和方法，使用ParagraphFormat属性获得段落格式的属性和方法。

Sub FormatSelection()With Selection.Font.Name = ＂Times New Roman＂.Size = 14.AllCaps = TrueEnd WithWith Selection.ParagraphFormat.LeftIndent = InchesToPoints(0.5).Space1End WithEnd Sub②将格式应用于某一区域下列示例定义了一个Range对象，它引用了活动文档的前三个段落。

通过应用Font 和ParagraphFormat对象的属性来设置 Range对象的格式。

Sub FormatRange()Dim rngFormat As RangeSet rngFormat = ActiveDocument.Range( _Start:=ActiveDocument.Paragraphs(1).Range.Start, _End:=ActiveDocument.Paragraphs(3).Range.End)With rngFormat.Font.Name = ＂Arial＂.ParagraphFormat.Alignment = wdAlignParagraphJustifyEnd WithEnd Sub③插入文字并应用字符和段落格式下列示例在当前文档的上部添加单词 Title。

第一段居中对齐，并在该段落之后添加半英寸的间距。

将单词 Title 的格式设为 24 磅 Arial 字体。

Sub InsertFormatText()Dim rngFormat As RangeSet rngFormat = ActiveDocument.Range(Start:=0, End:=0)With rngFormat.InsertAfter Text:=＂Title＂.InsertParagraphAfterWith .Font.Name = ＂Tahoma＂.Size = 24.Bold = TrueEnd WithEnd WithWith ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphCenter.SpaceAfter = InchesToPoints(0.5)End WithEnd Sub④在 12 磅和无之间切换段前间距下列示例切换选定内容中第一段的段前间距。

宏将获取当前段前间距的值，如果该值为 12 磅，则删除段前间距格式（将SpaceBefore属性设为零）。

如果段前间距的值为除 12 外的其它数值，则将 SpaceBefore属性设为 12 磅。

Sub ToggleParagraphSpace()With Selection.Paragraphs(1)If .SpaceBefore 0 Then.SpaceBefore = 0Else.SpaceBefore = 6End IfEnd WithEnd Sub⑤切换加粗格式下列示例切换选定文本的加粗格式。

Sub ToggleBold()Selection.Font.Bold = wdToggleEnd Sub⑥将左边距增加 0.5 英寸下列示例将左边距和右边距增加 0.5 英寸。

PageSetup对象包含文档的所有的页面设置属性（左边距、下边距、纸张大小等）。

LeftMargin属性用于返回和设置左边距设置。

RightMargin属性用于返回和设置右边距设置。

Sub FormatMargins()With ActiveDocument.PageSetup.LeftMargin = .LeftMargin + InchesToPoints(0.5).RightMargin = .RightMargin + InchesToPoints(0.5)End WithEnd Sub

用vba打开word模板并修改后保存

1、打开Word文件的 VBA编辑器，快捷键 Alt+F11，右击【ThisDocument】-》 【插入模块】；用VBA代码设置Word自动保存的步骤2、双击刚才插入的【模块1】，添加如下代码：Sub 自动备份（）Dim NewTimeNewTime = Now + TimeValue(“00:05:10”)Dim myPath$, myName$myPath = ActiveDocument.PathmyName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)ChangeFileOpenDirectory myPathActiveDocument.SaveAs FileName:=myName & “_temp.doc”, ReadOnlyRecommended:=TrueActiveDocument.SaveAs FileName:=myName & “.doc”, ReadOnlyRecommended:=FalseApplication.OnTime NewTime， “自动备份”CreateObject(“Wscript.shell”).popup “备份成功，备份文件名为：” & myName & “_temp.doc”, 2， “提示！2秒后自动关闭！”End Sub用VBA代码设置Word自动保存的步骤用VBA代码设置Word自动保存的步骤3、双击【ThisDocument】并在其中 添加如下代码：Private Sub Document_Open()Call 自动备份End Sub用VBA代码设置Word自动保存的步骤4、默认自动备份时间为5min，如要调整请修改【模块1】中一句代码：如图中红框所示：时间格式为：HH : mm : ss用VBA代码设置Word自动保存的步骤5、保存代码及文件，且关闭word并重新打开，重新打开点击【选项】-》 【启用此内容】，如图：用VBA代码设置Word自动保存的步骤6、默认备份文件名为：【原文件名_temp,Lee.doc】且为只读，提示对话框2s后自动关闭。

备份效果显示如下：

word2010如何用宏设置图片格式为四周环绕型？

请看这个帖子：http://club.excelhome.net/viewthread.php?tid=285073&highlight=vba%2B%CD%BC%C6%AC%2B%2Bword呵呵，另请参考此帖：http://club.excelhome.net/viewthread.php?tid=321281&highlight=vba%2B%2B%CD%BC%C6%AC%2Bword希望是你想要的

转载请注明出处51数据库 » wordvba时间格式设置