Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
formatvorlage finden
zurück: Dokument automatisch unter einem bestimmten Namen speichern weiter: Tabelle erweitern, abhängig von Combobox-Inhalt Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
29. Okt 2007, 23:46
Rufname:

formatvorlage finden - formatvorlage finden

Nach oben
       Version: Office 2003

Hey,
ich würde gerne das gesamte Dokument nach einem speziellen Formatvorlage durchsuchen. Logisch gesehen:

- gesamte Dokument durchiterieren
- falls Formatvorlage z.b. Ueberschrift1 gefunden, den Inhalt ausgeben

Code:
Dim pgr As Paragraph
Dim txt As String

For Each pgr In ActiveDocument.Paragraphs
   txt = txt + pgr.Range.Text
Next pgr
   
'MsgBox txt


Das ist mein Code um das Dokument zu durchlaufen. Danke für jede Hilfe Smile

Gruß Konstantin
CHF
Word-VBA Professional


Verfasst am:
30. Okt 2007, 08:51
Rufname:


AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Hi

schau dir folgendes an:
Code:
Sub FindStyle()
Dim sty As Style
sty = "Quelle" 'Formatvorlagenname
Dim rng As Range
Set rng = ActiveDocument.Content
With rng.Find
  .Text = ""
  .Style = sty
  .Execute
  Do While .Found = True
    MsgBox rng.Text
    .Execute
  Loop
End With
End Sub


HTH

_________________
Gruß

CHF

Bitte keine Anfragen per PN!
Fragen gehören ins Forum!
>
Gast



Verfasst am:
05. Nov 2007, 22:33
Rufname:

AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Hey CHF,
danke für die Antwort. Ich erhalte beim Ausführen eine Fehlermeldung in der dritten Zeile.

sty = "Quelle" 'Formatvorlagenname

Habe etwas rumprobiert, jedoch war es mir nicht möglich die Zuweisung zum Laufen zu gekommen. Danke für die Hilfe. Ich benutze Office 2003.

Konstantin
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
05. Nov 2007, 22:38
Rufname:
Wohnort: Leipzig

AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Hallo Konstantin,

ich misch mich mal ein: Style ist doch die Formatvorlage. Also füg dort den Namen Deiner Vorlage ein. "Quelle" war doch nur ein Beispiel.

Gruß
Lisa
Gast



Verfasst am:
05. Nov 2007, 23:07
Rufname:


AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Danke für die Antwort Smile

Das habe ich auch gemacht, nur wenn ich das Macro ausführe, kommt eine Fehlermeldung und ich werde gefragt, ob ich den Debugger starten will.

Das ist der Fehler:

Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt

Danke für die Hilfe Smile
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
05. Nov 2007, 23:22
Rufname:
Wohnort: Leipzig

AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Hallo Konstantin,

ja klar, Style ist doch ein Objekt, also muss es so heißen:
Zitat:
Set sty = ActiveDocument.Styles("Überschrift 1")

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
06. Nov 2007, 00:01
Rufname:

AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Danke, es hat funktioniert, jedoch werden nicht alle Textstücke, die mit dem Tag markiert sind, ausgegeben. Mache ich etwas falsch?

Konstantin
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
06. Nov 2007, 00:38
Rufname:
Wohnort: Leipzig

AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Hallo Konstantin,

lässt sich von weitem schwer sagen. Kannst ja nochmal mit einer normalen Schleife durch die Absätze gehen, ob da was anderes herauskommt:
Code:
Sub FormatVorlageErmitteln()
   
    For i = 1 To ActiveDocument.Paragraphs.Count
        If ActiveDocument.Paragraphs(i).Style = "Überschrift 1" Then
            MsgBox ActiveDocument.Paragraphs(i).Range.Text
        End If
    Next i

End Sub


Gruß
Lisa
CHF
Word-VBA Professional


Verfasst am:
06. Nov 2007, 08:25
Rufname:

AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Hi

