Lagring Personlig kopier af et dokument

Når du arbejder med andre mennesker i din virksomhed eller måske med en gruppe af kunder, kan du oprette en personlig fil for hver klient. Selv om det kan være bedst at gøre den skabende ved hjælp af en brevfletning, hvis dine personlige behov er beskedne, er der en nemmere måde.

Start med at oprette en almindelig tekstfil, der indeholder navnene på personer, der modtager dokumentet, et navn per linje. Makroen vil derefter proppe navnet i overskriften på et dokument og gemme dokumentet under den pågældende persons navn. Så hvis din tekst fil har femten mennesker i det, vil du ende op med femten kopier af dokumentet, én pr person. Hver vil blive personlig med den enkeltes navn i overskriften.

Processen til at udføre en sådan opgave er forholdsvis ligetil: Åbn tekstfilen, snup et navn, sætte det i overskriften, og derefter gemme dokumentet. Et andet navn er greb, og processen gentages, indtil der ikke er flere navne i filen. Følgende makro redskaber sådan proces:

Sub SaveNameFiles ()
Dim SNAME As String
Dim $ file As String

Åbn "c: /names.txt" For Input som # 5

Ved fejl Resume Next
Gør Mens ikke EOF (5)
»Få navnet
Linje Input # 5, $ name
$ file = $ name & ".doc"
$ file = "c: \ mypath \" & $ file

ActiveWindow.ActivePane.View.SeekView = _
wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
Selection.TypeText Tekst: = $ name

ActiveWindow.ActivePane.View.SeekView = _
wdSeekMainDocument
ActiveDocument.SaveAs FileName: = $ file
Loop

Luk # 5

ActiveWindow.ActivePane.View.SeekView = _
wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
ActiveWindow.ActivePane.View.SeekView = _
wdSeekMainDocument
End Sub

Den vanskelige del af makroen bruger .SeekView ejendom at angive, hvilken historie i det dokument, du ønsker at arbejde med. Som gennemført her, er det .SeekView ejendom, der anvendes gentagne gange for at skifte mellem hovedfeltet og hoveddokumentet.

Bemærk, så godt, at $ file variabel angiver navnet på den fil, hvor den personlige dokument vil blive gemt. Lige efter navnet er greb fra tekstfilen er $ file variablen beregnet ved .doc filtypen og stien til den forreste del af filnavnet. (Du bør ændre stien til en, der er passende for dit system.)

Selve spare operation er relativt let; den .SaveAs metode anvendes med et filnavn. Dette er den mest fejlbehæftede linje kode i makroen, da en af ​​de navne, læst fra filen kan indeholde tegn, der er upassende for gyldige filnavne. Hvis dette er tilfældet, frembringes en fejl, og makro fortsætter med den næste linje. Dokumentet vil dog ikke blive gemt under de ulovlige navn.

Efter løkken (sensationsprægede navne og gemme) er afsluttet, sidehovedområdet ryddes og .SeekView stilles tilbage til hoveddokumentet.

WordTips er din kilde til omkostningseffektiv Microsoft Word træning. (Microsoft Word er det mest populære tekstbehandlingsprogram i verden.) Dette tip (7983) gælder for Microsoft Word 2007, 2010 og 2013. Du kan finde en version af dette tip for den ældre menu interfacet Word her: Saving Personalized kopier af et dokument.


© 2020 Zajacperrone.com | Contact us: webmaster# zajacperrone.com