' 97IMALLE.DOT vorlage für interne mitteil. etc. ALLE
' mit blocksatz
' zugeordnete dateien:
' imkonsta.dat bearbeiter-variablen
'
Public Sub MAIN()
'Function MyMakro()
Dim datverz$
Dim von$
Dim zeichen$
Dim tel$
Dim x
Dim FirmenKz$
Dim ArtKz$
Dim l_cnt As Long
On Error Resume Next
vLauf = FormField.art
datverz$ = WordBasic.[DefaultDir$](2)
WordBasic.ToolsOptionsView DraftFont:=0, WrapToWindow:=0, PicturePlaceHolders:=0, FieldCodes:=0, Bookmarks:=0, FieldShading:=0, StatusBar:=1, HScroll:=1, VScroll:=1, StyleAreaWidth:=0 cm, Tabs:=0, Spaces:=0, Paras:=0, Hyphens:=0, Hidden:=0, ShowAll:=0, Drawings:=1, Anchors:=0, TextBoundaries:=0, VRuler:=1
WordBasic.TableGridlines 0
WordBasic.ScreenUpdating 0
WordBasic.ViewPage
On Error GoTo -1: On Error GoTo 0
DefineDialog:
WordBasic.BeginDialog 536, 380, Mitteilung->Breite, Höhe Alte Werte 536, 252
WordBasic.GroupBox 10, 6, 211, 258, FIRMA ->Abstand Links, Oben, Breite, Länge Alte Werte 10, 6, 210, 118
WordBasic.OptionGroup Firma
-> Abstand links, Abstand oben, Breite Feld, Länge Feld
WordBasic.OptionButton 26, 23, 68, 16, Firma1
WordBasic.OptionButton 26, 40, 105, 16, Firma1
WordBasic.OptionButton 26, 57, 88, 16, Firma1
WordBasic.OptionButton 26, 74, 105, 16, Firma1
WordBasic.OptionButton 26, 91, 70, 16, Firma1
WordBasic.OptionButton 26, 108, 70, 16, Firma1
WordBasic.OptionButton 26, 125, 70, 16, Firma1
WordBasic.OptionButton 26, 142, 70, 16, Firma1
WordBasic.OptionButton 26, 159, 120, 16, Firma1
WordBasic.OptionButton 26, 176, 80, 16, Firma1
WordBasic.OptionButton 26, 193, 80, 16, Firma1
WordBasic.OptionButton 26, 210, 70, 16, Firma1
WordBasic.OptionButton 26, 227, 83, 16, Andere
WordBasic.TextBox 43, 242, 166, 18, AndereFirma
WordBasic.GroupBox 10, 265, 211, 102, ART DER MITTEILUNG ->Alte Werte 10,132,211,114
WordBasic.OptionGroup Type
WordBasic.OptionButton 26, 278, 161, 16, Interne Mitteilung
WordBasic.OptionButton 26, 295, 96, 16, Protokoll
WordBasic.OptionButton 26, 312, 145, 16, Besuchsbericht
WordBasic.OptionButton 26, 329, 83, 16, Andere
WordBasic.TextBox 43, 345, 170, 18, AndereArt
WordBasic.Text 245, 8, 35, 13, von:
WordBasic.TextBox 343, 8, 160, 18, From
WordBasic.Text 245, 31, 68, 13, Zeichen:
WordBasic.TextBox 343, 31, 160, 18, Characters
WordBasic.Text 245, 54, 64, 13, Telefon:
WordBasic.TextBox 343, 54, 160, 18, Telefon
WordBasic.Text 245, 77, 25, 13, an:
WordBasic.TextBox 343, 77, 160, 18, name1
WordBasic.Text 245, 100, 56, 13, weitere, Text1
WordBasic.Text 245, 112, 81, 13, Empfänger, Text2
WordBasic.TextBox 343, 100, 160, 75, an2, 1
WordBasic.OKButton 318, 238, 130, 21
WordBasic.CancelButton 318, 269, 130, 21
WordBasic.EndDialog
Dim dlg As Object: Set dlg = WordBasic.CurValues.UserDialog
dlg.From = von$
dlg.Characters = zeichen$
dlg.Telefon = tel$
x = WordBasic.Dialog.UserDialog(dlg)
If x = 0 Then GoTo Ende
Select Case dlg.Type
Case 0
WordBasic.WW7_EditGoTo Destination:=art
ArtKz$ = Interne Mitteilung
Case 1
WordBasic.WW7_EditGoTo Destination:=art
ArtKz$ = Protokoll
Case 2
WordBasic.WW7_EditGoTo Destination:=art
ArtKz$ = Besuchsbericht
Case 3
WordBasic.WW7_EditGoTo Destination:=art
If dlg.AndereArt = Then
WordBasic.MsgBox Sie haben keine Mitteilungsart angegeben.
GoTo DefineDialog
Else
ArtKz$ = UCase(dlg.AndereArt)
End If
End Select
WordBasic.WW7_EditGoTo Destination:=firma
WordBasic.WW2_Insert FirmenKz$
WordBasic.WW7_EditGoTo Destination:=art
WordBasic.WW2_Insert ArtKz$
WordBasic.WW7_EditGoTo Destination:=von
WordBasic.WW2_Insert dlg.From
WordBasic.WW7_EditGoTo Destination:=Zeichen
WordBasic.WW2_Insert dlg.Characters
WordBasic.WW7_EditGoTo Destination:=Tel
WordBasic.WW2_Insert dlg.Telefon
WordBasic.WW7_EditGoTo Destination:=datum
WordBasic.InsertField Field:=AKTUALDAT \@ + Chr(34) + tt.MM.jjjj + Chr(34)
WordBasic.WW7_EditGoTo Destination:=an
WordBasic.WW2_Insert dlg.name1
WordBasic.WW7_EditGoTo Destination:=an2
WordBasic.WW2_Insert dlg.an2
WordBasic.EndOfDocument
WordBasic.WW7_InsertPageBreak
WordBasic.NormalViewHeaderArea Type:=0, FirstPage:=1, OddAndEvenPages:=0, HeaderDistance:= _
1,25 cm, FooterDistance:=0,80 cm
WordBasic.WW2_FormatBordersAndShading FromText:=1 pt, ApplyTo:=0, Shadow:=0, TopBorder:=0, _
LeftBorder:=0, BottomBorder:=0, RightBorder:=0, HorizBorder:=0, _
VertBorder:=0, TopColor:=0, LeftColor:=0, BottomColor:=0, _
RightColor:=0, HorizColor:=0, VertColor:=0, Shading:=0, _
Foreground:=0, Background:=0
'WordBasic.WW2_Insert Blatt
'WordBasic.InsertField Field:=SEITE \* arabisch
WordBasic.WW2_Insert + ArtKz$ + / + FirmenKz$ + / + dlg.From + ,
WordBasic.InsertField Field:=AKTUALDAT \@ + Chr(34) + tt.MM.jjjj + Chr(34) + \* FORMATVERBINDEN
WordBasic.EndOfLine
WordBasic.StartOfLine 1
WordBasic.WW2_FormatBordersAndShading FromText:=1 pt, ApplyTo:=0, Shadow:=0, TopBorder:=0, _
LeftBorder:=0, BottomBorder:=0, RightBorder:=0, HorizBorder:=0, _
VertBorder:=0, TopColor:=0, LeftColor:=0, BottomColor:=0, _
RightColor:=0, HorizColor:=0, VertColor:=0, Shading:=0, _
Foreground:=0, Background:=0
WordBasic.WW2_FormatCharacter Font:=Arial, Points:=10, Bold:=0, Italic:=0, _
Strikeout:=0, Hidden:=0, SmallCaps:=0, AllCaps:=0, _
Underline:=0, Color:=0, Position:=0 pt, Spacing:=0 pt
WordBasic.FormatParagraph Alignment:=0, LeftIndent:=0 cm, RightIndent:=0,44 cm, FirstIndent:= _
0 cm, Before:=0 ze, After:=3 ze, LineSpacing:=0 ze, PageBreak:=0, _
KeepWithNext:=0, KeepTogether:=0, NoLineNum:=0
WordBasic.CloseViewHeaderFooter
WordBasic.EndOfDocument
WordBasic.WW6_EditClear -1
WordBasic.BeginDialog 588, 216, Teilnehmer/Verteiler
WordBasic.Text 12, 6, 170, 13, Bemerkungen/Betreff, Text1
WordBasic.Text 12, 70, 90, 13, Teilnehmer, Text2
WordBasic.Text 267, 70, 120, 13, Kopie/Verteiler, Text4
WordBasic.TextBox 12, 21, 565, 36, Bemerkungen, 1
WordBasic.TextBox 12, 87, 242, 120, Teilnehmer, 1
WordBasic.TextBox 267, 87, 160, 120, KopieVerteiler, 1
WordBasic.OKButton 449, 112, 124, 21
WordBasic.CancelButton 450, 151, 124, 21
WordBasic.EndDialog
Set dlg = WordBasic.CurValues.UserDialog
Set dlg = WordBasic.CurValues.UserDialog
x = WordBasic.Dialog.UserDialog(dlg)
If x = 0 Then GoTo Ende
WordBasic.WW7_EditGoTo Destination:=betreff
WordBasic.Insert dlg.Bemerkungen
WordBasic.WW7_EditGoTo Destination:=teilnehmer
WordBasic.Insert dlg.Teilnehmer
WordBasic.WW7_EditGoTo Destination:=KopieVerteiler
WordBasic.Insert dlg.KopieVerteiler
'WordBasic.WW7_EditGoTo Destination:=text
MsgBox (Makro jetzt löschen!)
'WordBasic.ScreenUpdating 1
'#########
'Löscht das Makro aus dem Dokument
'#########
l_cnt = ActiveDocument.VBProject.VBComponents(ThisDocument).CodeModule.CountOfLines
ActiveDocument.VBProject.VBComponents(ThisDocument).CodeModule.DeleteLines 1, l_cnt
Call CodeZeilenAusThisDocumentEntfernen
Ende:
WordBasic.WW7_EditGoTo Destination:=text
WordBasic.ScreenUpdating 1
'End Function
End Sub
'Function CodeZeilenAusThisDocumentEntfernen()
->Dim l_cnt As Long
->l_cnt = ActiveDocument.VBProject.VBComponents(ThisDocument).CodeModule.CountOfLines
->ActiveDocument.VBProject.VBComponents(ThisDocument).CodeModule.DeleteLines 1, l_cnt
'End Function