[求助]请问在文本框中的内容应该怎样进行查找和替换？

allex81

我自己写了一段程序，但被文本框框住的文本内容却不能被查找和替换，望高手指点。

守柔

看情况，前者代码适用于一个文本框，后者适用于全部：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-9 17:33:31 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00011^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim MyTextboxRange As Range Set MyTextboxRange = ActiveDocument.StoryRanges(wdTextFrameStory) With MyTextboxRange.Find .ClearFormatting .Execute findtext:=5, replacewith:="我", Replace:=wdReplaceAll End With End Sub '---------------------- Sub Example2() Dim i As Shape For Each i In ThisDocument.Shapes If i.TextFrame.HasText = True Then With i.TextFrame.TextRange.Find .ClearFormatting .Execute findtext:=5, replacewith:="我", Replace:=wdReplaceAll End With End If Next End Sub '----------------------

jessietseng

可否請教一下，若不是要查找和替換，而是要將各個文本框內的文字，copy到另一個新的檔案，以一般文字的方式呈現，而不要文本框，請問要怎麼做呢？謝謝。

守柔

以下是引用jessietseng在2005-9-9 20:40:30的发言：

可否請教一下，若不是要查找和替換，而是要將各個文本框內的文字，copy到另一個新的檔案，以一般文字的方式呈現，而不要文本框，請問要怎麼做呢？謝謝。

以下二个代码供参考，不过，前者更好一些。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-10 07:32:58 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00012^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Sample() Dim i As Shape, NewDoc As Document Set NewDoc = Documents.Add For Each i In ThisDocument.Shapes If i.TextFrame.HasText Then NewDoc.Content.InsertAfter i.TextFrame.TextRange.Text End If Next End Sub '---------------------- Sub Sample2() Dim i As Shape, NewDoc As Document Set NewDoc = Documents.Add For Each i In ThisDocument.Shapes If i.TextFrame.HasText Then i.TextFrame.TextRange.Copy Selection.Collapse Direction:=wdCollapseEnd Selection.Paste End If Next End Sub '----------------------

jessietseng

謝謝守柔版主的指導。原來第一種是copy純文字，剛好我需要的是第二種，可以保留格式。再次感謝!!

linqiang0816

我也先记下来，慢慢看。