es werden nur die Stellen nicht gefunden, die keinen Absatz darstellen.
Wenn Du also im Absatz "Standard" einzelne Wörte mit "Überschrift1" formatierst, kann die Absatzformatvorlage auch nicht sauber erkannt werden.

_________________
Gruß

CHF

Bitte keine Anfragen per PN!
Fragen gehören ins Forum!
>
Gast



Verfasst am:
08. Nov 2007, 22:19
Rufname:

AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Hey,
danke für die Antworten Smile Habe es noch mal probiert und es fehlen tatsächlich nur die Teilstücke, die mitten im Text markiert sind. Gibt es denn einen anderen Möglichkeit den kompletten Text zu untersuchen bzw. alle Textstücke aufzulisten, die mit der Formatforlage markiert sind?

Code:
Sub FormatVorlageErmitteln()
   
    For i = 1 To ActiveDocument.Paragraphs.Count
        If ActiveDocument.Paragraphs(i).Style = "Überschrift 1" Then
            MsgBox ActiveDocument.Paragraphs(i).Range.Text
        End If
    Next i

End Sub


Hat doch sicher etwas mit der ActiveDocument.Paragraphs Zeile zu tun? Vielen Dank für die Hilfe Smile

Konstantin
Gast



Verfasst am:
12. Nov 2007, 22:55
Rufname:

AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Hallo,
gibt es denn wirklich nicht die Möglichkeit nach Wörtern/Buchstaben zu suchen, die mit einer spezieller Formatforlage formatiert sind? Habe schon ein paar Stunden mit googlen verbracht, jedoch irgendwie nicht fündig. Danke schon mal!!!

Gruß Konstantin
CHF
Word-VBA Professional


Verfasst am:
13. Nov 2007, 08:47
Rufname:

AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

hi

schau dir doch einfach mal den "besonderen" Text an.
Auch wenn du den mit "Übeschrift 1" formatierst ist es weiterhin "Standard" nur mit den Formatierungen von "Überschrift 1".

Mach dich mal mit dem Unterschied zwischen Absatzformatvrlage und Zeichenformatvorlage vertraut, dann siehst du den Unterschied.

Z.B.
Code:
Sub FindStyle()
Dim sty As Style
Set sty = ActiveDocument.Styles("Fußnotenzeichen")
Dim rng As Range
Set rng = ActiveDocument.Content
With rng.Find
  .Text = ""
  .Style = sty
  .Execute
  Do While .Found = True
    MsgBox rng.Text
    .Execute
  Loop
End With
End Sub

funktioniert, für "Überschrift 1" eben nicht.

_________________
Gruß

CHF

Bitte keine Anfragen per PN!
Fragen gehören ins Forum!
>
Gast



Verfasst am:
14. Nov 2007, 22:05
Rufname:

AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Danke, meine Formatvorlage war auf "Absatz und Zeichen" eingestellt. Ich habe es auf Zeichen reduziert und jetzt funktioniert es. Danke.

Konstantin
Gast



Verfasst am:
18. Nov 2007, 12:08
Rufname:

AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Hallo,

ich wollte fragen, ob es möglich ist, an der Stelle wo die Formatvorlage gefunden worden ist, die aktuelle Seite zu ermitteln? Beim Suchen im Internet habe ich folgendes Gefunden:

Code:

Dim sCurPage As String
sCurPage = Selection.Information(wdActiveEndPageNumber)


Ich habe probiert in meinen Code einzubauen, doch leider wird immer falsch ausgegeben. Ich bin mir nicht ganz sicher, ob dieser Ansatz richtig ist. Wenn der VBA Code abgearbeitet wird, muss sicher nicht das Selection Objekt aktualisiert werden. So würde ich mir die komische Ausgabe erklären.

Code:
Sub FindStyle()

Dim sty As Style
Set sty = ActiveDocument.Styles("Tag2")

Dim rng As Range
Set rng = ActiveDocument.Content

