在word中写的这些代码如何在excel环境中运行

coba

Sub Macro1() Dim a As String Application.Keyboard (2052) Selection.Find.ClearFormatting With Selection.Find .Text = "个案号：" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=35, Extend:=wdExtend a = Selection Selection.Copy End Sub

守柔

楼主的意思是在EXCEL中单元格的文本中“个案号：”右侧35个字符选定后复制吗？

还是在WORD中复制后在EXCEL单元格中粘贴呢？

风中侠

我想楼主是想在EXCEL中编写代码来控制WORD,要是这样的话,就在EXCEL中引用WORD对象库

守柔

如果如三楼所说，则参照此贴：

Sub GetWordRange() Dim WordApp As Word.Application, WordDoc As String, i As Integer On Error Resume Next WordDoc = "C:\Documents and Settings\username\My Documents\ENV4001.doc"'请在此修改为合适路径 Set WordApp = CreateObject("Word.Application") With WordApp .Visible = False .Documents.Open Filename:=WordDoc Do While .Selection.Find.Execute(FindText:="个案号", Forward:=True) = True i = i + 1 MsgBox .Documents(WordDoc).Range(.Selection.End, .Selection.End + 35) Sheets(1).Cells(i, 1) = .Documents(WordDoc).Range(.Selection.End, .Selection.End + 35) Loop End With WordApp.Quit False Set WordApp = Nothing End Sub