[GastForen Programme Office Microsoft Office Makro in Word 2003

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

Makro in Word 2003

Dexxa
Beiträge gesamt: 28

27. Sep 2006, 16:29
Beitrag # 1 von 1
Bewertung:
(490 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Guten Tag,
ich benötige mal wieder Hilfe. Ich habe in in Word ein Makro erstellt, welches die Möglichkeit schafft ein Original und Entwurf Dokument ein- und auszublenden. Nun möchte ich erreichen, dass beim Ausblenden des Wortes Entwurf (also beim Formatieren im verborgenen Text) das Wort noch weiß (also für den Anwender unsichtbar) formatiert wird. Irgendwie stehe ich aber auf dem Schlauch. Kann mir jemand helfen? Danke im Voraus.

Gruß Dexxa und hier der Code
****************

' ENTWURF suchen und verbergen
Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:=""
Selection.Find.ClearFormatting
With Selection.Find
.Text = "ENTWURF"
.Replacement.Text = ""
.Forward = True
End With
Selection.SelectColumn
With Selection.Font
.Hidden = True
End With

' die nicht-druckbaren Zeichen ausblenden
Application.DisplayStatusBar = True
With ActiveWindow
With .View
.ShowAll = False
End With
End With
Selection.HomeKey Unit:=wdStory
End Sub

Sub Entwurf()
'
***************************************

' Entwurf Makro
'

' die nicht-druckbaren Zeichen einblenden
Application.DisplayStatusBar = True
With ActiveWindow
With .View
.ShowAll = True
End With
End With

' ENTWURF suchen und verbergen
Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:=""
Selection.Find.ClearFormatting
With Selection.Find
.Text = "ENTWURF"
End With
Selection.SelectColumn
With Selection.Font
.Hidden = False
End With
Selection.HomeKey Unit:=wdStory
X

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
02.02.2023

Prozesse optimieren und effizient gestalten

Zürich
Donnerstag, 02. Feb. 2023, 08.00 - 10.00 Uhr

Digitalisierung, Webauftritt

Digitalisierung mitgestalten - Worauf kommt es an? Wie wichtig ist die Webseite? Webseite mit Word Press? Interne Prozesse optimieren

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: Birol Isik, E-Mailinfo AT bkcc DOT ch

https://digitalisierung-heute.ch/digitalisierung-informationstag-schweiz/

Veranstaltungen
01.03.2023 - 09.03.2023

Online
Mittwoch, 01. März 2023, 00.00 Uhr - Donnerstag, 09. März 2023, 00.00 Uhr

Online Webinar

Wie gehen wir mit diesen Veränderungen um? Was ist notwendig, damit wir die Digitalisierung im Unternehmen klappt? Veränderungsprozesse verstehen und entsprechend handeln Mitarbeiter als Botschafter Webseite mit WordPress erstellen SEA /SEO (Ads aufschalten)

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: B. Isik, E-Mailinfo AT snfa DOT ch

https://www.fernstudiumfitness.ch/digitalisierung-schweiz/