Jinky Julie
05-04-2009, 09:31 AM
Hello again all...
Here I am again...
I have a userform, code is below... I want to make the choice and perform the typing in the cells... (/70, etc...) along with the text replacement...
The text replacement works brilliantly but the typing into the cells does not occur... I've played with it, researched and played some more... no joy...
It's got to be something simple to give me this much grief...
Any direction would be grand... (note: I know that looping through the cells would be better... haven't gotten that far yet...)
As always, thanks for your time to help me with my learning curve...
Best regards,
Julie
Private Sub cmdOK_Click()
Dim strFruit As String
Dim i As Integer
If optFruitOne = True Then
strFruit = "Banana "
ActiveDocument.Tables(4).Cell(2, 2).Select
Selection.TypeText Text:="/70"
ActiveDocument.Tables(7).Cell(2, 2).Select
Selection.TypeText Text:="/70"
ActiveDocument.Tables(10).Cell(2, 2).Select
Selection.TypeText Text:="/70"
ActiveDocument.Tables(13).Cell(2, 2).Select
Selection.TypeText Text:="/70"
End If
If optFruitTwo = True Then
strFruit = "Apple "
ActiveDocument.Tables(4).Cell(2, 2).Select
Selection.TypeText Text:="/64"
ActiveDocument.Tables(7).Cell(2, 2).Select
Selection.TypeText Text:="/64"
ActiveDocument.Tables(10).Cell(2, 2).Select
Selection.TypeText Text:="/64"
ActiveDocument.Tables(13).Cell(2, 2).Select
Selection.TypeText Text:="/64"
End If
If optFruitThree = True Then
strFruit = "Orange "
ActiveDocument.Tables(4).Cell(2, 2).Select
Selection.TypeText Text:="/83"
ActiveDocument.Tables(7).Cell(2, 2).Select
Selection.TypeText Text:="/83"
ActiveDocument.Tables(10).Cell(2, 2).Select
Selection.TypeText Text:="/83"
ActiveDocument.Tables(13).Cell(2, 2).Select
Selection.TypeText Text:="/83"
End If
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = strFruitl
.Replacement.Text = ""
.Forward = True
End With
Selection.Find.Execute
Application.ScreenUpdating = False
For i = 1 To 8
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
Next i
frmPatrolChoice.Hide
Selection.HomeKey Unit:=wdStory
End Sub
Here I am again...
I have a userform, code is below... I want to make the choice and perform the typing in the cells... (/70, etc...) along with the text replacement...
The text replacement works brilliantly but the typing into the cells does not occur... I've played with it, researched and played some more... no joy...
It's got to be something simple to give me this much grief...
Any direction would be grand... (note: I know that looping through the cells would be better... haven't gotten that far yet...)
As always, thanks for your time to help me with my learning curve...
Best regards,
Julie
Private Sub cmdOK_Click()
Dim strFruit As String
Dim i As Integer
If optFruitOne = True Then
strFruit = "Banana "
ActiveDocument.Tables(4).Cell(2, 2).Select
Selection.TypeText Text:="/70"
ActiveDocument.Tables(7).Cell(2, 2).Select
Selection.TypeText Text:="/70"
ActiveDocument.Tables(10).Cell(2, 2).Select
Selection.TypeText Text:="/70"
ActiveDocument.Tables(13).Cell(2, 2).Select
Selection.TypeText Text:="/70"
End If
If optFruitTwo = True Then
strFruit = "Apple "
ActiveDocument.Tables(4).Cell(2, 2).Select
Selection.TypeText Text:="/64"
ActiveDocument.Tables(7).Cell(2, 2).Select
Selection.TypeText Text:="/64"
ActiveDocument.Tables(10).Cell(2, 2).Select
Selection.TypeText Text:="/64"
ActiveDocument.Tables(13).Cell(2, 2).Select
Selection.TypeText Text:="/64"
End If
If optFruitThree = True Then
strFruit = "Orange "
ActiveDocument.Tables(4).Cell(2, 2).Select
Selection.TypeText Text:="/83"
ActiveDocument.Tables(7).Cell(2, 2).Select
Selection.TypeText Text:="/83"
ActiveDocument.Tables(10).Cell(2, 2).Select
Selection.TypeText Text:="/83"
ActiveDocument.Tables(13).Cell(2, 2).Select
Selection.TypeText Text:="/83"
End If
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = strFruitl
.Replacement.Text = ""
.Forward = True
End With
Selection.Find.Execute
Application.ScreenUpdating = False
For i = 1 To 8
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
Next i
frmPatrolChoice.Hide
Selection.HomeKey Unit:=wdStory
End Sub