clusters

ja selber ordner, selber name nur wie gesagt eine is txt andere is jpg, dass is der einzige unterschied viele liebe grüße und eine tolle weihnachtswoche Julia

und wie mache ich, dass dann das passende bild hochgeladen wird? viele liebe grüße Julia

Danke für deine Frage Nein, das ist bei uns so im system hinterlgt. Eine einfache Textdatei und zu dieser Textdatei gibt es einfach eine Grafik mit dem selbem Namen bloß im jpg-format.

Hallo Community, ich habe in einem Word 2007 Dokument über VBA eine UserForm erstellt, in der eine Textdatei hochzuladen ist. Nun möchte ich, dass die zu der Textdatei passende Grafik automatisch mit hochgeladen wird. Beispiel: Meine Textdatei heißt XYZ.txt Die dazugehörige Grafig heißt XYZ.jpg (hat also den selben Namen wie die Textdatei) In meiner UserForm wählt nun der User eine hochzuladende Textdatei aus und ohne einen weiteren Klick wird die Grafik mit hochgeladen. Mein Problem ist nun, wie ich das mit der Grafik hinbekomme. Ich hoffe ich konnte mich leicht verständlich ausdrücken Danke Viele liebe Grüße Julia

Nun auch noch der Lösungsansatz zu meinem 2. Logo in der Kopfzeile: Selection.MoveDown Unit:=wdLine, Count:=16 If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.InlineShapes.AddPicture FileName:= _ "C:\Users\hebauf\Pictures\Kunde.jpg", LinkToFile:=False, _ SaveWithDocument :=True [COLOR="Green"]'Hier selbe Problem wie beim Deckblatt: das ist ein vorbestimmtes Logo, _ was muss hier hin, damit mein ausgesuchtes Logo eingebaut wird?[/COLOR] [COLOR="Green"] 'Hier fehlt die Formatierung, da das Logo kleiner ist!![/COLOR] ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Selection.MoveUp Unit:=wdLine, Count:=17 Auch mein Problem hier: Was muss ich einbauen, damit mein ausgewähltes Logo hochläd und nicht das vorbestimmte (Wie Deckblatt; siehe Kommentar oben) und Wie weise ich dem hochgeladenem Logo folgende Formatierung zu: -> Höhe 0.53 cm -> Breite 2.86 cm Ich hoffe, ich habe das ganze nicht zu umständlich formuliert oder so Viele Liebe Grüße Julia

Ich habe das ganze jetzt weitestgehend so gelöst (betrifft allerdings nur das Logo auf dem Deckblatt): Private Sub ButtonKundenlogo_hochladen_Click() 'Dialog zum öffnen des Kundenlogos With Dialogs(wdDialogFileOpen) .Name = "*.*" If .Display Then PathAndFileNameLogo = WordBasic.FileNameInfo(.Name, 1) End If End With If PathAndFileNameLogo = "" Then Exit Sub Selection.MoveDown Unit:=wdLine, Count:=5 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.InlineShapes.AddPicture FileName:= _ "C:\Users\hebauf\Pictures\Kunde.jpg", LinkToFile:=True, _ SaveWithDocument:=True Selection.MoveRight Unit:=wdCharacter, Count:=1 ' Pfadangabe des Logos in Textbox Pfad_gewähltes_Logo.Text = PathAndFileNameLogo End Sub Hier wird zusätzlich die Pfadangabe gemacht, allerdigns funktioniert noch nicht alles so wie es sollte, da ich im moment ein Logo vorbestimmt habe welches eingefügt wird. Siehe Zeile: ... Selection.InlineShapes.AddPicture FileName:= _ "C:\Users\hebauf\Pictures\Kunde.jpg" ... Wie bekomme ich es hin, dass mein vorher ausgewähltes Logo eingebaut wird?

