Thema Datum  Von Nutzer Rating
Antwort
30.05.2013 12:03:26 Sam
NotSolved
31.05.2013 00:48:56 Gast56684
NotSolved
Rot Range WERT übergeben
 31.05.2013 08:23:24 Gast53580
NotSolved

Ansicht des Beitrags:
Von:
Gast53580		 Datum:
31.05.2013 08:23:24		 Views:
1851		 Rating:
     
Antwort:
  Ja
Thema:
Range WERT übergeben

Hi :)

 

Ich baue grade ein Makro, dass die Formatvorlage Überschrift 3 sucht und die jeweilige Überschrift 2 dahinterschreibt.

 

Beispiel: 1.2. Planeten

                  1.2.1 Die erde

Daraus wird:

1.2 Planeten

1.2.1 Die erde - Planeten

 

Mein Makro habe ich in 2 Schleifen aufgebaut. Das Problem ist natürlich, dass die Range Variablen sich jeweils an die gefundenen Werte anpassen.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub experiment_zahler()
Dim dateiname As String
Dim rng As Range
Set rng = ActiveDocument.Range
 
With rng.Find
  .Style = ActiveDocument.Styles(wdStyleHeading2)
  '.Style = ActiveDocument.Styles(wdStyleHeading2)
  .Text = ""
  .Forward = True
  .Wrap = wdFindStop
  .Execute
  Do While .Found = True
    'packt die gefundenen gegenstände ins select
    rng.Select
    ueberschrift = rng
     
 
    'Liest die Länge der Überschrift und gibt sie der variable mit n buchstaben weniger (von rechts)
    ueberschrift = Left(ueberschrift, Len(ueberschrift) - 1)
 
  
    .Execute
    Dim rng3 As Range
    Dim bookmrk As String
    Set rng3 = ActiveDocument.Bookmarks("\headinglevel").Range
    With rng3.Find
        .Style = ActiveDocument.Styles(wdStyleHeading3)
        '.Style = ActiveDocument.Styles(wdStyleHeading2)
        .Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Execute
        Do While .Found = True
            'packt die gefundenen gegenstände ins select
            rng3.Select
            ueberschrift3 = rng3
     
 
            'Liest die Länge der Überschrift und gibt sie der variable mit n buchstaben weniger (von rechts)
            ueberschrift3 = Left(ueberschrift3, Len(ueberschrift3) - 1)
 
     
            'Schreibt den Text in der richtigen Formatierung
            Selection.TypeText Text:=ueberschrift3
            Selection.Style = "C1H Topic Properties"
            Selection.Font.Hidden = True
            Selection.TypeText Text:=" " & "|url=" & "." & ueberschrift & "." & ueberschrift3 & ".htm"
 
     
    .Execute
     
  Loop
  'MsgBox rng
End With

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
30.05.2013 12:03:26 Sam
NotSolved
31.05.2013 00:48:56 Gast56684
NotSolved
Rot Range WERT übergeben
 31.05.2013 08:23:24 Gast53580
NotSolved