Thema Datum  Von Nutzer Rating
Antwort
Rot markierungsparameter
 05.02.2009 15:22:29 elric
NotSolved
06.02.2009 11:50:39 Holger
NotSolved

Ansicht des Beitrags:
Von:
elric		 Datum:
05.02.2009 15:22:29		 Views:
1844		 Rating:
     
Antwort:
  Ja
Thema:
markierungsparameter
hi,

ich habe bislang wenig erfahrung mit vba habe mir aber bislang ein paar brauchbare sachen zusammengeschustert. jetzt habe ich aber doch eine frage:

viele wordtexte, die ich bearbeite, haben die überschrift eines artikels in der zweiten zeile, in der ersten dagegen stehen so formalangaben.
ich würde diese überschrift gerne automatisch vor die erste zeile setzen. wenn die überschrift auch nur höchstens eine zeile lang ist funktioniert das auch (indem ich die markierung mit „markiere bis zeilenende“ befehle.), aber wenn sie länger als eine zeile ist bin ich mit meinem vba am ende, obwohl ich einfach nur einen befehl brauche, wie zum nächsten echten zeilenumbruch (also ^p) markiert werden soll.

kann mir jemand verraten, wie ich das hinbekomme? wäre grossartig!

elric


Sub test()

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting
With Selection.Find
.text = "^p^p^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Do While Selection.Find.Execute = True
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.HomeKey Unit:=wdLine

‘an dieser stelle würde ich ihm jetzt gerne sagen, dass er bis zum nächsten ^p markieren soll:

Selection.???

‘und dann weiter mit ausschneiden, formattieren…

Selection.Cut
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.PasteAndFormat (wdPasteDefault)
'Selection.MoveUp Unit:=wdLine, Count:=1
'Selection.Style = ActiveDocument.Styles("Überschrift 1")
Loop

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot markierungsparameter
 05.02.2009 15:22:29 elric
NotSolved
06.02.2009 11:50:39 Holger
NotSolved