Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 7635 Ergebnisse ergeben.
Seite 260 von 509 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 257, 258, 259, 260, 261, 262, 263 ... 503, 504, 505, 506, 507, 508, 509  Weiter
Index
Autor Nachricht
  Thema: Tabellen in Formatvorlagen markieren 
Lisa

Antworten: 6
Aufrufe: 886

BeitragForum: Word VBA Programmierung (Makros)   Verfasst am: 12. Jun 2006, 16:11   Titel: AW: Tabellen in Formatvorlagen markieren
Hallo Gast,

das könnte dann etwa so gehen:
Sub TabellenKopieren()

Dim i As Integer
Dim myRange As Range
Dim Pfad As String
Dim DocName As String

Pfad = "C:\test\" 'Anpassbarer Pfad

For i = 1 To ActiveDocument.Tables.Count
With Selection
.GoTo What:=wdGoToTable, Count:=i
.MoveUp Unit:=wdParagraph, Count:=1
End With
If Selection.Style = "Überschrift 3" Then
Set myRange = ActiveDocument.Tables(i).Range
myRange.Copy
DocName = Selection.Text 'Hier wird der Überschriftentitel in die Variable gefüllt
'Hier weitere Handlungen, Kopieren ins neue Dokument usw.
End If
Next i

Set myRange = Nothing

With Dialogs(wdDialogFileSaveAs)
.Name = Pfad & DocName & ".doc"
.Show
End With

End Sub
Der gefun ...
  Thema: grafik in kopfzeile einfügen 
Lisa

Antworten: 5
Aufrufe: 1556

BeitragForum: Word VBA Programmierung (Makros)   Verfasst am: 12. Jun 2006, 16:06   Titel: AW: grafik in kopfzeile einfügen
Hallo Gast,

ja, das geht so:
If opbutton.Visible = True Then
If ActiveDocument.Bookmarks.Exists("grafik") Then
With ActiveDocument.Bookmarks("grafik").Range
.Delete
.InlineShapes.AddPicture FileName:="C:\test\tif", _
LinkToFile:=False, SaveWithDocument:=True
End With
End If
End If
  Thema: Textfelder nach Auswahl über Kontrollkästchen in neue Datei 
Lisa

Antworten: 4
Aufrufe: 1424

BeitragForum: Word VBA Programmierung (Makros)   Verfasst am: 11. Jun 2006, 22:09   Titel: AW: Textfelder nach Auswahl über Kontrollkästchen in neue Da
Hallo dk-team,

nur so zur Ergänzung: Du kannst die Textmarken direkt befüllen (ohne Umweg über Selection) mit der ReSetBookmark:
Sub ReSetBookmark(ByVal TMName As String, ByVal TMInhalt As String)
'Recycling-Textmarke mit übernommenen Werten, geht für alle Textmarken

Dim BM As Bookmark
Dim rng As Range

If ActiveDocument.Bookmarks.Exists(TMName) Then
Set BM = ActiveDocument.Bookmarks(TMName)
Set rng = BM.Range
rng.Text = TMInhalt
ActiveDocument.Bookmarks.Add TMName, rng
End If

Set rng = Nothing
Set BM = Nothing

End Sub
Die kannst du immer wieder verwenden. Vor allem geht sie auch in Kopf- und Fußzeile, in Tabellen und Textfeldern. Aufgerufen wird dann einfach so:
Call ReSetBookmark(TMName:="Marke1", TMInhalt:="blabla")
Call ReSetBookmark(TMName:="Marke2", TMInhalt:="Tütü")
usw.
  Thema: vba word summe textbox 
Lisa

Antworten: 23
Aufrufe: 4890

BeitragForum: Word VBA Programmierung (Makros)   Verfasst am: 11. Jun 2006, 22:04   Titel: AW: vba word summe textbox
Hallo namenloser Gast,

hier ist das gleiche Problem (oder ist der Beitrag auch von dir), jedenfalls habe ich da geantwortet:

