|
|
|
date: Sat, 31 May 2008 14:36:01 -0700 (PDT),
group: microsoft.public.word.vba.beginners
back
Re: Trying to Split Selection.Text
Hi,
As to your code:
-- I'd define myArray as a Variant.
-- Use Split(Selection.Text, vbTab) instead of Split(Selection.Text, "^9")
-- You can't build the replacement text out of the matched text before
you've actually matched it.
Instead of fixing the code, it would be easier to set up a wildcard
replacement:
> {tab}Text{tab}1
> {tab}Text{tab}2
The lines end in paragraph marks ΒΆ?
Find what: (^t)([!^13^t]@)(^t)([0-9]@)(^13)
Replace with: \1\4\3\2\5
Check "Match wildcards", and click "Replace all".
The macro recorder should give you something to work with...
Regards,
Klaus
"Spotty Boy" wrote:
> Hi,
>
> I'm trying to swap two parts of a string separated by a tab. The text
> lines also have a tab at the begining and look like this:
>
> Text 1
> Text 2
>
> I need them to look this this:
>
> 1 Text
> 2 Text
>
> I have tried different Dim statements as shown below and get the
> following errors:
>
> Error for Dim MyArray() As String
> "Subscript out of range"
> highlights Selection.Find.Replacement.Text = MyArray(1)
>
> Error for Dim MyArray(1 To 5) As String
> "Compile error: Can't assign to array"
> highlights MyArray = Split(Selection.Text, "^9")
>
> Error for Dim MyArray As Variant
> "Subscript out of range"
> highlights Selection.Find.Replacement.Text = MyArray(1)
>
> Virtually all examples I see for Split manually assign strings to the
> array cells. Then everything works fine.
>
> I'm lost, any help is more than welcome ...
>
>
> CODE
> ---------------------------------------------
> Sub test0()
> '
> Dim MyArray() As String
> 'Dim MyArray(1 To 5) As String
> 'Dim MyArray As Variant
> '
> Selection.Find.MatchWildcards = True
> Selection.Find.ClearFormatting
> Selection.Find.Replacement.ClearFormatting
> '
> With Selection.Find
> .Text = "^9*^9*"
> .Forward = True
> .Wrap = wdFindContinue
> End With
> '
> MyArray = Split(Selection.Text, "^9")
> Selection.Find.Replacement.Text = MyArray(1)
> Selection.Find.Execute Replace:=wdReplaceAll
> '
> End Sub
date: Sun, 1 Jun 2008 00:56:18 +0200
author: Klaus Linke
|
|
