vbaword插入节

如何用VBA修改word的节开始的分节符

录制一个宏就知道了。

1、插入分节符（下一页）Selection.InsertBreakType:=wdSectionBreakNextPage2、后面插入指定图片。路径是中间那句jpg格式的，要更改成自己的。

Selection.InlineShapes.AddPictureFileName:=_"C:\DocumentsandSettings\AllUsers.WINDOWS\Documents\MyPictures\示例图片\Bluehills.jpg"_,LinkToFile:=False,SaveWithDocument:=TrueWORD的VBA主要是Selection事件，即光标移动到某一位置（当前），然事执行某项操作，一般用录制宏可解决。

Word中如何用VBA自动实现在插入点后面插入分节符（下一页）以及

录制一个宏就知道了。

1、插入分节符（下一页）

Selection.InsertBreak Type:=wdSectionBreakNextPage

2、后面插入指定图片。路径是中间那句jpg格式的，要更改成自己的。

Selection.InlineShapes.AddPicture FileName:= _

"C:\Documents and Settings\All Users.WINDOWS\Documents\My Pictures\示例图片\Blue hills.jpg" _

, LinkToFile:=False, SaveWithDocument:=True

WORD的VBA主要是Selection事件，即光标移动到某一位置（当前），然事执行某项操作，一般用录制宏可解决。

如何用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

如何用vba给一个word表格的最后插入一行

用ActiveDocument.Tables(1).Rows.Add好像也行，不知两者的效果有没有区别。

ActiveDocument.Tables(1).Rows.Add方法总是在指定行的前面插入行。

如：

Sub Example2()

Dim myTable As Table, myLastRow As Row

Set myTable = Me.Tables(1)

Set myLastRow = myTable.Rows.Last

myTable.Rows.Add myLastRow

End Sub

而Selection对象可以在所选行的上方或者下方插入等量的行。

注意，Add方法也可以插入指定数量的行。

Sub Example3()

Dim myTable As Table, myRows As Rows

Set myTable = Me.Tables(1)

Set myRows = Me.Range(myTable.Rows(1).Range.Start, myTable.Rows(3).Range.End).Rows

myTable.Rows.Add myRows

End Sub

怎么用vba实现在word中插入excel表格

Sub AA()

Dim projectno As String, projectname As String, datereceive As Date, datecomplate As Date, functionary As String

Dim arr As Object

Dim i As Long

Dim brr

projectno = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Range

Dim excelobject As Object

Set excelobject = GetObject("D:\Downloads\project(word)\project.xls")

Set arr = excelobject.Sheets(1).usedrange()

brr = arr

For i = 2 To UBound(brr)

If InStr(1, projectno, brr(i, 1)) > 0 Then

projectname = brr(i, 2)

datereceive = brr(i, 3)

datecomplate = brr(i, 4)

functionary = brr(i, 5)

Exit For

End If

Next i

ActiveDocument.Tables(1).Cell(1, 2).Range = projectname

ActiveDocument.Tables(1).Cell(2, 2).Range = datereceive

ActiveDocument.Tables(1).Cell(3, 2).Range = datecomplate

ActiveDocument.Tables(1).Cell(4, 2).Range = functionary

excelobject.Close False

End Sub

转载请注明出处51数据库 » vbaword插入节