MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Office - Allgemein
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 04.05.2018, 14:28   #16
StevenRott
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Supppperrrr!

Hallo Gerhard,

das sieht ja schon super aus....besteht die Möglichkeit das Datum mittig zu setzen und vielleicht noch mit Tagesangabe, also Montag oder Dienstag etc.....und dan das Datum vor den Uhrzeiten wegzunehmen ??? Das wäre ja ganz prima !!!

Kann ich irgendwie schnell erkennen, wo ich in meinem Quelldokument die von dir geschilderten Fehlerquellen habe ?? Also Leerzeilen (gut die finde ich) aber die Absätze....gibt es da eine einfach "Fehlersuche", damit ich mein Quelldokument bereinigen kann ?? Es ist halt ziemlich groß.....

Für die Einbindung von Sounds und Videos......da bin ich ja echt schon drauf gespannt !!!:-))

Vielen vielen.....vielen lieben Dank für Deine Geduld, Deine Mühe und vor allem Deine Zeit, in der du mir so hilfreich zur Seite stehst.....ud ich lerne gerade unglaublich viel....

Liebe Grüße

Steven
StevenRott ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2018, 10:04   #17
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Steven,

schnell mal zwischendurch:

Für die Suche nach "falschen" Absätzen kannst du das Folgende Makro auf das Quelldokument anwenden (noch bevor die anderen Makros in Aktion treten). Es basiert auf dem Umstand, dass jeder "richtige" Absatz mit einem Datum beginnen muss und hebt die "falschen" farblich hervor. In Ordnung bringen musst du das dann manuell.
Code:

Private Sub FalscheAbsätzeRaus()
Dim i As Long
Dim istDatum As Variant

Set oDoc = ThisDocument 'dies ist das Quelldokument

    With oDoc
        For i = 1 To .Paragraphs.Count
            istDatum = Left(.Paragraphs(i), 10)
                
                If Not IsDate(istDatum) Then
                    .Paragraphs(i).Range.Font.Bold = True
                    .Paragraphs(i).Range.Font.ColorIndex = wdBrightGreen
                End If
        Next i
    End With

End Sub

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2018, 23:39   #18
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo nochmal,

im Anhang das um die Makros VideosEinfuegen und FehlendeVideosRot ergänzte Musterdokument.

Die zu findenden Videos beginnen in diesen Makros mit vid- und haben das Format mp4 (wenn du ein anders Format hast, musst du ausprobieren, ob Word dieses Format einbinden kann oder die Videos konvertieren).

Es gibt ein paar Merkwürdigkeiten, die ich nicht steuern kann; die ersten beiden passieren auch, wenn man ein Video händisch einfügt (Einfügen > Objekt > Aus Datei)
  • Ich kann nirgends erkennen, dass ein Video verknüpft eingefügt wurde, obwohl die Option angehakt ist. Wenn du sehr viele Videos hast, könnte dein Dokument ordentlich groß werden.
  • Die Videos werden immer als Symbol eingefügt, egal was man dort im Dialogfeld anhakt.
  • Obwohl ich die Zeile On Error Resume Next eingebaut habe, gibt es eine Fehlermeldung, wenn ein Video nicht gefunden wird. Die kannst du aber einfach mit OK bestätigen und es geht weiter; der Videoname wird dann analo zum Bild-Makro trotzdem rot gefärbt.
Angehängte Dateien
Dateityp: docm quelle_v3.docm (51,5 KB, 1x aufgerufen)

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.05.2018, 12:58   #19
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo schon wieder,

es gäbe die Alternative, Videos als Hyperlinks einzubinden statt als Objekt. Vorteil wäre: Das Dokument bliebe schlank.