Hallo Community, ich habe in einem Word-Dokument zwei Logos und möchte dieses gerne über eine UserForm durch ein anderes Logo ersetzen: Das erste Logo befindet sich auf dem Deckblatt und das 2. in der Kopfzeile des 2. Blattes beide sind die gleichen Logos und sollen so ersetzt werden, dass an beiden benannten Punkten ein und das selbe Logo hochläd. Nun ist mein Problem, dass ich mich leider nicht mit Vba auskenne und nicht weiß, wie ich das anstellen soll. Vielen lieben Dank für weitere Tipps und Hilfe Liebe Grüße Julia

brauche keine hilfe mehr! habe eine userform erstellt in der die dateieigenschaften gefüllt werden. trotzdem danke

Vielen lieben danke an euch ich habe das jetzt ganz einfach gemacht: Private Sub UserForm_Activate() UserForm1.TextBoxAutor.Value = Application.UserName 'Environ("Username") End Sub User wird sofort angezeigt und dient nur als "Vorschlag". Danke schön

Vielen vielen Dank für die zahlreichen Tipps Mein Code sieht jetzt Folgendermaßen aus: TextBoxAutor = Application.UserName 'TextBoxAutor = Environ("UserName") ActiveDocument.BuiltInDocumentProperties("Author").Value = TextBoxAutor.Text Ich habe TextBoxAutor = Environ("UserName") absichtlich kommentiert, weil ich nicht genau weiß was mein Chef will, ob den Word Username oder den aus dem System.. Die Usernamen sollten in einer Textbox ausgegeben werden, da sie nur als sozusagen einen "Vorschlag" dienen, sodass man auch einen anderen Namen eingeben kann. Das funktioniert bei mir nicht. Wie kann ich das hinbekommen? *edit: der User wird auch erst nach einem Klicken bzw. einer Zeicheneingabe eingefügt, ich möchte aber, dass das dort schon steht, wenn die UserForm sich öffnet ist das machbar?

wie mach ich das dann, das der das in einem textfeld angibt?

ok mr. genau;) ich weiß nicht wie ich das anstellen soll und habe deshalb auf ein wenig hilfe gehofft :confused:

Hallo community, ich habe in einem Word 2007 Dokument eine UserForm mittels VBA erstellt, in der der Autor angegeben werden muss. Nun möchte ich, dass diese UserForm automatisch aus dem System den Usernamen eines Benutzers ausließt und in einer kleinen Textbox angibt. dann habe ich noch eine 2. Frage (ich möchte nicht unbedingt noch ein weiteres Thema erstellen ) In meiner UserForm ist ein Firmenlogo, LogoXY. Nun möchte ich, dass dieses Logo als Platzhalter dient. Ziel ist es ein anderes Logo hochzuladen was an diese Stelle gesetzt wird. LogoXY wird ersetzt durch LogoAB. Wenn kein neues Logo hochgeladen wird, soll LogoXY weiter bestehen. Danke uns viele liebe Grüße aus Hofheim Julia

wow.. und schon wieder geholfen.. vielen lieben dank ich muss diese vba geschichte für meinen chef machen und kenne m,ich leider überhaupt nicht damit aus.. da kann ich jede hilfe gebrauchen das ist echt toll nochmals danke und hab eine schöne woche viele liebe grüße Julia

Hallo community, Ich möchte mittels eines Makros Schnellbausteine füllen. Die Schnellbausteine befinden sich bereits auf meinem Dokument und lauten: "Autor", "Titel", "Betreff" und "Schlüsselwörter". In meinen VBA-Code möchte ich nur die jeweiligen Daten eingeben müssen. (Also für den Schnellbaustein "Autor" z.B. Mr.XY) Könnt ihr mir sagen, wie ich das anstellen kann oder mir irgendwelche tipps geben? Ich kenne mich leider überhaupt nicht mir VBA aus Danke und viele liebe Grüße aus Hofheim Julia

