002
25.11.2004, 09:00 Uhr
~Henning82
Gast
|
Also, dann poste ich mal den Code:
| Visual Basic: |
Public Sub Main()
Angebot_speichern
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "\t"
.Replacement.Text = vbTab
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.Execute Replace:=wdReplaceAll
Selection.HomeKey Unit:=wdStory
SuchText = "Einleitungstext"
text_marke = "TMEL"
Texmarken_für_textbausteine_setzen SuchText, text_marke
SuchText = "Angebotskonditionen"
text_marke = "TMAK"
Texmarken_für_textbausteine_setzen SuchText, text_marke
SuchText = "Anlagen"
text_marke = "TMAN"
Texmarken_für_textbausteine_setzen SuchText, text_marke
Application.OnTime When:=Now + TimeValue("00:00:40"), Name:="AutoOpen.Makro2"
AutoOpen.Makro2
End Sub
|
Im Makro2 steht dann Folgendes:
| Visual Basic: |
Sub Makro2()
ActiveDocument.Select
Selection.Font.Name = "Arial"
Selection.Font.Size = 10
WordBasic.StartOfDocument
WordBasic.StartOfLine
Do
text1 = "\n"
text2 = ""
suche_und_ersetze_text text1, text2
pos = Selection.Range.Start
pos2 = Selection.Range.End
If Selection <> "\n" Then
Goto ende
End If
Set meinBereich = ActiveDocument.Range(Start:=pos, End:=pos2)
meinBereich.Select
Selection.TypeParagraph
Loop Until Selection = "\n"
ende:
Selection.Goto What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""
SetzeEigenschaften
'Entfernen der Formatvorlage
With ActiveDocument
.UpdateStylesOnOpen = False
.AttachedTemplate = "normal.dot"
End With
ActiveDocument.Save
End Sub
|
Bei SetzeEigenschaften wird lediglich ein Paar Eigenschaften des Dokumentes zur Weiterverarbeitung in einem anderen Programm gesetzt.
Ich verstehe hierbei vor allem nicht, dass es bei diesem Code einen Unterschied gibt zwischen Word 97 und Word 2002!
Wäre toll, wenn mir jemand helfen könnte!
mfg
Henning |
würde uns garantiert helfen.. oder zeig ma das was bei win98 und 95 klappt und bei xp nich...
