[求助]Word中用VBA的几个问题

xjimmyshcn

1.我想保证表格在一页上显示,请问用vba如何实现?如何用VBA判断word中表格是否跨页了?

2.word中"绘图-文本框"如何用VBA控制？比如我想改变文本框中的字体颜色为白色。

[em02]

gues1688

第1个问题好像很难办

第2个问题：

Sub ShapeSetup()
ActiveDocument.Shapes("Text Box 7").Select '选中文本框
Selection.ShapeRange.IncrementLeft -152.25 '左移
Selection.ShapeRange.IncrementTop -44.95 '上移
With Selection.Font '设置字体风格
.Name = "华文细黑"
.Color = wdColorOrange
End With
End Sub

守柔

参考：

Sub Sample()
Dim myTable As Table, FirstPage As Integer, LastPage As Integer
Set myTable = ActiveDocument.Tables(1)
With myTable
FirstPage = .Cell(1, 1).Range.Information(wdActiveEndPageNumber)
LastPage = .Range.Cells(.Range.Cells.Count).Range.Information(wdActiveEndPageNumber)
If LastPage <> FirstPage Then
MsgBox "不在同一页中!", vbInformation
Else
MsgBox "在同一页中!", vbInformation
End If
End With
End Sub
Sub Example()
Dim myShape As Shape
Set myShape = ActiveDocument.Shapes(1)
myShape.TextFrame.TextRange.Font.Color = wdColorWhite
End Sub

xjimmyshcn

谢谢各位,第二个问题解决了.