[ create a new paste ] login | about

Link: http://codepad.org/sZEG78ak    [ raw code | fork ]

Plain Text, pasted on Feb 21: 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

    Option Explicit
    Sub replaceArrayForArray1()
    '
    'to create array use prefix\suffix and replacing tool http://textmechanic.com/
    '
    '
    findArray = Array("[1]", "[2]", "[3]")
    replArray = Array("@@@[1]@@@", "@@@[2]@@@", "@@@[3]@@@")

    For i = 0 To UBound(findArray)
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = findArray(i)
            .Replacement.Text = replArray(i)
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = True
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute replace:=wdReplaceAll
    Next i
    End Sub

    Sub replaceArrayForArray2()
    '
    'to create array use prefix\suffix and replacing tool http://textmechanic.com/
    '
    '
    findArray = Array("@@@[1]@@@", "@@@[2]@@@", "@@@[3]@@@")
    replArray = Array("[11]", "[12]", "[13]")

    For i = 0 To UBound(findArray)
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = findArray(i)
            .Replacement.Text = replArray(i)
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = True
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute replace:=wdReplaceAll
    Next i
    End Sub


Create a new paste based on this one


Comments: