VBA Document.Add / AttachedTemplate?

Ich habe von einen alten Arbeitskollegen der schon in Rente ist, ein VBA Projekt bekommen und verzweifle daran.

Das Projekt funktioniert ansich aber ich soll eine Funktion ändern:

Documents.Add Template:= _

"c:\word\Link.dot", _

NewTemplate:=False, DocumentType:=0

Hier wird ein neues Document erzeugt mit einem Template. Das Problem ist, dieses Template bezieht

auch noch Daten aus einen anderen Projekt "Common". Im Grunde wird mit "Documents.Add Template:= _"c:\word\Link.dot""

in Link.dot die Document_Open() ausgeführt und das Common Projekt initialsiert.

Private Sub Document_Open()

Common.Initialize

End Sub

Ich möchte aber nicht, das durch Documents.add ein 2. Document geöffnet wird, es soll das bereits aktive Dokument verwenden.

ich hab es mit diesen 2 Varianten bereits versucht:

Dim oDoc As Document

Set oDoc = ActiveDocument

oDoc.AttachedTemplate = "c:\word\Link.dot"

ActiveDocument.AttachedTemplate = "c:\word\Link.dot"

Leider passiert bei beiden, rein garnicht. Ich denke mal es liegt daran, das Document_Open() nicht ausgeführt wurde. Weiß jemand einen Rat?

1 Antwort

Ceeesy759

02.02.2022, 13:58

Benutz nächstes mal doch bitte die Code-Funktion im Editor oder lade es auf eine Seite wie beispielsweise https://pastebin.com/ hoch.

Vielleicht hilft dir "documents.open" weiter.

Ceeesy759

05.02.2022, 20:48

Versuch mal

Dim doc as Word.Document
Set doc = WordApp.Documents.Add(Template:=strTemplate, NewTemplate:=True)

bzw. den Parameter "NewTemplate:=False"

Ähnliche Beiträge

Laufzeitfehler 1004: Funktion SaveAs?

Hallo,

Ich bin noch Newbie in VBA und versuche mich gerade selbst daran. Beim Abspeichern der Datei erhalte ich jedoch eine Fehlermeldung (Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen. Könnt ihr mir sagen, was ich hier falsch mache?

Gerne auch Kritik und Anregungen zum Code. LG Syrena

Sub Bericht()

    'Datei öffnen und einfügen
    '-----------------------------------------------------------------
    Dim Liste As Workbook
    Dim Template As Workbook
    Dim Dati As Variant
    Set Template = ActiveWorkbook
    Dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
    Set Liste = Workbooks.Open(Filename:=Dati)
    Liste.Sheets("Tabelle1").Columns("A:E").Copy
    Windows(Template.Name).Activate
    Columns("A:E").Select
    ActiveSheet.Paste
    Workbooks(Liste.Name).Close savechanges:=False
   
   
    'Neue Datei öffnen und abspeichern
    '--------------------------------------------------------------------
    Dim Projektbericht As Workbook
    Set Projektbericht = Workbooks.Add
    Dim Speicherpfad As String, Titel As String
    Speicherpfad = "C:\ "
    Titel = "Bericht"
    Projektbericht.SaveAs Filename:=Speicherpfad & Format(Date, "YYYY-MM-DD") & Titel

End Sub

...zum Beitrag

MS-Word VBA selection ausblenden

Hallo zusammen

Ich möche in Word mit VBA folgendes Bewerkstelligen:

Ein bestimmter Bereich soll je nach Wahl von Radio Buttons aus-und wieder eingeblendet werden können. Der Bereich enthält vor allem Formularsteuerelemente.

Ich bin schon soweit, dass ich ihn löschen kann, aber ich muss ihn je nach Wahl der Radio-Buttons auch wieder einblenden könne, darum geht löschen nicht.

Es geht also um die Eigenschaft von Selection.

Hier mein Code:

Private Sub OptionButton1_Click()
    'Kopierschutz auflösen
    ActiveDocument.Unprotect
        'Auswahltreffen und löschen
        Dim rngParagraphs As Range
        Set rngParagraphs = ActiveDocument.Range( _
            Start:=ActiveDocument.Bookmarks("ftxt1").Range.Start, _
            End:=ActiveDocument.Bookmarks("ftxt13").Range.End)
        rngParagraphs.Select
    
        Selection.Delete
        
    'Kopierschutz erstellen
    ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True

End Sub

Private Sub OptionButton2_Click()
    'Kopierschutz auflösen
    ActiveDocument.Unprotect
        'Auswahltreffen und löschen
        Dim rngParagraphs As Range
        Set rngParagraphs = ActiveDocument.Range( _
            Start:=ActiveDocument.Bookmarks("ftxt1").Range.Start, _
            End:=ActiveDocument.Bookmarks("ftxt13").Range.End)
        rngParagraphs.Select
    
        Selection.
        
    'Kopierschutz erstellen
    ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True
    
End Sub

...zum Beitrag

Word VBA, beforePrint?

EDIT: bereits kurz nach Fragestellung selbst gelöst mit cancel =true nach Print background.... Verzeihung, war in der Arbeit und konnte erst jetzt eure Antworten sehen. Trotzdem vielen Dank!

Hallo zusammen.

Ich würde gerne einen commandButton kurz vor dem Drucken verkleinern und nach dem Drucken wieder groß anzeigen. Leider wird das Dokument zweimal ausgedruckt.

es soll beim normalen drucken passieren.

der befehl für das Druck event:

Private Sub appWord_DocumentBeforePrint _
 (ByVal Doc As Document, _
 Cancel As Boolean)
CommandButton1.Height = 0.75
CommandButton1.Width = 0.75
CommandButton2.Height = 0.75 CommandButton2.Width = 0.75


ActiveDocument.PrintOut Background:=False


CommandButton1.Height = 24 CommandButton1.Width = 100 CommandButton1.PicturePosition = fmPicturePositionRightTop

CommandButton2.Height = 24
CommandButton2.Width = 461
  End Sub

Das intializieren

Private Sub Document_New()
Set appWord = Word.Application
End Sub
' Private Sub Document_Open() Set appWord = Word.Application

End Sub

...zum Beitrag

Wie kann ich einen Tannenbaum mit * in VBA Excel programmieren?

Hallo.

Ich will einen Tannenbaum mit * erstellen, aber schaffe es nur so:

Das Problem ist, dass er von links nach rechts wie eine halbe Pyramide ist. Ich möchte aber, dass er wie eine echte Tanne aussieht. Also das erste Sternchen * oben mittig, dann in der nächsten Reihe wieder mittig, usw..

Ich weiß nur, dass man irgendwie mit Leerstrings arbeiten muss. Es soll auf jeden Fall am Ende wie ein Baum oder eine Pyramide sein. Danke.

Bisher habe ich diesen Code:

Private Sub tannenbaummodel()
  Dim n
  Dim a
  Dim zweig As String
  
  For n = 1 To 5
    zweig = ""

    For a = 1 To n
      zweig = zweig & ""
    Next

    Debug.Print zweig
  Next
End Sub

...zum Beitrag

Word VBa Initialize funktioniert nicht?

Das ist mein Code:


Private Sub ComboBox1_Initialize()

  ComboBox1.AddItem "weisungsbefugt "
  ComboBox1.AddItem "Meier"
  ComboBox1.AddItem "Schmitz"
  ComboBox1.AddItem "Weber"
  ComboBox1.AddItem "Mustermann"

  .ListIndex = 1 'Vorbelegung


End Sub





Private Sub ComboBox1_Change()
    


    Dim sPfad As String


    Inhalt = get_Word_ContenField_as_Text("DropBox1")


    MsgBox Inhalt


    Exit Sub


End Sub

Nur leider funktioniert der Initilialize Teil einfach nicht und ich weiß nicht was ich falsch mache? Ich bitte um Hilfe. Danke!

...zum Beitrag

Excel VBA IsNumeric?

Hallo!

Ich arbeite gerade mit VBA und habe folgendes Problem:

Ich habe ein Eingabefeld und möchte, dass das Programm nur weiterläuft, wenn drei Bedingungen erfüllt sind. Es soll sich um eine Zahl handeln, sie soll ganzzahlig sein und größer gleich Null.

Ich habe folgendes zusammengebastelt:

Dim Zahl As Variant

start:

Zahl = InputBox("Zahl eingeben")

If Anzahl <= 0 Or IsNumeric(Zahl) = False Or Int(Anzahl) = False Then

MsgBox ("Zahl muss ganzzahlig und größer als 0 sein. Bitte erneut eingeben.")

GoTo start

Mit der ersten Bedingung klappt noch alles so wie es soll. Wenn ich einen Buchstaben eingebe, kommt eine Fehlermeldung und wenn ich keine ganzzahlige Zahl eingebe, läuft es einfach weiter.

Ich habe keine Erfahrung mit VBA und hoffe, dass mir jemand meinen Fehler erklären kann.

Vielen Dank schon Mal!

...zum Beitrag

VBA Dezimal in Binär?

Hallo,

ich soll mit VBA ein Programm schreiben, welches eine beliebige Dezimalzahl in eine Binärzahl umwandeln kann. Das Prinzip dahinter habe ich verstanden, allerdings scheitert es noch an der Umsetzung. Als Beispielzahl habe ich hier die 17 verwendet.

Sub vba_dezbi()

Dim ergebnis As Integer

Dim zahl As Integer

Dim rest As Integer

Dim lv(1 To 566) As Integer

zahl = 17

Do While zahl > 0

rest = zahl Mod 2 & rest

zahl = zahl / 2

. . .

Loop

MsgBox(...)

End Sub

Ich habe herausgefunden, dass man hierfür Felder(Arrays) benutzen muss, allerdings komme ich damit auch nicht viel weiter... Ich hoffe, dass mir jemand helfen kann und weiß, was ich anstatt "..." schreiben muss.

...zum Beitrag

Mit C# Word-Dokument bearbeiten ohne dass Word sich öffnet?

Hallo, ich versuche gerade ein docx-Dokument zu bearbeiten, das hier ist mein Code:

using Microsoft.Office.Interop.Word;
[...]
Application wordApp = new Application();
wordApp.Visible = false;
Document wordDoc = wordApp.Documents.Open([pfad], ReadOnly: false, Visible: false);
wordDoc.Activate()
Range rng = wordDoc.Range(0, 2);
            rng.Text = "Some Text";
wordApp.Documents.Save(NoPrompt: true, OriginalFormat: true);
wordApp.Documents.Close(SaveChanges: true, OriginalFormat: false, RouteDocument: false);
Console.WriteLine("Finished");
Console.ReadLine();

Aber obwohl ich die Visible-Vairable auf false gesetzt habe, öffnet sich Word. Nicht normal, sondern so:

Kann mir da jemand helfen?

...zum Beitrag

Word VBA Textmarken Text ersetzen?

Hallo zusammen,

ich arbeite gerade an einer UserForm, mittels welcher der User Daten zu einer Person eingeben kann, welche automatisch ins Dokument eingefügt werden.

Sollstnad : "Name : Hans Peter" und sobald das Makro nochmal ausgeführt wird, soll Hans Peter z.B. durch Michale Maier ersetzt werden.

Jedoch sieht das beim zweiten Ausführen des Makros so aus : "Name : Hans PeterMichael Maier"

Also die eingabe wird hinter die erste Eingabe gesetzt, statt sie zu erseten

Mein code :

Private Sub CB_Submit_Click()

Dim v_Name As Range

Set v_Name = ActiveDocument.Bookmarks("BS_Name").Range

v_Name.Text = Me.TB_Name.Value

UserForm.Hide

End Sub

Danke schonmal für eure Antworten :)

...zum Beitrag

Tabellen mit vba nebeneinander anstatt untereinander anordnen?

Hallo,

ich habe bereits meine Excel-Arbeitsmappe bestehend aus 250 Seiten mit jeweils 2Spalten und 250 Zeilen via vba zusammengeführt.

Allerdings wird dabei alles untereinander dargestellt und nicht nebeneinander. Kann man es so machen, dass sobald ein Worksheet abgearbeitet wurde und angezeigt wird, das nächste daneben in der Spalte beginnen lässt und immer so weiter.

Gibt es Möglichkeiten dort eine Art „Cut“ zu machen?

Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Gesamt"
For i = 2 To Worksheets.Count
 With Worksheets(i).UsedRange
 strLC = .Cells(.Rows.Count, .Columns.Count).Address
 Set Bereich = .Range("A1:" & strLC)
 Bereich.Copy Destination:= _
 Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
Next i
End Sub

...zum Beitrag

VBA for-schleife: Leere Zeilen überspringen?

Hallo! Ich habe mir in Excel mit VBA eine Schleife gebastelt zur Zielwertsuche. Da ich VBA sonst nie brauche möchte ich hierfür nicht erst VBA lernen. Daher hier meine Frage ob mir hier jemand helfen kann. Es geht um folgendes Skript. Dieses macht Probleme wenn zwischen den Zeilen Leerzeilen sind (Fehler 400). Kann man das irgendwie verhindern? Die leeren Zeilen z.B. überspringen?

Vielen Dank!

Sub PreisBerechnung()
Dim IntZeile As Integer
For IntZeile = 4 To 199
Cells(IntZeile, 33).GoalSeek Goal:=2.5, ChangingCell:=Cells(IntZeile, 26)

Next
End Sub

...zum Beitrag

VBA Counter Problem?

Hallo Zusammen,

ich hab ein Problem in VBA. Ich muss bei jedem klicken auf Raten den counter +1 erhöht werden. Leider ergibt sich bei mir eine Endlos-Schleife. Brauche Hilfe.

Private Sub btnRaten_Click()
Dim Userzahl As Integer 'Eingegebene Zahl
Dim PCzahl As Integer 'Zufallszahl
Dim anzahl As Integer
Dim Ende As Boolean


anzahl = 0


PCzahl = Int((Rnd() * 100) + 1)


Userzahl = Val(tbxEingabe.Value)


Ende = False


Do Until Ende = True


anzahl = anzahl + 1


If Userzahl < PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu klein"
Ende = False


ElseIf Userzahl > PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu groß"
Ende = False


ElseIf Userzahl = PCzahl Then
lblAusgabe = "Gewonnen!"
Ende = True


End If


lblCounter.Caption = anzahl
Loop


End Sub

Danke für eure Hilfe.

...zum Beitrag

VBA UserForm KeyDown Sonderzeichen werden nicht erkannt?

Hallo, ich habe eine Frage zu meinem VBA Code. Und zwar sollen verschiedene Tastatureingaben verschiedene Funktionen triggern. Bei Zahlen, Buchstaben, Plus, Minus, "&"-Zeichen, "!"-Zeichen und einige andere Tasten gehen. "*"-Zeichen, Prozent, "(" und ")" bspw. gehen jedoch NICHT (als KeyCode wird 0 zurückgegeben). Hat jemand eine Ahnung woran das liegt?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  handleKeyDown KeyCode, Shift
End Sub

Private Sub handleKeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim keyChar As String * 1
  keyChar = Chr(KeyCode)
  MsgBox (KeyCode)
  Select Case keyChar
  Case "0"
    numb0_Click
  Case "1"
    numb1_Click
  '.....
  Case Else
  End Select
  Select Case KeyCode
  Case "187"
    plus_Click
  '....
  Case Else 
  End Select
End Sub

Danke für alle Antworten,

Nicolas

...zum Beitrag

Cell Value bzw. Zellen Inhalt ändern über Function in VBA?

Hallo Zusammen, kann mir jemand sagen wie ich mithilfe einer Function in Excel VBA den Inhalt einer Zelle ändern kann? Ich habe hier ein kleines Beispiel, während der Code in einem Sub scheinbar ohne Probleme ausgeführt wird, scheint dieser in einer Function zum Abbruch zu führen.

Vielen Dank für jede Antwort im Voraus!

Gruß Leo

Beispiel:

Sub Test()

ActiveCell.Offset(1, 1) = "1"

End Sub

Function Test()

ActiveCell.Offset(1, 1) = "1"

End Function

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen