[Word 2003] Tekstvak naar tekst.

[van.der.schulting]

Eigenlijk is m'n vraag heel simpel:
'Hoe kan ik een tekstvak in Word converteren naar gewone tekst?'

Ik kan het niet vinden in de Help van Word, ook de search van GoT bied geen uitkomst.

Je zult misschien zeggen van 'o das simpel'.
1. Tekst in tekstvak selecteren en kopieren.
2. Tekstvak verwijderen
3. Tekst opnieuw plakken.

Dat kan wel, maar das wel erg veel werk om dat voor meer dan 50 tekstvakken te doen. Liever zou ik dan alle 50 tekstvakken selecteren en converteren naar gewone tekst, maar de vraag is, hoe doe ik dat?

[CoRrRan]

Dat zou je op deze manier kunnen doen (helaas wel met VBA):

Visual Basic:

Sub TekstVakToTekst()
  
  Dim shpTekstVak As Shape
  
  For Each shpTekstVak In ActiveDocument.Shapes
    
    If shpTekstVak.Type = msoTextBox Then
      Selection.TypeText Text:=Mid(shpTekstVak.AlternativeText, 11, Len(shpTekstVak.AlternativeText) - 10)
    End If
    
  Next
  
End Sub

Niet vergeten dat je deze macro moet draaien als je cursor op de positie staat waar je de tekst uit de textboxen wilt hebben.

Als je ook nog een nieuwe paragraaf wil beginnen na elk stuk tekst uit een textbox, dan moet je nog dit toevoegen (na de Selection.TypeText-regel):

Visual Basic:

Selection.TypeText Text:=vbCrLf

[Guardian Angel]

Ben geen Word gebruiker, maar kun je niet gewoon met Ctrl A alles kopiëren en in een nieuw document plakken zonder de opmaak te behouden?

Zo kopieër ik hele lappen tekst naar Frontpage.

[ Voor 17% gewijzigd door Guardian Angel op 03-03-2005 19:53 ]