关于多联单的整表复制的问题

jacksgq

我要做一个四联的单子，类似于收据，4联的表格格式和内容全部一样，但是每联的名称不一样。我的问题是，我能就做一份表格，然后通过宏让它自动复制三份出来。然后通过ActiveDocument.Paragraphs(45).Range = ""
'ActiveDocument.Paragraphs(45).Range = "第 2 联：承揽单位"　来变更每联的名称。但是，如果在表格中多行输入时，回车的话，上述语句就会产生错误。我想问问怎么样才能准确定位要修改的联次的位置？谢谢！

我使用的语句如下：

Sub cp7()
ActiveDocument.Tables(1).Range.Copy
ActiveDocument.Tables(1).Range.Paste
ActiveDocument.Tables(1).Range.Paste
ActiveDocument.Tables(1).Range.Paste
ActiveDocument.Paragraphs(45).Range = ""
ActiveDocument.Paragraphs(45).Range = "第 2 联：承揽单位"
ActiveDocument.Paragraphs(43).Range = "" '最后1行38
ActiveDocument.Paragraphs(83).Range = "第 3 联：技术部门"
ActiveDocument.Paragraphs(79).Range = "" '最后1行38
ActiveDocument.Paragraphs(121).Range = "第 4 联：公司主管领导"

我的ｗｏｒｄ文件是这样的。

SvFMDMaB.rar (11.86 KB, 下载次数: 24)

2005-12-2 14:45 上传

点击文件名下载附件
关于多联单的整表复制的问题

守柔

请参考：

Sub Example()
Dim i As Byte, myTable As Table, myRange As Range, newTable As Table
Dim strText As String
Application.ScreenUpdating = False
With ActiveDocument
Set myTable = .Tables(1)
myTable.Range.Copy
For i = 1 To 3
.Content.InsertAfter Chr(13)
Set myRange = .Range(.Content.End - 1, .Content.End - 1)
myRange.Paste
Set newTable = .Tables(.Tables.Count).Cell(2, 1).Tables(1)
Select Case i
Case 1
strText = "第 2 联：承揽单位"
Case 2
strText = "第 3 联：技术部门"
Case 3
sertext = "第 4 联：公司主管领导"
End Select
newTable.Cell(1, 3).Range = strText
Next
End With
Application.ScreenUpdating = True
End Sub

jacksgq

谢谢斑竹 我试了一下，你的代码的确可以解决问题。但是screenupdating content这些在word的visualbasic的帮助文件里，都没有看到 。是不是msdn里面才有呢