Dim sCurPage As String

Dim txt As String

With rng.Find
  .Text = ""
  .Style = sty
  .Execute
  Do While .Found = True
    MsgBox rng.Text
    MsgBox sCurPage = Selection.Information(wdActiveEndPageNumber)
     
    .Execute
  Loop
End With

MsgBox txt

End Sub


Danke für die Hilfe.

Gruß Konstantin
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
19. Nov 2007, 22:34
Rufname:
Wohnort: Leipzig


AW: formatvorlage finden - AW: formatvorlage finden

Nach oben
       Version: Office 2003

Hallo Konstantin,

das ist ja gerade der Vorteil bei Suche mit Range, dass die Selection nicht geändert wird. Wenn Du das willst, such halt mit Selection, z. B. so:
Code:
Sub FindStyle()

    Dim sty As Style
    Dim sCurPage As String
   
    Set sty = ActiveDocument.Styles("Tag2")

    With Selection
        .HomeKey wdStory
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
    End With
   
    With Selection.Find
        .Text = ""
        .Style = sty
        .Execute
        Do While .Found = True
            MsgBox Selection.Text
            sCurPage = Selection.Information (wdActiveEndPageNumber)
            MsgBox sCurPage
            .Execute
        Loop
    End With

End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Word Serienbrief Datenquelle finden 2 ChillOut 1507 12. Okt 2011, 11:43
ChillOut Word Serienbrief Datenquelle finden
Keine neuen Beiträge Word Serienbriefe: Formatvorlage Schul-Zeugnis 2 Degenhardt 13211 29. Jan 2010, 13:08
Gast Formatvorlage Schul-Zeugnis
Keine neuen Beiträge Word Serienbriefe: Word kann Datenquelle nicht mehr finden... 2 animedio 3318 27. Sep 2009, 14:01
eins Word kann Datenquelle nicht mehr finden...
Keine neuen Beiträge Word Formate: Formatvorlage abändern für viele Absätze in großem Dokument 3 Amitl 692 02. Mai 2007, 22:41
Hübi Formatvorlage abändern für viele Absätze in großem Dokument
Keine neuen Beiträge Word Formate: Automatisches Ausfüllen einer Formatvorlage 3 schoeddl 1503 17. Apr 2007, 21:20
Hübi Automatisches Ausfüllen einer Formatvorlage
Keine neuen Beiträge Word Formate: Formatvorlage zeigt verwendete Absätze nicht mehr an... 4 lady81 1093 15. Feb 2007, 00:16
Gast Formatvorlage zeigt verwendete Absätze nicht mehr an...
Keine neuen Beiträge Word Formate: Dokumentvorlage und Formatvorlage regenerieren sich wieder.. 1 kema 887 05. Jan 2007, 16:48
Gast Dokumentvorlage und Formatvorlage regenerieren sich wieder..
Keine neuen Beiträge Word Formate: Marginalien (Formatvorlage) 2 Kafaaz 4435 18. Okt 2006, 18:36
Kafaaz Marginalien (Formatvorlage)
Keine neuen Beiträge Word Formate: XP:Feldfunktion Styleref: Formatvorlage Titel/Title anzeigen 2 Gast 3726 05. Sep 2006, 11:39
Gast XP:Feldfunktion Styleref: Formatvorlage Titel/Title anzeigen
Keine neuen Beiträge Word Formate: Formatvorlage *.wiz erstellen 2 migro 1794 14. Jul 2006, 11:21
migro Formatvorlage *.wiz erstellen
Keine neuen Beiträge Word Formate: In der Formatvorlage eine Überschrift 4 einfügen 1 sylvie24 14037 22. Mai 2006, 15:57
Olivia In der Formatvorlage eine Überschrift 4 einfügen
Keine neuen Beiträge Word Formate: Probleme mit Formatvorlage 2 Racle 795 06. Okt 2005, 08:14
Racle Probleme mit Formatvorlage
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks