clusters
-
Gesamte Inhalte
100 -
Benutzer seit
-
Letzter Besuch
Inhaltstyp
Profile
Forum
Downloads
Kalender
Blogs
Shop
Beiträge von clusters
-
-
Ok hier habe ich einen "Lösungsansatz":
Private Sub ButtonVorwort_öffnen_Click() [COLOR="Green"]'Dialog zum öffnen einer Worddatei[/COLOR] With Dialogs(wdDialogFileOpen) .Name = "*.*" If .Display Then PathAndFileName_Vorwort = WordBasic.FileNameInfo(.Name, 1) End If End With If PathAndFileName_Vorwort = "" Then Exit Sub [COLOR="Green"]' Pfadangabe in Textbox[/COLOR] Pfad_gewähltes_Vorwort.Text = PathAndFileName_Vorwort [COLOR="Green"]'Zu Anfang des Dokuments springen[/COLOR] If erw = False Then Selection.HomeKey Unit:=wdStory, _ Extend:=wdMove _ Else Selection.HomeKey Unit:=wdStory, Extend:=wdExtend [COLOR="Green"]'Cursor platzieren[/COLOR] Selection.MoveDown Unit:=wdLine, Count:=38 Documents.Open FileName:=PathAndFileName_Vorwort, _ ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", Revert:=False, _ WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _ wdOpenFormatAuto, XMLTransform:="" Selection.WholeStory Selection.Copy Windows("SAP_Workflow_Dokumentation_iXLOG").Activate Selection.PasteAndFormat (wdPasteDefault) [COLOR="Green"]'Hier brauche ich hilfe[/COLOR] Windows[COLOR="Indigo"][U]("Dokument XY")[/U][/COLOR].Activate ActiveWindow.Close End Sub"Dokument XY" ist nur ein Beispiel: Was muss ich bei der ZeileWindows("Dokument XY").Activatean der Stelle("Dokument XY")eingeben, damit dies veralgemeinert wird, sprich dass das Dokument angewählt wird, das ich vorher geöffnet haben und nicht "Dokument XY"?
-
Hallo community,
Ich habe ein mehr oder weniger kleines Problem:
Ich habe ein geöffnetes Word 2007 Dokument in dem ich mein Makro starte.
Nun öffnet sich eine User-Form in der eine andere Worddatei ausgewählt werden kann, um deren Inhalte mit in mein Dokument aufzuführen.
Dabei sollen folgende Schritte eingeleitet werden:
Dokument öffnen -> Gesamten Text kopieren -> Dokument schließen -> Text in mein bestehendes Dokument einfügen
Ich kenne mich leider nicht so gut mit VBA aus
Bei weiteren fragen meldet euch einfach.
Ich hoffe ihr könnt mir Helfen, freue mich schon über eure Nachrichten und nehme mir jeden Lösungsversuch zu Herzen.
Viele liebe Grüße und ein schönes Wochenende
Julia
-
danke dir, das werde ich mal ausprobieren
-
ja aber gerne doch!^^
' Dialog um Datei auswählen
With Dialogs(wdDialogFileOpen)
.Name = "*.*"
If .Display Then
PathAndFileName = WordBasic.FileNameInfo(.Name, 1)
End If
End With
If PathAndFileName = "" Then Exit Sub
' Pfadangabe in Textbox
Pfad_gewählte_Datei.Text = PathAndFileName
Mit diesem Code kann man eine Textdatei in ein Worddokument hochladen und es wird zugleich in der UserForm eine Pfadangabe gemacht.
Danke für deine Hilfe
Mit freundlichen Grüßen
Julia
-
ja genau die idee hatte ich am anfang auch.
bloß wie stelle ich das an.. an der umsetzung haperts^^
hab noch nicht viel mit vba zu tun gehabt und deshalb kaum erfahrung
mit freundlichen grüßen
Julia
-
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:=17Auch 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 SubHier 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 SubUser 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.TextIch 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 = TrueFü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 SubDanke und viele grüße
Julia
VBA - Dokument öffnen, Text kopieren, Dokument schließen und einfügen in Dokument
in Basic
Geschrieben
Das hab ich jetzt nun auch geklärt..
hier nun der Code:
Private Sub ButtonVorwort_öffnen_Click() [COLOR="Green"]'Dialog zum öffnen einer Worddatei[/COLOR] With Dialogs(wdDialogFileOpen) .Name = "*.*" If .Display Then PathAndFileName_DokumentB = WordBasic.FileNameInfo(.Name, 1) PathAndFileName_DokumentB2 = WordBasic.FileNameInfo(.Name, 2) End If End With If PathAndFileName_DokumentB = "" Then Exit Sub If PathAndFileName_DokumentB2 = "" Then Exit Sub [COLOR="Green"]' Pfadangabe in Textbox[/COLOR] Pfad_gewähltes_Vorwort.Text = PathAndFileName_DokumentB [COLOR="Green"]'Zu Anfang des Dokuments springen[/COLOR] If erw = False Then Selection.HomeKey Unit:=wdStory, _ Extend:=wdMove _ Else Selection.HomeKey Unit:=wdStory, Extend:=wdExtend [COLOR="Green"] 'Cursor platzieren[/COLOR] Selection.MoveDown Unit:=wdLine, Count:=38 [COLOR="Green"] 'Dokument öffnen[/COLOR] Documents.Open FileName:=PathAndFileName_DokumentB, _ ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", Revert:=False, _ WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _ wdOpenFormatAuto, XMLTransform:="" [COLOR="Green"]'Kopieren und in Dokument A einfügen[/COLOR] Selection.WholeStory Selection.Copy Windows("Dokument A").Activate Selection.PasteAndFormat (wdPasteDefault) [COLOR="Green"]'Zu Dokument B springen[/COLOR] Windows(PathAndFileName_DokumentB2).Activate [COLOR="Indigo"] ActiveWindow.Close[/COLOR] End SubLeider doch noch ein kleines Problem: Er führt den Befehlnicht aus.
Ist da was falsch?