Hallo,
Ik ben recent overgestapt van Word 2003 naar Word 2007 maar nu werkt een veelvuldig gebruikte macro niet meer.
Ik gebruik diverse documenten waar, op plaatsen van nog in te vullen tekst, het teken ~ staat. In Word 2003 gebruikte ik een macro, middels de toetsencombinatie "ALT ~" om steeds naar deze plaats te springen en dan de betreffende tekst in te voegen.
Deze macro werkt nu echter niet meer correct.
Ik moet de betreffende toetsencombinatie nu namelijk twee maal indrukken (na 1 keer gebeurt er niets) en dan slaat hij steeds eenmaal het teken ~ over.
Weet iemand hoe ik dit probleem op kan lossen ??
Bij voorbaat dank voor uw reactie.
Belker.
De door mij gemaakte macro is de volgende:
Sub Macro1()
'
' Macro1 Macro
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "~"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub
Ik ben recent overgestapt van Word 2003 naar Word 2007 maar nu werkt een veelvuldig gebruikte macro niet meer.
Ik gebruik diverse documenten waar, op plaatsen van nog in te vullen tekst, het teken ~ staat. In Word 2003 gebruikte ik een macro, middels de toetsencombinatie "ALT ~" om steeds naar deze plaats te springen en dan de betreffende tekst in te voegen.
Deze macro werkt nu echter niet meer correct.
Ik moet de betreffende toetsencombinatie nu namelijk twee maal indrukken (na 1 keer gebeurt er niets) en dan slaat hij steeds eenmaal het teken ~ over.
Weet iemand hoe ik dit probleem op kan lossen ??
Bij voorbaat dank voor uw reactie.
Belker.
De door mij gemaakte macro is de volgende:
Sub Macro1()
'
' Macro1 Macro
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "~"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub
