怎样使用VBA批量删除word中空行
Sub DelBlank()Dim i As Paragraph, n As IntegerApplication.ScreenUpdating = FalseFor Each i In ActiveDocument.ParagraphsIf Len(i.Range) = 1 Theni.Range.Deleten = n + 1End IfNextMsgBox "共删除空白段落" & n &; "个"Application.ScreenUpdating = TrueEnd Sub试试上面的代码
怎样使用VBA批量删除word中空行
Sub DelBlank()Dim i As Paragraph, n As IntegerApplication.ScreenUpdating = FalseFor Each i In ActiveDocument.ParagraphsIf Len(i.Range) = 1 Theni.Range.Deleten = n + 1End IfNextMsgBox "共删除空白段落" & n & "个"Application.ScreenUpdating = TrueEnd Sub试试上面的代码...
用VBA将word中的数字加空格替换成同样的数字加制表符,谢谢! 例...
先注释 On Error Resume Next 再调试从最后一行开始添加表格可以用下面的代码Visual Basic code?'=============追加表格=============Set rs = myWord.Tables(1).RowsDim i As IntegerFor i = 1 To 10rs.Add rs(rs.Count)Next'===========追加表格================
如何用VBA代码为Word添加菜单(即命令栏)?
Dim myMenuBar Dim newMenu Dim ctrl1 Dim s Dim flag As String '初始化菜单 Set myMenuBar = CommandBars.ActiveMenuBar Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _ Temporary:=True) newMenu.Caption = "电子印章" Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "添加电子印章" ctrl1.Style = msoButtonCaption ctrl1.OnAction = "AddSeal" Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "验证电子印章" ctrl1.Style = msoButtonCaption ctrl1.OnAction = "CheckSeal" ctrl1.Style = msoButtonCaption Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "关于" ctrl1.OnAction = "About" ctrl1.Style = msoButtonCaption
转载请注明出处51数据库 » word 用VBA加空行