Nachteile sind:
  • Es gibt eine Standard-Warnmeldung, wenn man auf einen Hyperlink klickt. Man kann sie offenbar nur durch einen Eingriff in die Registry unterdrücken ( https://support.microsoft.com/de-de/...007-office-pro ). Das müsstest du dann pro Rechner tun, auf dem die Makros laufen sollen. Da die Warnmeldung nur nervig, aber nicht schädlich ist kannst du sie auch einfach ertragen.
  • Ich hab noch keine Möglichkeit gefunden, nicht existierende Videos zu kennzeichnen. Das müsstest du "zu Fuß" untersuchen.

Hier das (komplett auszutauschende) Makro:
Code:

Sub videosEinfuegen()
Dim pfad As String
Dim suchbereich As Range, fundbereich As Range

'später wieder raus
Set oTable = ActiveDocument.Tables(1)

pfad = "F:tempstevenRottmedia" '***Anpassen
Set suchbereich = ActiveDocument.Range

ClearFindnReplace
    With suchbereich.Find
        .MatchWildcards = True
        .Text = "vid-*.mp4"

            Do While .Execute = True
               Set fundbereich = suchbereich
               On Error Resume Next
MsgBox fundbereich.Text
                ActiveDocument.Hyperlinks.Add Anchor:=fundbereich, Address:= _
                pfad & fundbereich.Text, TextToDisplay:=fundbereich.Text
                
                suchbereich.SetRange Start:=fundbereich.Rows(1).Range.End, _
                End:=oTable.Range.End
                suchbereich.Select
             Loop
    End With

End Sub

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.05.2018, 06:37   #20
StevenRott
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Sorry.....

Hallo gerhard,

sorry, aber irgendwie hat mich das Forum nicht erinnert, dass es neue Beiträge gibt, deshalb habe ich dienen Post erst jetzt gelesen....ich werde mir das Dokument heute mal anschauen.....und darf ich dir dann wieder Rückmeldung geben ?? Das wäre supertoll....

Ganz liebe Grüße

Steven
StevenRott ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.05.2018, 18:15   #21
StevenRott
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Super...

Hallo Gerhard, das ist ja schon prima...jetzt wäre es noch klasse, wenn die Zwischenüberschriften mittig stehen würden und der Tag noch dvor stehen könnte, also zum Beispiel "Freitag, 18.05.2018"......
Dann habe ich noch das Problem mit den Audio-Datein......aber ich bin mir sicher, dass du das auch noch hinbekommst....und dan auch noch mit den Smilies......

Ich bin Dir wirklich herzlich dankbar für Deine Hilfe....

Liebe Grüße

Steven
StevenRott ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.06.2018, 13:01   #22
StevenRott
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Was neues ??

Hallo Gerhard,

gibt es was Neues ??:-))

Liebe Grüße

Steven
StevenRott ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 24.06.2018, 12:27   #23
StevenRott
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Neuigkeiten ??

Hallo Gerhard,

gibt es denn schon was Neues ?? Könntest du mir noch ein wenig weiterhlefen ??:-)

Liebe Grüße

Steven
StevenRott ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.06.2018, 11:47   #24
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Steven,

ich hatte auf eine Antwort von dir gewartet, ob du zum Einbinden die Variante "als Objekt" oder "per Hyperlink" genommen hast.

Und weil nichts kam, verlor ich die Geschichte aus den Augen. Sag doch bitte noch Bescheid. Derweil versuch ich, mich wieder reinzufinden.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.06.2018, 11:55   #25
StevenRott
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Super....

Hallo gerhard,

ich nehme die Einbettung als Objekt, obwohl das Dokument dann recht groß werden kann.....:-))

Vielen lieben Dank für deine Hilfe,

Steven
StevenRott ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.06.2018, 15:19   #26
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Steven,

dann hier mal eine Erweiterung des Bisherigen mit eingebetteten Videos, Sounds und zentrierten Datums.

Die Sounds müssen mit PPT- beginnen und das Format .mp3 haben.
Angehängte Dateien
Dateityp: docm quelle_v4.docm (53,6 KB, 2x aufgerufen)

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.06.2018, 16:28   #27
StevenRott
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Fantastsich !!

Hallo Gerhard, das ist fantastisch.....jetzt genau so wollte ich es haben.....jetzt fehlt nur noch das Esretzen der Smilies....:-))

Du bist der BESTE !!!:-)

grüße

Steven
StevenRott ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.07.2018, 13:08   #28
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Steven,

sorry, bei den Smilies passe ich.

Weder weiß ich genau, was du da willst, noch kann ich nachvollziehen, was TomTom da in dem Referenz-Thread gebastelt hat.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:45 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.