Het opslaan in een Macro Met behulp van een gewenste bestandsnaam

Steve maakt documenten die de bestandsnaam van het document vereisen worden uiteengezet in de header en in juridische bijschriften op de eerste en de tweede pagina van het document. Hij heeft een macro die, na de bestandsnaam wordt getypt in de rubriek gecreëerd, kopieert deze en plakt deze in de vorm van tekst velden in de bijschriften bij de juiste plaatsen. Zijn volgende document montage stap is om het document met behulp van de "Save As" commando op te slaan. Het document moet worden opgeslagen met dezelfde bestandsnaam in de header en bijschriften ingevoerd.

Wanneer dit handmatig doen, Steve geeft het dialoogvenster Opslaan als, plakt de bestandsnaam in, vervolgens klikt u op Opslaan. Hij heeft geprobeerd om de macro code om dit "Opslaan als" add stap te maken, maar kan niet achterhalen hoe dit te doen. Wanneer Word registreert de handmatige stappen, Steve krijgt iets als het volgende:

ActiveDocument.SaveAs FileName: = "04562.sw.doc

Dit toont aan dat Woord is het opnemen van de specifieke bestandsnaam wordt gebruikt bij het doorlopen van de handmatige stappen, maar Steve wil een andere bestandsnaam, op basis van wat er in de kop van het document te gebruiken. Die informatie (de bestandsnaam) toevallig in het Klembord wanneer de macro wordt uitgevoerd, dus is het ook mogelijk om te grijpen de informatie vormen het Klembord, maar Steve is ook op een verlies over hoe dat te doen.

Sinds Steve heeft al een macro om de bestandsnaam te kopiëren, en hij is blij met dat macro, moet het slechts een paar wijzigingen in zijn code voor het bestand opgeslagen met de juiste naam. Probeer het toevoegen van de volgende code om de juiste plaatsen in uw bestaande macro:

Dim strTemp als Koord
Dim MyData Zoals DataObject
Stel MyData = Nieuwe DataObject

MyData.GetFromClipboard
strTemp = MyData.GetText (1)
ActiveDocument.SaveAs FileName: = Trim (strTemp) & ".doc"

Zolang u een tekenreeks in het Klembord die u wilt gebruiken voor uw bestandsnaam, moet deze code werken. Het voegt ook de .doc extensie aan het einde van de string in het Klembord. Deze code vereist dat u het opzetten van een referentie voor de Microsoft-formulieren in de VBA-editor. (Kies Verwijzingen in het menu Extra in de Editor.)

Natuurlijk moet erop worden gewezen, dat wilt u misschien uw aanpak om deze macro te heroverwegen. In feite, kunt u in staat om zich te ontdoen van de meeste van uw code als u een andere aanpak geheel te nemen. Zo kan je mensen eerst het document op te slaan en dan verwijzen naar de naam van het bestand in het document zelf door het gebruik van de velden. (Het veld FILENAME kan worden gebruikt voor dit doel.)

In plaats van een macro om de naam van het bestand te kopiëren naar de eerste en de tweede pagina van het document, kunt u ook een bepaalde stijl (zoals DocTitle of DocName) gebruiken om te verwijzen naar de bestandsnaam, en gebruik dan het veld STYLEREF elders in uw document te verwijzen naar die naam te maken. Op die manier heeft het maar één keer te worden ingevoerd, en er geen macro nodig is. U kunt meerdere manieren van het herhalen van gegevens in verschillende gebieden van het document op deze pagina op de site van een Word MVP's vinden:

http://gregmaxey.mvps.org/Repeating_Data.htm

Je kan ook een gebruikers formulier om de gegevens van de gebruiker verzamelen te maken (aan de bestandsnaam gewenste krijgen), en sla het document onder die naam. De macro kan vervolgens de bestandsnaam toewijzen aan het veld Titel, en overal in het document dat het veld TITLE verwezen zou automatisch de naam van het dossier van de gebruiker heeft ingevoerd tonen.

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (453) van toepassing op Microsoft Word 97, 2000, 2002 en 2003. U kunt een versie van deze tip voor de ribbon-interface van het Woord (Word 2007 en later) hier: opslaan in een Macro Met behulp van een gewenste bestandsnaam.