Hvor kan .vbs anvendes?

Sproget der benyttes til VBScript, benyttes også i Visual Basic, ASP, VBScript i html dokumenter (som kan bruges med Active Desktop), Words VBA (Visual Basic for Applications).

Ja, men betyder det at jeg kan kopiere mit script direkte til visual basic? eller en aspside? Skal den ikke kaldes på en eller anden bestemt måde?

Til Visual Basic, skal du jo compile det til et program, først.
Til ASP (Activer Server Pages) skal du bruge en server, der understøtter ASP. F.eks. PWS ("Personal Web Server") i Windows 98, eller IIS ("Internet Information Services") i Windows XP.

Det er dog ikke alle koder/metoder der virker i f.eks. ASP eller VB.
Hvis du smider scriptet herind, kan vi se på det.

VBA bruges i Word dokumenter
VBScript kan bruges til Windows Script Host (.vbs filer) eller i HTML filer (inkl. Active Desktop).

VBScript kan også bruges til

word-dokumenter
excell-dokumenter
terminal-sessionsprogrammer  (3270)

Hvordan kan du bruge det i Word. Hvor tilføjer man scripts henne, og hvad ville man typisk bruge det til?

Scripts opretter jeg enten i terminal-sessionsprogrammet, eller et selvstændig
VBS program (en tekstfil gemt med  .vbs), du kan bruge efterstående program direkte.

Bruges hvis mange breve skal skrives, her bruges ikke inputfelter som i eksemplet, men der læses fra en tekstfil via.....
'*****læsning fra tekstfil
dim fso, dat, data
set fso = CreateObject ("Scripting.FileSystemObject")
set dat = fso.OpenTextFile("c:\data.txt", ForReading)
do
  if fdat.AtEndOfStream = True  then
      exit do
  end if
data = dat.ReadLine
loop



'*********vbsprogram til dannelse af worddokumenter
dim stwofil, frafilen

frafilen = "her skal stien til word-skabelonen skrives"

  on error resume next
      set stwofil = GetObject(, "Word.Application")
      if err.number > 0 then
        Call odoc.save (True, False)
        set stwofil = CreateObject ("Word.Application")
      end if
  err.clear
  on error goto 0

  on error resume next
      Set nyefil = stwofil.Documents.Add(frafilen)
      if err.number > 0 then
        MsgBox ("Skabelonen: " & frafilen & chr(13) & chr(13) & "kan ikke findes" & chr(13) & chr(13) & "Tekniske oplysninger:" & chr(13) & "Error # " & CStr(Err.Number) & " " & Err.Description)
        msgbox ("Makro har ikke udskrevet/gemt dokumentet")
        err.clear
        on error goto 0
        exit sub
      end if
  err.clear
  on error goto 0
'*********efterfølgende indsættes i bogmærker på skabelonen
'*********bogmærkerne skal her hedde  brugere    /  afdeling
'*********variablerne antal_brugere og afdadr kan oprettes via
'*********indputfelter
antal_brugere = inputbox("Indtast antal brugere")
afdadr = inputbox("Indtast afdelingsnavn")



' eller fra en tekstfil, evt. csv-fil
  nyefil.Bookmarks("brugere").Range.Text = antal_brugere
  nyefil.Bookmarks("afdeling").Range.Text = afdadr

  nyefil.printOut
  nyefil.close

nielsrs >> det var noget i den stil jeg havde i tankerne. Hvor kan jeg læse mere om det ?

Generelt om VBscript er der bogen

VBSCRIPT IN A NUTSHELL
ISBN: 1-56592-720-6
Du evt. kan låne bogen på biblioteket....reserver via nettet...der er kun få stykker i Danmark

Ellers må du finde stumper på eksperten og via søgemaskinerne,
jeg har ikke kunnet finde en detaljeret beskrivelse af kommandoer

...der er også et eksempel her




set fso = CreateObject ("Scripting.FileSystemObject")
set stwofil = CreateObject ("Word.Application")
tilfilen = "i:\div\Proforma\P" & nycpr & ".txt"
set fso = CreateObject ("Scripting.FileSystemObject")
Set nyefil = stwofil.Documents.Add(tilfilen)



nyefil.Bookmarks("Test1").Range.Text = "Denne tekst bliver sat ind i word"

nyefil.SaveAs "c:\word\word2.doc"
nyefil.Visible = True
nyefil.close

jeg har lidt problemer med at få det til at virke. Jeg sætter bare koden ind i en .vbs fil, ændrer stier osv og kører den !? Får noget med at mit bookmark ikke findes i den collection... Jeg har office xp og win2k, men modellen burde jo gælde generelt ikke?

hele filen word2.vbs:
=====================

Set stwofil = CreateObject("Word.Application")
Set nyefil = stwofil.Documents.Add("Skabelon.dot")

nyefil.Bookmarks("data").Range.Text = "Denne tekst bliver sat ind i word"

nyefil.SaveAs "word2.doc"
nyefil.Visible = True
nyefil.close

==========================

og i Skabelon.dot er der et bookmark med navnet "data"...

I det første eksempel er tilfilen forkert, det skal
selvfølgelig være en skabelon, og derfor ende på .dot  og ikke  .txt.

Din fejlmelding tyder på at programmet ikke kan finde dit bogmærke, hvilket giver
2 fejlmuligheder

- bogmærket er ikke i dokumentet
- du har ikke kaldt dokumentet........f.eks. hvis du har kaldt et  .txt  dokument

Har fået det til at virke... Det handlede om at jeg ikke havde skrevet fulde stier på filerne og jeg havde nogle gamle liggende med samme navn et andet sted :-) Læg et svar...

Du får lige et par formateringer, læg mærke til at de bruger
"paragraphs"...betyder vist nok afsnit, kan måske også bruges ved bogmærker ???
          for z = 3 to 9
            set nyform = nyefil.paragraphs(z).range
            nyform.font.size = 10
            nyform.font.italic = false
            'nyform.font.colorindex =  6
            'nyform.font.shading.backgroundpatterncolorindex = 4
            nyform.font.bold = false
            'nyform.font.underline = 1
          next

takker.