Endre utskriftsinnstillinger på gamle brev...

[svas]

Problemet:

 

Vi har fått ny kopimaskin på jobben som også fungerer som skriver. Denne har 4 arkskuffer med hhv blank, A3, brev1 og brev2 papir. Teknikerene fra leverandøren sier at selv om vi lager ferdige oppsett på hvordan man skal skrive ut så kommer likevel Word til å overstyre disse instillingene.

 

Vi har veldig mange av våre brev (som vi bruker skrive over når vi skriver nye brev) fra tidlige utgaver av Windows, både Win95 og Win98se; begge med "tilhørende" Office-versjoner. Fordi vi har så mange forskjellige maler fra så mange forskjellige versjoner av Word virker aldri innstillingene i utskriftsmenyen likt fra brev til brev (selv om oppsettet fra kopimaskinleverandøren er det samme). Av og til kommer brevet ut på blankt ark, andre ganger kommer det på brevark. Eneste måten jeg kan se at vi kan fornadre på dette er å skrive alle gamle brev inn i Office 2003 som vi har inne nå, men det vet jeg at aldri kommer til å skje.

 

Det jeg søker (tror jeg) et et program som kan formatere alle tidligere Word-dokumenter fra tidligere utskriftsinnstillinger/formateringer til nye innstillinger/formatering som passer til Office 2003.

 

Noen som vet om noe slikt finnes?

[PoleCat]

Flyttes til Programvare, da du er på jakt etter et program.

[aadnk]

Denne oppgaven kan muligens løses ved hjelp av VB-Script, skjønt jeg har ikke etterprøvd koden fullstendig. Legg iallfall følgende kode inn i notepad, og lagre det som PageSetup.vbs (merk at Save as type må være All Files):

 

' ------- ### Initialiser variabler og anrop hovedprosedyrer ### ---------
Dim sUpperPath

' Mappen du vil programmet skal søke etter DOC-filer. Husk å avslutt med omvendt skråstrek (\)
sUpperPath = "D:\Kristian\Tekst-filer\Word Documents\"

' Start søkeprosesen
StartSearch

' ------- ### Prosedyrer ### ---------
Sub StartSearch()

  Set Application = CreateObject("Word.Application")
  
  ' Ikke misbruk ressurser og tid på å tegne opp alle operasjonene - skjul applikasjoen
  Application.Visible = False
  
  ' Finn alle filene og åpne dem i Word, for å dernest konvertere dem
  FindFiles sUpperPath, Application.Documents

  ' Avslutt Word
  Set Application = Nothing
  
End Sub

Sub FindFiles(sPath, Documents)

  Dim sFile, vFolder, cFolders, currDoc

  sFile = Dir(sPath, vbNormal Or vbDirectory)

  Do Until sFile = ""
  
      If sFile <> "." And sFile <> ".." Then
      
          If (GetAttr(sPath & sFile) And vbDirectory) = vbDirectory Then
      
              ' Dette er en mappe. Legg den til køen
              cFolders.Add sPath & sFile & "\"
              
          Else
          
              ' Er dette en WORD-fil?
              If Right(sFile, Len(sFile) - InStrRev(sFile, ".")) = "doc" Then
          
                  ' Åpne filen
                  Set currDoc = Documents.Open(sPath & sFile)
                  
                  ' Sets the specified page setup formatting as the default for the active document and all new documents based on the active template.
                  currDoc.PageSetup.SetAsTemplateDefault
                  
                  ' Skjønt jeg tror koden ovenfor vil gjøre jobben, kan du jo alltids gjøre dette manuelt:
                  ' currDoc.PageSetup.Orientation = wdOrientPortrait
                  ' currDoc.PageSetup.FirstPageTray = wdPrinterDefaultBin
                  
                  ' Lukk og lagre filen
                  currDoc.Save
                  currDoc.Close
                  
              End If
          
          End If
          
      End If
  
      sFile = Dir
  Loop
  
  ' Søk så gjennom alle oppsamlede mapper
  For Each vFolder In cFolders
      FindFiles vFolder, Documents
  Next

End Sub

 

Husk å endre sUpperPath til den stien du ønsker.

Endret 10. februar 2005 av aadnk