Hallo community, ich habe einen VBA-Code im Internet gefunden welcher automatisch meine Worddatei aktualisiert. Um ihn besser verstehen zu können bräuchte ich kurz eure hilfe. Könnt ihr mir den vielleicht in Kommentaren Zeile für Zeile erklären? Das wäre echt sehr hilfreich. Hier ist der Code: Dim oStory As Range Application.ScreenUpdating = False Application.DisplayAlerts = wdAlertsNone For Each oStory In ActiveDocument.StoryRanges oStory.Fields.Update While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange oStory.Fields.Update Wend Next Application.DisplayAlerts = wdAlertsAll Application.ScreenUpdating = True Für jede Antwort bin ich dankbar Danke und viele liebe Grüße Julia

dann übertrage ich der Zeile einfach die selbe formatierung wie von "Kundennummer" und alles hat die gleiche formaierung danke dir du hast mir sehr weiter geholfen viele liebe grüße Julia

Vielen dank für deine antwort ja das sollte eigendlich zeile heißen hab mich de blöd vertippt irgendwie :upps hat soweit alles gut funtioniert^^ kann man jetzt noch irgendwie einstellen, dass nicht die zeile in der, der cursor steht formatiert wird, sondern die gesamte zeile in der "Kundennummer" steht?

hallo ich hab doch noch ein bisschen was heraus finden können, bräuchte aber immernoch eure hilfe. Die Schriftart fehlt mir noch z.B Arial und nach "Kundennummer" kommt ja noch ein weiterer Text Teil, der ist aber jeweils unterschiedlich und somit möchte ich meine formatierung auf die ganze zeite ausweiten und nicht nur auf "Kundennummer". Sub test() ' ' test Makro ' ' Dim Zeichen$(1) Zeichen$(1) = "Kundennummer" Selection.Find.Format = False Selection.Find.Replacement.ParagraphFormat.Alignment = wdAlignParagraphLeft Selection.Find.Replacement.Font.Size = 18 Selection.Find.Replacement.Font.Bold = False Selection.Find.Replacement.Font.ColorIndex = wdBlack For i = 1 To 1 With Selection.Find .Text = Zeichen$(i) .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll Next End Sub Danke und viele grüße Julia

ich würde mal auf so etwas tippen, wie: suche kundennummer -> mache Überschrift1 suche produkt -> mache Standard suche preis -> mache Kursiv aber wie gesagt ich weiß nicht wie das funktioniert und würde mich sehr über eine hilfe freuen nachmals grüße

hallo community, ich hab da ein kleines problem und vielleicht könnt ihr mir ja helfen. Ich habe einen Text in einer Editor-Textdatei und füge diesen in ein Word Dokument ein. Jetzt hätte ich gerne ein Makro, welches automatisch formatiert weiß aber nicht wie ich das machen soll. Meine Textdatei sieht ungefär so aus (Beispiel): Kundennummer #12345 Produkt Wahre xy Preis xx.yy€ Kundennummer soll z.B. Überschrift1, Produkt Standard und Preis Kursiv sein. Leider kenne ich mich nicht mit VBA aus und freue mich deshalb über jeden noch so kleinen Tipp eurerseits. Vielen lieben Dank und freundliche Grüße aus Hofheim Julia

ich wollte einfach nur ein paar ideen sammeln das ist alles jetzt werde ich ziemlich unfreundlich behandelt.. natürlich zeige ich eigeninitiative, ich kann bloß nichts genaueres sagen das ist das erste mal, dass ich so eine art hausarbeit schreibe, ich bin neu auf der schule, neue lehrer, ich habe einfach keine ahnung und deswegen wollte ich einfach nur ein paar vorschläge höhren und habe mich bei meinen klassenkameraden erkundigt..

ich habe keine stunden anzahl bekommen, nur dass das ganze bis januar fertig sein soll und welche richtung nach, dass ist egal, dass darf sich jeder selbst raussuchen

..das war jetzt aber nicht die antwort auf meine frage.. ich nannte das mit dem usb stick ja nur als beispiel, weil das einer aus meiner klasse machen will.. anderes beispiel? -das aufsetzen eines servers