Micheltje13
Gebruiker
- Lid geworden
- 28 jan 2011
- Berichten
- 132
Hi,
De naam zegt het al. Ik wil een Find & Replace van de . naar de , doen via een VBA in kolom 4 en 6 van een tabel.
Ik heb nu onderstaand. Het selecteren van de kolommen werkt perfect.
Sub SelectColumn()
ActiveDocument.Tables(2).Select
Selection.Tables(1).Columns(4).Select
ActiveDocument.Tables(2).Select
Selection.Tables(1).Columns(6).Select
End Sub
Echter wanneer ik onderstaande find & replace toevoeg onder een van de selecties pakt ie de gehele tabel. Terwijl het echt alleen in kolom 4 en 6 moet gebeuren. Iemand ideeën?
With Selection.Find
.Text = "."
.Replacement.Text = ","
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
De naam zegt het al. Ik wil een Find & Replace van de . naar de , doen via een VBA in kolom 4 en 6 van een tabel.
Ik heb nu onderstaand. Het selecteren van de kolommen werkt perfect.
Sub SelectColumn()
ActiveDocument.Tables(2).Select
Selection.Tables(1).Columns(4).Select
ActiveDocument.Tables(2).Select
Selection.Tables(1).Columns(6).Select
End Sub
Echter wanneer ik onderstaande find & replace toevoeg onder een van de selecties pakt ie de gehele tabel. Terwijl het echt alleen in kolom 4 en 6 moet gebeuren. Iemand ideeën?
With Selection.Find
.Text = "."
.Replacement.Text = ","
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll