Frage : Kann ich Code verursachen lassen, um Eingang im Wort u. in Excel zu automatisieren?

Ich muss das Wort u. Excel Doc. aktualisieren, die mit meinem täglich sind: Name, Stellenbezeichnung, laufendes Datum und unterzeichnet.

In Wort u. Excel Doc. dort sind Felder (angebrachte Bildschirmausdrucke sehen), wo ich meinen Namen eintrage, meine Stellenbezeichnung, laufendes Datum und es gibt ein „Zeichen“, das archiviert wird, wo ich hereinkomme: „Über eMail“.

I müssen diese gleichen Daten einbringen, JEDES MAL WENN ich diese Doc. benutze. Und ich laufe ungefähr 20 dieser Doc. ein Tag durch. Damit können Sie sehen und dadurch hereinkommen, dass die gleichen Daten, die täglich sind, altes wirklich qucik.

It würden bilden meinen Job soviel einfacher erhalten haben, wenn ich einen Makroknopf auf meinem Wort und Excel hatte, in dem, als ich es anklickte, es gerade die Felder für mich bevölkerte.

Is das möglich?

Thanks.

Antwort : Kann ich Code verursachen lassen, um Eingang im Wort u. in Excel zu automatisieren?

O.K., hier anstreben Sie Wort e (meine Albtraumanwendung)

Dieses Makro in Ihrem normal.dot einsetzen

Sub FillMeIn ()
Wd als Dokument verdunkeln
Wd = ActiveDocument einstellen
wd. Tabellen (1).Range.Cells (52). Range.Text = „John Burch“
wd. Tabellen (1).Range.Cells (54). Range.Text = „CNC-Verwalter“
wd. Tabellen (1).Range.Cells (56). Range.Text = Datum
wd. Tabellen (1).Range.Cells (58). Range.Text = „über eMail“
Enden-Unterseeboot

Wenn Sie nicht dies, können Sie tun können dies tun

Im Menüstab zu den Werkzeugen/Makro gehen --> Makro
„FillMeIn“ im Makronamensfeld ausfüllen
Klicken „verursacht“

Sie jetzt ankommen im VBA Herausgeber (immer zugängliches durchgehendes Alt+F11)) und sehen dieses auf der rechten Seite

Vor-GFGFG ()
'
'GFGFG Makro
'Makro verursachte 8/25/2010 durch xxx
'

Enden-Unterseeboot

den Code unten zwischen Unterseeboot jetzt kleben () und Unterseeboot beenden

Wd als Dokument verdunkeln
Wd = ActiveDocument einstellen
wd. Tabellen (1).Range.Cells (52). Range.Text = „John Burch“
wd. Tabellen (1).Range.Cells (54). Range.Text = „CNC-Verwalter“
wd. Tabellen (1).Range.Cells (56). Range.Text = Datum
wd. Tabellen (1).Range.Cells (58). Range.Text = „über eMail“
Enden-Unterseeboot

Das Makro einem Abkürzungschlüssel jetzt zuweisen (Alt+A) sagen

Im Wortmenü zu den Werkzeugen gehen/besonders anfertigen
In der Unterseite des Fensters, den besonders anfertigenknopf neben Abschluss klicken
In den Kategorien verzeichnen (obersteslinks), zu den Makro unten in einer Liste verzeichnen und es vorwählen
In den Makro das gerechte verursachte FillMeIn verzeichnen, vorwählen
Den Feld „neuen Abkürzungschlüssel der Presse“ vorwählen
Alt+A jetzt betätigen und es überprüfen kopiert im Feld „neuen Abkürzungschlüssel der Presse“
Klicken zuweist t
Klickenabschluß

Ihn prüfen, indem Sie ihn durch Alt + a starten
Weitere Lösungen  
 
programming4us programming4us