[url=http://www.office-loesung.de/ftopic84650_0_0_asc.php#351611]Grafik in Kopfzeile einfügen
  Thema: grafik in kopfzeile einfügen 
Lisa

Antworten: 5
Aufrufe: 1556

BeitragForum: Word VBA Programmierung (Makros)   Verfasst am: 11. Jun 2006, 22:02   Titel: AW: grafik in kopfzeile einfügen
Hallo Gast,

das liegt daran, dass du mit der Selection arbeitest, die findet die Textmarke in der Kopfzeile nicht, dazu müsste erst in die Kopfzeile umgeschaltet werden. Besser, du befüllst gleich den Range der Textmarke. Das ist zuverlässig. Hier habe ich das Problem auch schon erläutert:

If opbutton.Visible = True Then
If ActiveDocument.Bookmarks.Exists("grafik") Then
ActiveDocument.Bookmarks("grafik").Range.InlineShapes.AddPicture _
FileName:="C:\test\tif", LinkToFile:=False, SaveWithDocument:=True
End If
End If
  Thema: Drucken & (Inline) Shapes bzw. CommandButtons ! 
Lisa

Antworten: 1
Aufrufe: 1156

BeitragForum: Word VBA Programmierung (Makros)   Verfasst am: 11. Jun 2006, 21:49   Titel: AW: Drucken & (Inline) Shapes bzw. CommandButtons !
Hallo Webmatrix,

doch das geht. Du kannst dafür die Eigenschaft Format - Zeichen - "Ausgeblendet" (in VBA Font.Hidden) verwenden, etwa so:
Sub Test()

Dim myInShape As InlineShape

If Options.PrintHiddenText = True Then
Options.PrintHiddenText = False
End If

For Each myInShape In ActiveDocument.InlineShapes
'Debug.Print myInShape.Type
If myInShape.Type = wdInlineShapeOLEControlObject Then
myInShape.Range.Font.Hidden = True
End If
Next myInShape

End Sub
Zuerst wird dafür gesorgt, dass ausgeblendeter Text nicht mit ausgedruckt wird. Dann wird durch InlineShapes geschleift und der Button "ausgeblendet". Kann man nach dem Drucken auch genauso wieder rückgängig machen.
  Thema: Führende Nullen bei Seitenzahl 
Lisa

Antworten: 1
Aufrufe: 2361

BeitragForum: Word Hilfe   Verfasst am: 09. Jun 2006, 10:49   Titel: AW: Führende Nullen bei Seitenzahl
Hallo Sabinette,

das geht mit geschachtelten Feldfunktionen so:
{ = { PAGE } \# \000 }
Alle geschweiften Klammern mit Strg F9 erzeugen, am Schluss das Feldergebnis mit F9 aktualisieren.
  Thema: Linie per vba bearbeiten 
Lisa

Antworten: 3
Aufrufe: 1312

BeitragForum: Word VBA Programmierung (Makros)   Verfasst am: 09. Jun 2006, 10:33   Titel: AW: Linie per vba bearbeiten
Hallo Daniel,

dazu müsste man wissen, was für eine Linie das ist. Wenn es eine gezeichnete Linie ist, die man "anfassen" und mit den Cursortasten verschieben kann, könnte man das etwa so mit VBA markieren:
ActiveDocument.Shapes(1).Select
Damit wird allerdings nur die 1. Shape "erwischt". Falls noch andere Elemente vorhanden sind, dann etwa so:
Sub Test()

Dim i As Integer

For i = 1 To ActiveDocument.Shapes.Count
If ActiveDocument.Shapes(i).Type = msoLine Then
ActiveDocument.Shapes(i).Select
End If
Next i

End Sub
  Thema: CommandBox NICHT drucken 
Lisa

Antworten: 3
Aufrufe: 4519

BeitragForum: Word VBA Programmierung (Makros)   Verfasst am: 09. Jun 2006, 10:28   Titel: AW: CommandBox NICHT drucken
Hallo Goeckelda,

ohne VBA geht es nicht automatisch, aber "zu Fuß". Du könntest das betreffende Element markieren und mit Format - Zeichen - Ausgeblendet formatieren.
Dann darauf achten, dass in Extras - Optionen - Ansicht die Option "Ausgeblendet" aktiviert ist (damit siehst du den Button auf dem Schirm) und in Extras - Optionen - Drucken die Option "Ausgeblendet" deaktiviert ist (damit der Button nicht ausgedruckt wird).
Natürlich lässt sich das auch in eine Druckprozedur einbauen, dann jedoch mit VBA.
  Thema: Probleme bei der Wordeinstellung Hilfe! 
Lisa

Antworten: 4
Aufrufe: 468

BeitragForum: Word Hilfe   Verfasst am: 08. Jun 2006, 10:34   Titel: AW: Probleme bei der Wordeinstellung Hilfe!
Hallo Goldslawik,

der Beitrag wird verschoben nach Word Hilfe.

Gruß, Lisa
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 07. Jun 2006, 11:07   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
4019
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 23:39   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
3907

Noch 20 Minuten - Endspurt!
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 23:31   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
3881
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 23:23   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
3863
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 23:14   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
3851

Na, dann mal Gas!
 
Seite 260 von 509 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 257, 258, 259, 260, 261, 262, 263 ... 503, 504, 505, 506, 507, 508, 509  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln