WordBasic
Guido Nikolai
Kann mir mal jemand helfen dieses Chaos in meinem Word.doc zu beseitigen.
Dazu müßte ich euch dann eine Datei schicken.
Es geht darum WordBasic Befehle in VBA zu ändern. und irgendwie haut das
nicht hin.
Gruß
Guido
Lutz Gentkow
von der Idee, Dateien hin- und herzuschicken, ist wahrscheinlich niemand
hier begeistert :-( Auf keinen Fall bitte innerhalb der NG irgendwelche
Attachments verwenden! Solltest Du trotz der nachstehend genannten
Links/Tipps noch *konkrete* Fragen haben, kannst Du sie gerne hier los
werden. ;-)
Zunächst einmal solltest Du auf jeden Fall die Onlinehilfe zu VBA
installieren, die wirst Du öfters brauchen. Dort sind auch reichlich
Beispiele enthalten, allerdings ist es nicht immer ganz einfach, das
geeignete Stichwort zu finden.
Eine gute Möglichkeit ist, Makros mit dem Rekorder aufzuzeichnen (soweit
sie sich aufzeichnen lassen) und per Hand und Onlinehilfe zu optimieren.
Internetseiten, die sich mit VBA befassen, sind u.a. folgende:
http://www.aboutvb.de/vba/vba.htm
http://home.t-online.de/home/Gerhard.H.Frey/index.htm
http://www.ti5.tu-harburg.de/manual/vba5/httoc.htm
http://www.vba-magazin.de/tippsword.htm
http://www.mvps.org/word/FAQs/MacrosVBA.htm
http://msdn.microsoft.com/vba
http://www.officeuser.de/new/..\ou_Word.htm
http://www.i-dietrich.de/word.htm
http://mypage.bluewin.ch/reprobst/WordFAQ
Bei letztgenannter Adresse "verstecken" sich die Makros hinter den
einzelnen Überschriften, ein Durchsehen lohnt auf jeden Fall.
Obwohl ich die Links von Zeit zu Zeit überprüfe, kann es natürlich
passieren, daß einige nicht mehr funktionieren; in diesem Fall bitte
kurze Nachricht an mich.
Einige Artikel zum Umstieg WordBasic nach VBA findest Du hier:
http://www.microsoft.com/worddev/w-a&sa.htm#vba
http://www.microsoft.com/WordDev/Articles/word2vba.htm
http://www.microsoft.com/officedev/articles/Opg/AppB/AppB.htm
Falls Du Dich auch für Literatur interessierst, einige Buchbesprechungen
findest Du auf Axel Steinborns Seite unter
http://www.asteinborn.de/literat.htm , desweiteren in älteren Beiträgen
zu diesem Thema unter http://groups.google.com/advanced_group_search .
Ausführliche Einblicke in infrage kommende Bücher - d.h. Vorwort,
Inhaltsverzeichnis und Rückentext - erhältst Du auch unter
http://www.edv-buchversand.de , mit direkter Bestellmöglichkeit.
Viele Grüße vom Niederrhein
Lutz
Guido Nikolai
In die NG hätte ich natürlich keine Attatchment mitgeschickt.
Das kenne ich zu genüge aus anderen NGs.
Aber eine Frage noch. Ist es Sinnvoll alte Makros wie die die ich hab
umzuschreiben?? auch wenn sie nicht viel machen, aber doch schon soviel das
ich nicht mal "eben" die umstellung machen kann?
Ist es vielleicht einfacher eine ganze VB Applikation zu erstellen??
Guido
"Lutz Gentkow" <lgen...@t-online.de> schrieb im Newsbeitrag
news:3C3AE855...@t-online.de...
Lutz Gentkow
> Ist es Sinnvoll alte Makros wie die die ich hab umzuschreiben??
das ist pauschal schwer zu sagen. Viel kannst Du schon dadurch gewinnen,
daß Du die Makros aufzeichnest (soweit das möglich ist).
> Ist es vielleicht einfacher eine ganze VB Applikation zu erstellen??
kann ich mir nicht vorstellen...
Balkrishna Isvaran
lass word es machen.
oeffnet man ein wordbasic dot-datei in word95/97 and und speichert es,
wird's automatisch 'konvertiert'; es wird oft ein 'wordbasic.' vorgesetzt.
aber nicht alle wordbasic befehle werden in identischerweise in vba
ausgefuehrt; die struktur von vba ist anders.
immerhin ist das ein anfang. man kann dann die befehle in debug-modus testen
und abaendern / erweitern, wenn sie nicht richtig funktionieren.
so kann man schnell makros von word 6 unter word95/97 zu laufen bringen.
gruesse
isvaran
Guido Nikolai <g_ni...@yahoo.de> wrote in message
news:eYcrihBmBHA.2432@tkmsftngp02...
> Es geht darum WordBasic Befehle in VBA zu ändern. und irgendwie haut das
> nicht hin.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.313 / Virus Database: 174 - Release Date: 02/01/02
Guido Nikolai
Befehle nicht richtig ausgeführt werden können.
Hab schon vieles Versucht aber nichts hat geklappt. ich muss zum beispiele
eine Adresse in eine Tabelle in einem Word-Dokument schreiben oder suchen
und da bekomme ich immer wieder fehler.
gruß
guido
"Balkrishna Isvaran" <isv...@vsnl.com> schrieb im Newsbeitrag
news:#rimw33mBHA.2212@tkmsftngp05...
Balkrishna Isvaran
1. wenn sie mir den alten makrotext per email schicken (den text unten
einfuegen, keine dot-datei als attachment bitte); kann ich versuchen ihn
auszufuehren und meine ergebnisse ihnen schreiben.
2. in visual basic help gibt es VBA aequivalente zu wordbasic befehle
(ausschnitt unten). Gehen sie zu Visual Basic Help und suchen nach
'wordbasic'.
es gibt dort auch folgende anleitungen:
- Converting WordBasic macros to Visual Basic.
- Conceptual differences between WordBasic and Visual Basic
hoffentlich hilft das.
gruesse
isvaran
Visual Basic Equivalents for WordBasic Commands
A B C ...
To find the Visual Basic property or method that's the equivalent of a
WordBasic command, click the first letter of the WordBasic command name.
Then scroll through the lists of WordBasic commands until you find the
appropriate command. The right column includes sample Visual Basic syntax
with jumps to topics in the Microsoft Word Visual Basic Help.
For information about converting macros, see Converting WordBasic macros to
Visual Basic.
For information about the differences between WordBasic and Visual Basic,
see Conceptual differences between WordBasic and Visual Basic.
-------------------
Guido Nikolai <g_ni...@yahoo.de> wrote in message
news:OVOGBEznBHA.1644@tkmsftngp05...
> tja das hab ich ja versucht aber ich bekomme immer fehle emldungen das
diese
> Befehle nicht richtig ausgeführt werden können.
> Hab schon vieles Versucht aber nichts hat geklappt. ich muss zum beispiele
> eine Adresse in eine Tabelle in einem Word-Dokument schreiben oder suchen
> und da bekomme ich immer wieder fehler.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.314 / Virus Database: 175 - Release Date: 11/01/02
Guido Nikolai
verknüpft sind.
Guido
"Balkrishna Isvaran" <isv...@vsnl.com> schrieb im Newsbeitrag
news:#TSU8n#nBHA.2404@tkmsftngp03...
Guido Nikolai
Modul: Manager
Dim Vorlagenpfad$, Startpfad$, IniDatei$, VorlagenName$
Sub MAIN()
Vorlagenpfad$ = GetProfileString$("USER-DOT-PATH")
If Vorlagenpfad$ = "" Then Vorlagenpfad$ = "C:\WINWORD6\VORLAGEN"
If Right$(Vorlagenpfad$, 1) <> "\" Then Vorlagenpfad$ = Vorlagenpfad$ + "\"
Startpfad$ = GetProfileString$("STARTUP-PATH")
If Startpfad$ = "" Then Startpfad$ = "C:\WINWORD6\START"
If Right$(Startpfad$, 1) <> "\" Then Startpfad$ = Startpfad$ + "\"
IniDatei$ = Startpfad$ + "W6MUSTER.INI"
EingabeUnterdrücken 1
Begin Dialog BenutzerDialog 500, 180, "Rütten-Manager"
Text 90, 6, 205, 13, "Was wollen Sie schreiben?"
PushButton 10, 29, 230, 21, "&Brief", .Brief
PushButton 10, 53, 230, 21, "&Rechnung mit MwST", .Rechnung_mit_MwST
PushButton 10, 77, 230, 21, "&Rechnung ohne MwST", .Rechnung_ohne_MwST
PushButton 10, 101, 230, 21, "&Rechnungsformular", .Rechnungsformular
PushButton 10, 125, 230, 21, "&Rütten-Etikett", .Etikett
PushButton 250, 29, 230, 21, "&Auftrag", .Auftrag
PushButton 250, 53, 230, 21, "&Angebot", .Angebot
PushButton 250, 77, 230, 21, "&Lieferschein", .Lieferschein
PushButton 250, 101, 230, 21, "&Kurzbrief", .Kurzbrief
PushButton 250, 125, 230, 21, "&Uniformenblatt", .Uniformenblatt
CancelButton 150, 149, 200, 21
End Dialog
Dim dlg As BenutzerDialog
Result = Dialog(dlg)
If Result = 0 Then GoTo Bye
Select Case Result
Case 1 'Brief
Suffix$ = GetSuffix$
VorlagenName$ = Vorlagenpfad$ + "BRF" + Suffix$ + ".DOT"
Case 2 'Rechnung_mit_MwST
Suffix$ = GetSuffix$
VorlagenName$ = Vorlagenpfad$ + "RECHM" + Suffix$ + ".DOT"
Case 3 'Rechnung_ohne_MwST
Suffix$ = GetSuffix$
VorlagenName$ = Vorlagenpfad$ + "RECHO" + Suffix$ + ".DOT"
Case 4 'Rechnunsformular
Suffix$ = GetSuffix$
VorlagenName$ = Vorlagenpfad$ + "Rech" + Suffix$ + ".Dot"
Case 5 'Etikett
Suffix$ = GetSuffix$
VorlagenName$ = Vorlagenpfad$ + "ETIKETT" + Suffix$ + ".DOT"
Case 6 'Auftrag
Suffix$ = GetSuffix$
VorlagenName$ = Vorlagenpfad$ + "AFTRG" + Suffix$ + ".DOT"
Case 7 'Angebot
Suffix$ = GetSuffix$
VorlagenName$ = Vorlagenpfad$ + "ANGB" + Suffix$ + ".DOT"
Case 8 'Lieferschein
Suffix$ = GetSuffix$
VorlagenName$ = Vorlagenpfad$ + "LFR" + Suffix$ + ".DOT"
Case 9 'Kurzbrief
Suffix$ = GetSuffix$
VorlagenName$ = Vorlagenpfad$ + "KBRF" + Suffix$ + ".DOT"
Case 10 'Uniformenblatt
Suffix$ = GetSuffix$
VorlagenName$ = Vorlagenpfad$ + "Uni" + Suffix$ + ".DOT"
End Select
If VorlagenName$ = "" Then GoTo Bye
If FileExist(VorlagenName$) Then
DateiNeu .DokVorlage = VorlagenName$
Else
MsgBox "Gewünschte Vorlage ist nicht installiert.", "Problem", 64
End If
Bye:
End Sub
Function GetSuffix$()
If Temp$ = "" Then Temp$ = "ALLE"
If Temp$ = "ALLE" Then
Begin Dialog BenutzerDialog 400, 123, "Frage"
Text 10, 6, 350, 13, "Bitte wählen Sie die gewünschte Vorlage aus.",
.Text1
OptionGroup .Auswahl
OptionButton 30, 34, 350, 16, "Uniformenhaus Franz Rütten",
.Optionsfeld1
OptionButton 30, 51, 350, 16, "Fahnen und Uniformen Franz Rütten
GmbH", .Optionsfeld2
OKButton 250, 95, 115, 21
End Dialog
Dim gsdlg As BenutzerDialog
Result = Dialog(gsdlg)
Temp$ = LTrim$(RTrim$(Str$(gsdlg.Auswahl + 1)))
End If
GetSuffix$ = Temp$
End Function
Function FileExist(FileSpec$)
'Ergibt -1, wenn eine Datei existiert; 0, wenn nicht
Temp$ = Files$(FileSpec$)
If Temp$ = "" Then
FileExist = 0
Else
FileExist = -1
End If
End Function
------------------------------------------------
Modul AdresseBearbeiten:
Public Sub MAIN()
Dim Dokument$
Dim Weiter
Dim Auswahl$
Dim Firmenname$
Dim Name_$
Dim Straße$
Dim Ort$
Dim Suchen$
'Dokument$ = WordBasic.[FileName$]()
Dokument$ = ActiveDocument.FullName
Weiter = -1
While Weiter = -1
'WordBasic.FileOpen Name:="c:\winword6\vorlagen\Adressen.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="",
'Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
Documents.Open "c:\winword6\vorlagen\Adressen.doc", 0, False, 0, "", "",
0, "", ""
'WordBasic.StartOfDocument
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
'Auswahl$ = WordBasic.[InputBox$]("1) Adresse erfassen
2) Adresse ändern 3)
Adresse löschen ", "Wählen Sie eine Ziffer")
Auswahl$ = InputBox("1) Adresse erfassen
2) Adresse ändern 3)
Adresse löschen ", "Wählen Sie eine Ziffer")
Select Case Auswahl$
Case "1"
'Firmenname$ = WordBasic.[InputBox$]("Bitte geben Sie den
Firmennamen bw. Anrede ein")
Firmenname$ = InputBox("Bitte geben Sie den Firmennamen bw.
Anrede ein")
'Name_$ = WordBasic.[InputBox$]("Bitte geben Sie den Namen ein")
Name_$ = InputBox("Bitte geben Sie den Namen ein")
'Straße$ = WordBasic.[InputBox$]("Bitte geben Sie die
Straße/Postfach ein")
Straße$ = InputBox("Bitte geben Sie die Straße/Postfach ein")
'Ort$ = WordBasic.[InputBox$]("Bitte geben Sie PLZ und Ort ein")
Ort$ = InputBox("Bitte geben Sie PLZ und Ort ein")
'WordBasic.Activate "Adressen.doc"
Documents("Adressen.doc").Activate
'WordBasic.EndOfDocument
Selection.EndKey Unit:=wdStory
WordBasic.TableInsertRow NumRows:=1
'Selection.Tables(1).Rows.Add
WordBasic.Insert Firmenname$
'Selection.TypeText Firmenname$
'WordBasic.NextCell
Selection.Move Unit:=wdCell, Count:=1
'WordBasic.Insert Name_$
Selection.TypeText Name_$
'WordBasic.NextCell
Selection.Move Unit:=wdCell, Count:=1
'WordBasic.Insert Straße$
Selection.TypeText Straße$
'WordBasic.NextCell
Selection.Move Unit:=wdCell, Count:=1
'WordBasic.Insert Ort$
Selection.TypeText Ort$
Case "2"
'Suchen$ = WordBasic.[InputBox$]("Welche Adresse wollen Sie
ändern? Bitte geben Sie den Namen ein: ", "Namen auswählen")
Suchen$ = InputBox("Welche Adresse wollen Sie ändern? Bitte
geben Sie den Namen ein: ", "Namen auswählen")
WordBasic.EditFind Find:=Suchen$, Direction:=0, MatchCase:=0,
WholeWord:=0, PatternMatch:=0, SoundsLike:=0, Format:=0, Wrap:=2
Case "3"
Suchen$ = WordBasic.[InputBox$]("Welche Adresse wollen Sie
löschen? Bitte geben Sie den Namen ein", "Namen auswählen")
Suchen$ = InputBox("Welche Adresse wollen Sie löschen? Bitte
geben Sie den Namen ein", "Namen auswählen")
WordBasic.EditFind Find:=Suchen$, Direction:=0, MatchCase:=0,
WholeWord:=0, PatternMatch:=0, SoundsLike:=0, Format:=0, Wrap:=2
WordBasic.TableSelectRow
'** TODO Rows raussuchen
'Selection.Tables(1).Rows().Select
WordBasic.TableDeleteRow
'ActiveDocument.Tables(1).Rows(num).Delete
Case Else
'WordBasic.MsgBox "Falsche Auswahl - bitte neu starten"
MsgBox "Falsche Auswahl - bitte neu starten"
End Select
'WordBasic.FileSave
ActiveDocument.Save
Wend
End Sub
-------------------
Modul: AdresseEinfügenSuchen
Public Sub MAIN()
Dim Dokument$
Dim Weiter
Dim Suchen$
Dim Firmenname$
Dim Name_$
Dim Straße$
Dim Ort$
Dim Antwort
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword6\vorlagen\Adressen.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.StartOfDocument
Suchen$ = WordBasic.[InputBox$]("Welche Adresse möchten Sie einfügen?
Geben Sie bitte den Namen ein:")
WordBasic.EditFind Find:=Suchen$, Direction:=0, Format:=0, Wrap:=1
If WordBasic.EditFindFound() = 0 Then
WordBasic.MsgBox "Der eingegebene Name ist nicht vorhanden", "Falscher
Name"
GoTo Neustart
End If
WordBasic.TableSelectRow
WordBasic.StartOfLine
WordBasic.PrevCell
WordBasic.NextCell
Firmenname$ = WordBasic.[Selection$]()
WordBasic.NextCell
Name_$ = WordBasic.[Selection$]()
WordBasic.NextCell
Straße$ = WordBasic.[Selection$]()
WordBasic.NextCell
Ort$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Die gesuchte Adresse: " + Chr(13) + Chr(13) +
Chr(13) + Chr(13) + Firmenname$ + Chr(13) + Name_$ + Chr(13) + Straße$ +
Chr(13) + Chr(13) + Ort$ + Chr(13) + Chr(13) + Chr(13) + "Ins Dokument
einfügen?", "Adresse einfügen?", 292)
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
If Antwort = -1 Then
WordBasic.Insert Firmenname$ + Chr(13) + Name_$ + Chr(13) + Straße$ +
Chr(13) + Chr(13) + Ort$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
Weiter = 0
Else
Neustart:
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
Weiter = WordBasic.MsgBox("Wollen Sie einen anderen Namen suchen?",
"Weitersuchen", 292)
End If
Wend
End Sub
---------------
Modul: AdressenDrucken
Public Sub MAIN()
WordBasic.FileOpen Name:="c:\winword6\vorlagen\ADRESSEN.DOC",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.TableSort DontSortHdr:=1, FieldNum:="Spalte1", Type:=0, Order:=0,
FieldNum2:="Spalte2", Type2:=0, Order2:=0, FieldNum3:="Spalte3", Type3:=0,
Order3:=0, Separator:=0, SortColumn:=0, CaseSensitive:=0
WordBasic.FilePrint AppendPrFile:=0, Range:="0", PrToFileName:="", From:="",
To:="", Type:=0, NumCopies:="1", Pages:="", Order:=0, PrintToFile:=0,
Collate:=1, FileName:=""
End Sub
-------------------
Modul: AllesAusrechnen
Public Sub MAIN()
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
WordBasic.ViewFieldCodes 1
WordBasic.StartOfDocument
WordBasic.EditFind Find:="^d =", Direction:=0
While WordBasic.EditFindFound()
WordBasic.UpdateFields
WordBasic.EditFind Find:="^d =", Direction:=0
Wend
WordBasic.ViewFieldCodes 0
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
End Sub
--------------------
Modul: Tabelle
Public Sub MAIN()
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
WordBasic.ViewFieldCodes 1
WordBasic.StartOfDocument
WordBasic.EditFind Find:="^d =", Direction:=0
While WordBasic.EditFindFound()
WordBasic.UpdateFields
WordBasic.EditFind Find:="^d =", Direction:=0
Wend
WordBasic.ViewFieldCodes 0
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
End Sub
---------------------
Modul: Tabelle1
Public Sub MAIN()
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
WordBasic.ViewNormal
WordBasic.WW7_EditGoTo Destination:="Menge"
WordBasic.TableSelectRow
WordBasic.LineDown 10, 1
WordBasic.EditCopy
WordBasic.WW7_EditGoTo Destination:="Mit_freundlichen_Grüßen"
WordBasic.LineUp
WordBasic.LineUp
WordBasic.EditPaste
WordBasic.LineUp
WordBasic.LineUp
WordBasic.LineUp
WordBasic.LineUp
WordBasic.LineUp
WordBasic.LineUp
WordBasic.LineUp
WordBasic.LineUp
WordBasic.LineUp
WordBasic.LineUp
WordBasic.LineUp
WordBasic.PrevCell
WordBasic.NextCell
WordBasic.TableSelectRow
WordBasic.LineDown 1, 1
WordBasic.WW6_EditClear
WordBasic.InsertFormField Entry:="", Exit:="", Enable:=1, TextType:=0,
TextWidth:="0", TextDefault:="", TextFormat:="", Type:=0, OwnHelp:=0,
HelpText:="", OwnStat:=0, StatText:=""
WordBasic.NextCell
WordBasic.InsertFormField Entry:="", Exit:="", Enable:=1, TextType:=0,
TextWidth:="0", TextDefault:="", TextFormat:="", Type:=0, OwnHelp:=0,
HelpText:="", OwnStat:=0, StatText:=""
WordBasic.NextCell
WordBasic.InsertFormField Entry:="", Exit:="", Enable:=1, TextType:=0,
TextWidth:="0", TextDefault:="", TextFormat:="", Type:=0, OwnHelp:=0,
HelpText:="", OwnStat:=0, StatText:=""
WordBasic.NextCell
WordBasic.InsertFormField Entry:="", Exit:="", Enable:=1, TextType:=0,
TextWidth:="0", TextDefault:="", TextFormat:="", Type:=0, OwnHelp:=0,
HelpText:="", OwnStat:=0, StatText:=""
WordBasic.NextCell
WordBasic.InsertFormField Entry:="", Exit:="", Enable:=1, TextType:=0,
TextWidth:="0", TextDefault:="", TextFormat:="", Type:=0, OwnHelp:=0,
HelpText:="", OwnStat:=0, StatText:=""
WordBasic.NextCell
WordBasic.InsertFormField Entry:="", Exit:="", Enable:=1, TextType:=0,
TextWidth:="0", TextDefault:="", TextFormat:="", Type:=0, OwnHelp:=0,
HelpText:="", OwnStat:=0, StatText:=""
WordBasic.NextCell
WordBasic.InsertFormField Entry:="", Exit:="", Enable:=1, TextType:=0,
TextWidth:="0", TextDefault:="", TextFormat:="", Type:=0, OwnHelp:=0,
HelpText:="", OwnStat:=0, StatText:=""
WordBasic.NextCell
WordBasic.InsertFormField Entry:="", Exit:="", Enable:=1, TextType:=0,
TextWidth:="0", TextDefault:="", TextFormat:="", Type:=0, OwnHelp:=0,
HelpText:="", OwnStat:=0, StatText:=""
WordBasic.NextCell
WordBasic.InsertFormField Entry:="", Exit:="", Enable:=1, TextType:=0,
TextWidth:="0", TextDefault:="", TextFormat:="", Type:=0, OwnHelp:=0,
HelpText:="", OwnStat:=0, StatText:=""
WordBasic.ViewPage
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
WordBasic.WW7_EditGoTo Destination:="Mit_freundlichen_Grüßen"
End Sub
------------------------
Modul: AutoNew
Public Sub MAIN()
WordBasic.ToolsProtectSection Section:=1, Protect:=1
WordBasic.ToolsProtectSection Section:=2, Protect:=0
WordBasic.ToolsProtectDocument DocumentPassword:="", NoReset:=0, Type:=2
End Sub
-------------------------
Modul: Aktualisieren
Public Sub MAIN()
Dim curType
Dim fieldName$
Dim split
Dim rownum$
Dim dlg As Object: Set dlg =
WordBasic.DialogRecord.FormFieldOptions(False)
WordBasic.CurValues.FormFieldOptions dlg
curType = dlg.Type
fieldName$ = dlg.Name
If fieldName$ = "Versand" Then
GoTo TOTAL
End If
split = InStr(fieldName$, "_")
rownum$ = Mid(fieldName$, split + 1)
WordBasic.SetFormResult "Betrag_" + rownum$
WordBasic.SetFormResult "Netto"
WordBasic.SetFormResult "MWSteuer"
TOTAL:
WordBasic.SetFormResult "Rechnungsbetrag"
End Sub
-------------------------
Modul: ArtikelBezeichnungEinfügen
Public Sub MAIN()
Dim Dokument$
Dim Weiter
Dim Suchen$
Dim Verein$
Dim Antwort
Dim dlg As Object
Dim n
On Error GoTo -1: On Error GoTo Ende
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.StartOfDocument
Suchen$ = WordBasic.[InputBox$]("Nach welchem Verein möchten Sie suchen?
Geben Sie bitte eine Kurzbezeichnung ein:")
WordBasic.EditFind Find:=Suchen$, Direction:=0, Format:=0, Wrap:=1
WordBasic.PrevCell
WordBasic.NextCell
Verein$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Der gesuchte Verein: " + Chr(13) + Chr(13) +
Chr(13) + Chr(13) + Verein$, 292)
WordBasic.Activate Dokument$
WordBasic.BeginDialog 400, 200, "Abfrage",
"ArtikelBezeichnungEinfügenSuche.OptionButtonAbfrage"
WordBasic.OptionGroup "OptionGroup1"
WordBasic.OptionButton 50, 90, 85, 16, "Uniform", "OptionButton1"
WordBasic.OptionButton 175, 90, 85, 16, "Hose", "OptionButton2"
WordBasic.OptionButton 300, 90, 85, 16, "Mütze", "OptionButton3"
WordBasic.OKButton 250, 164, 100, 21
WordBasic.CancelButton 80, 164, 100, 21
WordBasic.EndDialog
Set dlg = WordBasic.CurValues.UserDialog
n = WordBasic.Dialog.UserDialog(dlg)
Wend
End Sub
'** DYNAMISCHE DIALOGFUNKTION **
Private Function OptionButtonAbfrage(Bezeichner$, Aktion, Wert)
Dim Dokument$
Dim Weiter
Dim Uniform$
Dim Artikel_Nummer_Uniform$
Dim Antwort
Dim Hose$
Dim Artikel_Nummer_Hose$
Dim Mütze$
Dim Artikel_Nummer_Mütze$
Select Case Aktion
Case 1 'Dialog Initialisierung
WordBasic.DlgValue "OptionGroup1", -1 'kein Button angewählt
Case 2 'Schaltflächenaktion des Benutzers
If Bezeichner$ = "OptionButton1" Then
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.NextCell
Uniform$ = WordBasic.[Selection$]()
WordBasic.NextCell
Artikel_Nummer_Uniform$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Die gesuchte Uniform: " + Chr(13) + Chr(13) +
Chr(13) + Uniform$ + Chr(13) + Artikel_Nummer_Uniform$ + Chr(13) + Chr(13) +
"Ins Dokument einfügen?", "Uniform einfügen?")
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
WordBasic.Insert Uniform$
WordBasic.NextCell
WordBasic.Insert Artikel_Nummer_Uniform$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
'End If
If Bezeichner$ = "OptionButton2" Then
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
Hose$ = WordBasic.[Selection$]()
WordBasic.NextCell
Artikel_Nummer_Hose$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Die gesuchte Hose: " + Chr(13) + Chr(13) +
Chr(13) + Hose$ + Chr(13) + Artikel_Nummer_Hose$ + Chr(13) + Chr(13) + "Ins
Dokument einfügen?", "Hose einfügen?")
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
WordBasic.Insert Hose$
WordBasic.NextCell
WordBasic.Insert Artikel_Nummer_Hose$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
'End If
If Bezeichner$ = "OptionButton3" Then
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
Mütze$ = WordBasic.[Selection$]()
WordBasic.NextCell
Artikel_Nummer_Mütze$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Die gesuchte Mütze: " + Chr(13) + Chr(13) +
Chr(13) + Mütze$ + Chr(13) + Artikel_Nummer_Mütze$ + Chr(13) + Chr(13) +
"Ins Dokument einfügen?", "Mütze einfügen?")
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
WordBasic.Insert Mütze$
WordBasic.NextCell
WordBasic.Insert Artikel_Nummer_Mütze$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
'End If
Wend
End If
Wend
End If
Wend
End If
Case 3 'Textänderung des Benutzers
Case 4 'Fokusänderung des Benutzers
Case 5 'keine Benutzeraktion
Ende:
End Select
End Function
-------------------------
Modul: Numerierung
Public Sub MAIN()
Dim LaufendeNummer$
Dim LaufendeNummer_
' ** Letzte fortlaufende Nummer aus der WIN.INI auslesen:
LaufendeNummer$ = WordBasic.[GetProfileString$]("MS Word 6.0",
"LaufendeNummer")
WordBasic.MsgBox "Letzte fortlaufende Nummer war: '" + LaufendeNummer$ + "'"
' ** Vergabe der ersten Nummer bei fehlendem Eintrag in der WIN.INI:
If LaufendeNummer$ = "0000" Then
WordBasic.SetProfileString "MS Word 6.0", "LaufendeNummer", "0000"
End If
' ** Neue fortlaufende Nummer berechnen:
LaufendeNummer_ = WordBasic.Val(LaufendeNummer$) ' Umwandlung String in
Zahl
LaufendeNummer_ = LaufendeNummer_ + 1 ' Erhöhung der Zahl um 1
LaufendeNummer$ = Str(LaufendeNummer_) ' Umwandlung Zahl in String
LaufendeNummer$ = WordBasic.[Right$](LaufendeNummer$, Len(LaufendeNummer$) -
1)
' ** Neue fortlaufende Nummer in der WIN.INI abspeichern:
WordBasic.SetProfileString "MS Word 6.0", "LaufendeNummer", LaufendeNummer$
WordBasic.MsgBox "Neue fortlaufende Nummer ist: '" + LaufendeNummer$ + "'"
WordBasic.ToolsUnprotectDocument
WordBasic.Insert LaufendeNummer$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
End Sub
-----------------------------
Modul: VereinEinfügenSuchen
Public Sub MAIN()
Dim Dokument$
Dim Weiter
Dim Suchen$
Dim Verein$
Dim Antwort
Dim n
On Error GoTo -1: On Error GoTo Ende
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.StartOfDocument
Suchen$ = WordBasic.[InputBox$]("Nach welchem Verein möchten Sie suchen?
Geben Sie bitte eine Kurzbezeichnung ein:")
WordBasic.EditFind Find:=Suchen$, Direction:=0, Format:=0, Wrap:=1
If WordBasic.EditFindFound() = 0 Then
WordBasic.MsgBox "Die eingegebene Kurzbezeichnung ist nicht vorhanden",
"Falscher Name"
GoTo Neustart
End If
WordBasic.PrevCell
WordBasic.NextCell
Verein$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Der gesuchte Verein: " + Chr(13) + Chr(13) +
Chr(13) + Chr(13) + Verein$ + Chr(13) + Chr(13) + Chr(13) + "Verein
einfügen?", 292)
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
If Antwort = -1 Then
WordBasic.EditBookmark "Verein"
WordBasic.Insert Verein$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
Weiter = 0
Else
Neustart:
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
Weiter = WordBasic.MsgBox("Wollen Sie nach einem anderen Verein suchen?",
"Weitersuchen", 292)
End If
Wend
WordBasic.BeginDialog 400, 200, "Abfrage",
"VereinEinfügenSuchen.OptionButtonAbfrage"
WordBasic.OptionGroup "OptionGroup1"
WordBasic.OptionButton 50, 90, 85, 16, "Uniform", "OptionButton1"
WordBasic.OptionButton 175, 90, 85, 16, "Hose", "OptionButton2"
WordBasic.OptionButton 300, 90, 85, 16, "Mütze", "OptionButton3"
WordBasic.OKButton 250, 164, 100, 21
WordBasic.CancelButton 80, 164, 100, 21
WordBasic.EndDialog
Dim dlg As Object: Set dlg = WordBasic.CurValues.UserDialog
n = WordBasic.Dialog.UserDialog(dlg)
End Sub
'** DYNAMISCHE DIALOGFUNKTION **
Private Function OptionButtonAbfrage(Bezeichner$, Aktion, Wert)
Dim Dokument$
Dim Weiter
Dim Uniform$
Dim Artikel_Nummer_Uniform$
Dim Antwort
Dim Hose$
Dim Artikel_Nummer_Hose$
Dim Mütze$
Dim Artikel_Nummer_Mütze$
Select Case Aktion
Case 1 'Dialog Initialisierung
WordBasic.DlgValue "OptionGroup1", -1 'kein Button angewählt
Case 2 'Schaltflächenaktion des Benutzers
If Bezeichner$ = "OptionButton1" Then
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.NextCell
Uniform$ = WordBasic.[Selection$]()
WordBasic.NextCell
Artikel_Nummer_Uniform$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Die gesuchte Uniform: " + Chr(13) + Chr(13) +
Chr(13) + Uniform$ + Chr(13) + Artikel_Nummer_Uniform$ + Chr(13) + Chr(13) +
"Ins Dokument einfügen?", "Uniform einfügen?")
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
If Antwort = -1 Then
WordBasic.WW7_EditGoTo Destination:="Text15"
WordBasic.Insert Uniform$
WordBasic.NextCell
WordBasic.Insert Artikel_Nummer_Uniform$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
End If
'End If
If Bezeichner$ = "OptionButton2" Then
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
Hose$ = WordBasic.[Selection$]()
WordBasic.NextCell
Artikel_Nummer_Hose$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Die gesuchte Hose: " + Chr(13) + Chr(13) +
Chr(13) + Hose$ + Chr(13) + Artikel_Nummer_Hose$ + Chr(13) + Chr(13) + "Ins
Dokument einfügen?", "Hose einfügen?")
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
If Antwort = -1 Then
WordBasic.WW7_EditGoTo Destination:="Text15"
WordBasic.Insert Hose$
WordBasic.NextCell
WordBasic.Insert Artikel_Nummer_Hose$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
End If
'End If
If Bezeichner$ = "OptionButton3" Then
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
Mütze$ = WordBasic.[Selection$]()
WordBasic.NextCell
Artikel_Nummer_Mütze$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Die gesuchte Mütze: " + Chr(13) + Chr(13) +
Chr(13) + Mütze$ + Chr(13) + Artikel_Nummer_Mütze$ + Chr(13) + Chr(13) +
"Ins Dokument einfügen?", "Mütze einfügen?")
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
If Antwort = -1 Then
WordBasic.WW7_EditGoTo Destination:="Text15"
WordBasic.Insert Mütze$
WordBasic.NextCell
WordBasic.Insert Artikel_Nummer_Mütze$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
End If
'End If
Wend
End If
Wend
End If
Wend
End If
Case 3 'Textänderung des Benutzers
Case 4 'Fokusänderung des Benutzers
Case 5 'keine Benutzeraktion
Ende:
End Select
End Function
---------------------------------
Modul: VEreinsdatenBearbeiten
Public Sub MAIN()
Dim Dokument$
Dim Weiter
Dim Suchen$
Dim Verein$
Dim Antwort
Dim n
On Error GoTo -1: On Error GoTo Ende
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.StartOfDocument
Suchen$ = WordBasic.[InputBox$]("Nach welchem Verein möchten Sie suchen?
Geben Sie bitte eine Kurzbezeichnung ein:")
WordBasic.EditFind Find:=Suchen$, Direction:=0, Format:=0, Wrap:=1
If WordBasic.EditFindFound() = 0 Then
WordBasic.MsgBox "Die eingegebene Kurzbezeichnung ist nicht vorhanden",
"Falscher Name"
GoTo Neustart
End If
WordBasic.PrevCell
WordBasic.NextCell
Verein$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Der gesuchte Verein: " + Chr(13) + Chr(13) +
Chr(13) + Chr(13) + Verein$ + Chr(13) + Chr(13) + Chr(13) + "Verein
einfügen?", 292)
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
If Antwort = -1 Then
WordBasic.EditBookmark "Verein"
WordBasic.Insert Verein$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
Weiter = 0
Else
Neustart:
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
Weiter = WordBasic.MsgBox("Wollen Sie nach einem anderen Verein suchen?",
"Weitersuchen", 292)
End If
Wend
WordBasic.BeginDialog 400, 200, "Abfrage",
"VereinEinfügenSuchen.OptionButtonAbfrage"
WordBasic.OptionGroup "OptionGroup1"
WordBasic.OptionButton 50, 90, 85, 16, "Uniform", "OptionButton1"
WordBasic.OptionButton 175, 90, 85, 16, "Hose", "OptionButton2"
WordBasic.OptionButton 300, 90, 85, 16, "Mütze", "OptionButton3"
WordBasic.OKButton 250, 164, 100, 21
WordBasic.CancelButton 80, 164, 100, 21
WordBasic.EndDialog
Dim dlg As Object: Set dlg = WordBasic.CurValues.UserDialog
n = WordBasic.Dialog.UserDialog(dlg)
End Sub
'** DYNAMISCHE DIALOGFUNKTION **
Private Function OptionButtonAbfrage(Bezeichner$, Aktion, Wert)
Dim Dokument$
Dim Weiter
Dim Uniform$
Dim Artikel_Nummer_Uniform$
Dim Antwort
Dim Hose$
Dim Artikel_Nummer_Hose$
Dim Mütze$
Dim Artikel_Nummer_Mütze$
Select Case Aktion
Case 1 'Dialog Initialisierung
WordBasic.DlgValue "OptionGroup1", -1 'kein Button angewählt
Case 2 'Schaltflächenaktion des Benutzers
If Bezeichner$ = "OptionButton1" Then
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.NextCell
Uniform$ = WordBasic.[Selection$]()
WordBasic.NextCell
Artikel_Nummer_Uniform$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Die gesuchte Uniform: " + Chr(13) + Chr(13) +
Chr(13) + Uniform$ + Chr(13) + Artikel_Nummer_Uniform$ + Chr(13) + Chr(13) +
"Ins Dokument einfügen?", "Uniform einfügen?")
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
If Antwort = -1 Then
WordBasic.WW7_EditGoTo Destination:="Text15"
WordBasic.Insert Uniform$
WordBasic.NextCell
WordBasic.Insert Artikel_Nummer_Uniform$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
End If
'End If
If Bezeichner$ = "OptionButton2" Then
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
Hose$ = WordBasic.[Selection$]()
WordBasic.NextCell
Artikel_Nummer_Hose$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Die gesuchte Hose: " + Chr(13) + Chr(13) +
Chr(13) + Hose$ + Chr(13) + Artikel_Nummer_Hose$ + Chr(13) + Chr(13) + "Ins
Dokument einfügen?", "Hose einfügen?")
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
If Antwort = -1 Then
WordBasic.WW7_EditGoTo Destination:="Text15"
WordBasic.Insert Hose$
WordBasic.NextCell
WordBasic.Insert Artikel_Nummer_Hose$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
End If
'End If
If Bezeichner$ = "OptionButton3" Then
Dokument$ = WordBasic.[FileName$]()
Weiter = -1
While Weiter = -1
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.doc",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
WordBasic.NextCell
Mütze$ = WordBasic.[Selection$]()
WordBasic.NextCell
Artikel_Nummer_Mütze$ = WordBasic.[Selection$]()
Antwort = WordBasic.MsgBox("Die gesuchte Mütze: " + Chr(13) + Chr(13) +
Chr(13) + Mütze$ + Chr(13) + Artikel_Nummer_Mütze$ + Chr(13) + Chr(13) +
"Ins Dokument einfügen?", "Mütze einfügen?")
WordBasic.Activate Dokument$
WordBasic.ScreenUpdating 0
WordBasic.ToolsUnprotectDocument
If Antwort = -1 Then
WordBasic.WW7_EditGoTo Destination:="Text15"
WordBasic.Insert Mütze$
WordBasic.NextCell
WordBasic.Insert Artikel_Nummer_Mütze$
WordBasic.ToolsProtectDocument Type:=2, NoReset:=1
WordBasic.ScreenUpdating 1
End If
'End If
Wend
End If
Wend
End If
Wend
End If
Case 3 'Textänderung des Benutzers
Case 4 'Fokusänderung des Benutzers
Case 5 'keine Benutzeraktion
Ende:
End Select
End Function
--------------------------------------
Modul: VereinsverwaltungDrucken
Public Sub MAIN()
WordBasic.FileOpen Name:="c:\winword\vorlagen\verein.DOC",
ConfirmConversions:=0, ReadOnly:=0, AddToMru:=0, PasswordDoc:="",
PasswordDot:="", Revert:=0, WritePasswordDoc:="", WritePasswordDot:=""
WordBasic.TableSort DontSortHdr:=1, FieldNum:="Spalte1", Type:=0, Order:=0,
FieldNum2:="Spalte2", Type2:=0, Order2:=0, FieldNum3:="Spalte3", Type3:=0,
Order3:=0, Separator:=0, SortColumn:=0, CaseSensitive:=0
WordBasic.FilePrint AppendPrFile:=0, Range:="0", PrToFileName:="", From:="",
To:="", Type:=0, NumCopies:="1", Pages:="", Order:=0, PrintToFile:=0,
Collate:=1, FileName:=""
End Sub
Guido Nikolai
Ich habe den Code schon geschickt aber bis jetzt noch nicht gehört. haben
sie etwas gefunden wie ich das lösen kann??
Guido
"Balkrishna Isvaran" <isv...@vsnl.com> schrieb im Newsbeitrag
news:#TSU8n#nBHA.2404@tkmsftngp03...
Rita Bock
Stell doch mal den Makro-Text in die Newsgroup, vielleicht findet sich jemand,
der das Problem lösen kann.
Rita Bock
Balkrishna Isvaran
(leider habe keine deutsche version von word/vba um es auszuprobieren)
balkrishna
Rita Bock <Rita...@data-experts.de> wrote in message
news:3C594FDA...@data-experts.de...
> Stell doch mal den Makro-Text in die Newsgroup, vielleicht findet sich
jemand,
> der das Problem lösen kann.
> Rita Bock
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.320 / Virus Database: 179 - Release Date: 30/01/02