word 应用

iceboy · 发表于 2003-12-29 14:38

各位大哥们, 如何用宏实现删除文档中指定文字. 文字是可变化的呀. 谢谢.

守柔 · 发表于 2003-12-29 16:23

上传你的附件，及要求，我试着来帮你做。

zhengyq · 发表于 2003-12-29 16:29

word里面的宏我还没有使用过呢？也想见识一下

iceboy · 发表于 2003-12-29 16:58

真是惭愧,如何上传,不过我已发到你们的信箱. 把下面的文字全部删除,拜托.... ----------------------------------- DATE:27-FEB-01 **XX计算机股份有限公司** PAGE: 1 TIME:03:08 PM MBOM-QVL报表 PARENT PART NUMBER: 541170300010 DESCRIPTION: MB;CAPRI/MOTHER BD,R03,PRC REVISION R00005 LEVEL ITEMNO COMPONENT QTY UM ERC WT DESCRIPTION VENDOR NAME REMARK DESIGNATOR(LOCATION) SUB_COMP DESCRIPTION ----------------------------

iceboy · 发表于 2003-12-29 17:05

我已上传了. 谢谢

FgU8DxBM.rar (38 KB, 下载次数: 28)

iceboy · 发表于 2003-12-30 18:53

大哥们，帮小弟看一下吧。谢谢了

hlrong · 发表于 2004-1-6 11:58

看看这个是否可以。

hlrong · 发表于 2004-1-6 12:01

好象附件没有传上来。

ugTKkPbC.rar (40.33 KB, 下载次数: 10)

守柔 · 发表于 2004-1-6 17:20

不好意思，最近太忙。思路：将需要删除的文本录入另一文档（示例中为"tmep.doc")的表格中，通过代码循环表格的单元格，并取得文本，再回到该文档(楼主文档为“smaple1.doc")中，进行替换为“”的操作。其目的是增强可控性，和一次性删除操作。 Sub deltextintables() Dim i, deltext On Error Resume Next Application.ScreenUpdating = False For Each i In Documents("temp").Tables(1).Range.Cells i.Select deltext = ActiveDocument.Range(Start:=Selection.Range.Start, End:=Selection.Range.End - 1) Documents("sample1").Activate Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = deltext .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Next i Application.ScreenUpdating = True End Sub

[此贴子已经被作者于2004-1-6 17:24:59编辑过]

守柔 · 发表于 2004-1-6 17:22

网页老是有问题，不能复制与粘贴。 [/quote]

grOS6c3N.rar (10.61 KB, 下载次数: 14)

		自动登录	找回密码
密码			免费注册