vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Teil aus Word rausziehen 
Autor: malte3110
Datum: 30.08.01 13:27

Hallo,

ich kann ja in einer Word-Datei nach einem Wort suchen, und ab da den Text rausziehen und woanders einsetzen. Das funktioniert auch prima. Der Code ist unten eingefügt.

Kann ich denn, wenn ich nicht den Text ab dem einen Wort (bis zum Ende des Textes), sondern nur zum nächsten Punkt haben will, auch Teile rausziehen?

Danke im Voraus.

Malte

With Selection.Find
.Text = "Verarbeitung:"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Copy
ActiveDocument.Close
Selection.GoTo What:=wdGoToBookmark, Name:="zus_verarb"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Extend Character:="@"
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Delete
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
'Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.Paste
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Teil aus Word rausziehen55malte311030.08.01 13:27

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel