word 2007如何批量禁止 跨页断行?或者用vbs宏批量操作禁止表格跨

1.word 2007如何批量禁止 跨页断行?或者用vbs宏批量操作禁止表格跨

在word中，按Alt+F8→创建→名称写“SelectAllTables”→在编辑框里输入最下列内容（不含开始和结尾的双引号），然后保存。

然后在你想要批量修改的word里，按Alt+F8，运行刚刚创建的宏，就把这个word里所有表格都选中了，再右键属性，就可以修改了（PS：如果word中表格比较多，在点完运行后，可能会卡一会，稍等即可）。

“

Sub SelectAllTables()

Dim tempTable As Table

Application.ScreenUpdating = False

'删除所有可编辑的区域

ActiveDocument. wdEditorEveryone

'添加可编辑区域

For Each tempTable In ActiveDocument.Tables

tempTable.Range.Editors.Add wdEditorEveryone

Next

'选中所有可编辑区域

ActiveDocument. wdEditorEveryone

'删除所有可编辑的区域

ActiveDocument. wdEditorEveryone

Application.ScreenUpdating = True

End Sub

”

2.word

帮你写了代码，如下 ：=======================================Sub Macro2() Do Selection.Find.ClearFormatting Selection.Find.Text = "a" Selection.Find.MatchByte = True Selection.Find.Wrap = wdFindContinue t = Selection.Find.Execute If t = True Then Selection.TypeText Text:="@@@" Selection.MoveLeft unit:=wdCharacter, Count:=3 Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend If Asc(Selection.Text) = 13 Then Selection.MoveRight unit:=wdCharacter, Count:=1 Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend Selection.Range.HighlightColorIndex = wdYellow End If End If Loop While t = True Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Text = "@@@" Selection.Find.Replacement.Text = "a" Selection.Find.Wrap = wdFindContinue Selection.Find.Execute Replace:=wdReplaceAllEnd Sub========================================这是word中的宏代码，你要在其他地方调用此vba做相应的修改就行了希望能帮到你。

3.如何用vfp实现对word的控制

DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,;

STRING lpszOP, ;

STRING lpszFile, ;

STRING lpszParams, ;

STRING lpszDir, ;

INTEGER fsshowcmd

DECLARE INTEGER GetDesktopWindow IN win32api

HWND = GetDesktopWindow()

lpszOP = "open"

* 指定要打开的文件名

lpszFile =alltrim(filedir)+"help.doc"

lpszParams = ""

lpszDir = filedir

fsshowcmd =1

* 执行ShellExecute命令

LNRETURN = ShellExecute(HWND, lpszOP,lpszFile, lpszParams, lpszDir,fsshowcmd)

4.请教Excel的VBA中控制Word内SHape的方法

1.选择WORD中的SHAPE

ActiveDocument.Shapes(1).Select

2.提取WORD中的Shape的数量

ActiveDocument.Shapes.Count

3.提取WORD中的Shape的名称

ActiveDocument.Shapes(1).Name

' Selection.ShapeRange.Fill.Visible = msoFalse

5.请问大侠

Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set Board = WMI.InstancesOf("Win32_BaseBoard")

Set Bios = WMI.InstancesOf("Win32_Bios")

For Each oBoard In Board

BBx ="主板名称： " & oBoard.Product

Next

For Each oBios In Bios

BBx = BBx & "OEM 版本： " & oBios.Version

Next

Set CPUs = WMI.InstancesOf("Win32_Processor")

For Each ObjCPU In CPUs

CPUx = "CPU 名称： " & Trim(ObjCPU.Name) & vbCrLf & "地址位宽： " & ObjCPU.AddressWidth & " Bit"

Next

Set Memorys = WMI.InstancesOf("Win32_PhysicalMemory")

Mems = 0

For Each Mem In Memorys

Mems = Mems+(Mem.Capacity)

Next

MEMx = "内存安装： "& Round(Mems/1048576)&" MB "

Set IDE = WMI.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='IDE'")

For Each oIDE In IDE

Dx = "硬盘型号：" & oIDE.Caption & "容量： " & Round(oIDE.Size/1000000000) &" GB"

next

Set colItems = WMI.ExecQuery("Select * From Win32_ Where IPEnabled = True")

For Each objItem in colItems

For Each objAddress in objItem.IPAddress

If objAddress "" then

GetIPMAC = "IP:" & objAddress & vbcrlf & "MAC:" & objItem.MACAddress

Exit For

End If

Next

Exit For

Next

msg = bbx & vbcrlf & cpux& vbcrlf & memx & vbcrlf & dx & vbcrlf & GetIPMAC

Set objWord = CreateObject("Word.Application")

objWord.Visible = false

Set objDoc = objWord.Documents.Add()

objword.Selection.TypeText msg

pt = left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\"))

objword.ActiveDocument.SaveAs pt&"systeminfo.docx"

objword.quit

6.如何控制Word文档中插入的Excel对象

我们可在Word中编辑文本内容，然后在合适位置嵌入已经制作好的Excel成绩表格。

在Word中嵌入已有的Excel工作表的方法很多，各具特点，可根据具体情况而选用。 方法一：利用“复制、粘贴”命令来嵌入 此种方法插入的表格内容为Word文档中的普通表格，且与Excel脱离了关系。

1. 打开Excel工作表，选定要嵌入的对象。 2. 单击常用工具栏中的〔复制〕按钮，将选中的对象复制到“剪贴板”中。

3. 回到正在编辑的Word文档中，定位插入点，然后单击“编辑”菜单中的“粘贴”命令。 方法二：利用“选择性粘贴”命令来嵌入 利用此方法插入表格后，双击插入的表格可进入Excel，并可以在其中进行编辑，但原Excel工作表中的数据如有改变，对Word中嵌入的表格不会产生影响。

1. 打开Excel工作表，选定要嵌入的对象。 2. 单击常用工具栏中的〔复制〕按钮，将选中的对象复制到“剪贴板”中。

3. 回到正在编辑的Word文档中，定位插入点，再单击“编辑”菜单中的“选择性粘贴”命令。 4. 在弹出的“选择性粘贴”对话框中，选择“粘贴”单选框，表示将对象嵌入Word文档中。

在“作为”列表中选“Microsoft Excel工作表对象”选项，表示粘贴的内容可以用Excel工作表来编辑它，最后按〔确定〕按钮。 方法三：利用插入对象的方法来嵌入表格 此种方法表格一旦嵌入后，双击插入的内容可进入Excel，并在其中编辑它。

而且如果对原Excel工作表中的数据进行修改，Word中嵌入的表格也随之改变。 1. 打开正在编辑的Word文档，首先定位光标，然后单击“插入”菜单中的“对象”命令。

2. 弹出“对象”对话框，选择“由文件创建”选项卡，在“文件名”框中输入Excel工作表所在位置，或按〔浏览〕按钮进行选择。选中“链接到文件”复选框，可使插入内容随原Excel表格中的数据的改变而改变，最后按〔确定〕按钮。

3. 适当调整表格显示内容的位置。