none
Frage: Wie kann ich aus einer textdatei (txt) den text auslesen und in ein Word einfügen RRS feed

  • Frage

  • Frage: Wie kann ich aus einer textdatei (txt) den text auslesen und in ein Word einfügen ??

    Freitag, 18. Januar 2013 06:35

Antworten

  • Beide Teile deiner Frage kannst du dir selbst beantworten wenn du die Suchfunktion in diesem Forum benutzt!

    Du machst hier eine Frage nach der anderen auf, ohne in den Threads die Kommunikation aufrecht zu erhalten.
    Es ist schon ärgerlich: da investiert man Zeit und Mühe, schreibt eine Antwort auf eine Frage und der Fragende bedankt sich noch nicht mal und meldet sich auch nicht zurück.
    Bitte denk dran: Die Benutzer in diesem Forum sind freiwillig hier, um dir zu helfen und dich zu unterstützen, wenn man sich unfreundlich verhält, wird man nicht mehr unterstützt!

    Bitte lies zuerst mal das hier:
    http://social.technet.microsoft.com/Forums/de-DE/powershell_de/thread/7d711eeb-14a8-4f97-a824-ce5a89929f29


    Please click “Mark as Answer” if my post answers your question and click “Vote As Helpful” if my Post helps you.
    Bitte markiere hilfreiche Beiträge von mir als “Als Hilfreich bewerten” und Beiträge die deine Frage ganz oder teilweise beantwortet haben als “Als Antwort markieren”.
    My PowerShell Blog http://www.admin-source.info
    [string](0..21|%{[char][int]([int]("{0:d}" -f 0x28)+('755964655967-86965747271757624-8796158066061').substring(($_*2),2))})-replace' '
    German ? Come to German PowerShell Forum!

    • Bearbeitet Peter Kriegel Freitag, 18. Januar 2013 06:55
    • Als Antwort markiert ITSMEPRIME Freitag, 18. Januar 2013 06:55
    Freitag, 18. Januar 2013 06:54
  • Das mit dem Abgabetermin und dem Stress verstehe ich, deshalb bin ich auch nicht unfreundlich geworden ;-)

    Falls du es nicht gefunden hast...

    Text in Word einfügen:

    $word = New-Object -comobject Word.Application
    $dokument=$word.Documents.Open('C:\temp\wordtest.docx')
    $word.Selection.TypeText("Willkommen in der Word World!")
    $dokument.Save()
    # Optional!:   $dokument.saved = $True
    $dokument.Close()
    $word.quit()

    und .txt Datei auslesen (hatten wir schon):

    $Text = Get-Content 'C:\temp\test.txt'

    Für eine Word COM Automations-Referenz nutze dieses Dokument:
    http://msdn.microsoft.com/en-us/library/aa272097%28v=office.11%29.aspx


    Please click “Mark as Answer” if my post answers your question and click “Vote As Helpful” if my Post helps you.
    Bitte markiere hilfreiche Beiträge von mir als “Als Hilfreich bewerten” und Beiträge die deine Frage ganz oder teilweise beantwortet haben als “Als Antwort markieren”.
    My PowerShell Blog http://www.admin-source.info
    [string](0..21|%{[char][int]([int]("{0:d}" -f 0x28)+('755964655967-86965747271757624-8796158066061').substring(($_*2),2))})-replace' '
    German ? Come to German PowerShell Forum!

    • Als Antwort markiert ITSMEPRIME Freitag, 18. Januar 2013 07:40
    Freitag, 18. Januar 2013 07:34

Alle Antworten

  • Beide Teile deiner Frage kannst du dir selbst beantworten wenn du die Suchfunktion in diesem Forum benutzt!

    Du machst hier eine Frage nach der anderen auf, ohne in den Threads die Kommunikation aufrecht zu erhalten.
    Es ist schon ärgerlich: da investiert man Zeit und Mühe, schreibt eine Antwort auf eine Frage und der Fragende bedankt sich noch nicht mal und meldet sich auch nicht zurück.
    Bitte denk dran: Die Benutzer in diesem Forum sind freiwillig hier, um dir zu helfen und dich zu unterstützen, wenn man sich unfreundlich verhält, wird man nicht mehr unterstützt!

    Bitte lies zuerst mal das hier:
    http://social.technet.microsoft.com/Forums/de-DE/powershell_de/thread/7d711eeb-14a8-4f97-a824-ce5a89929f29


    Please click “Mark as Answer” if my post answers your question and click “Vote As Helpful” if my Post helps you.
    Bitte markiere hilfreiche Beiträge von mir als “Als Hilfreich bewerten” und Beiträge die deine Frage ganz oder teilweise beantwortet haben als “Als Antwort markieren”.
    My PowerShell Blog http://www.admin-source.info
    [string](0..21|%{[char][int]([int]("{0:d}" -f 0x28)+('755964655967-86965747271757624-8796158066061').substring(($_*2),2))})-replace' '
    German ? Come to German PowerShell Forum!

    • Bearbeitet Peter Kriegel Freitag, 18. Januar 2013 06:55
    • Als Antwort markiert ITSMEPRIME Freitag, 18. Januar 2013 06:55
    Freitag, 18. Januar 2013 06:54
  • Srry wegen der unfreundlichkeit :s 

    Sicherlich sollte man sich für diese Antworten immer bedanken ist eigentlich auch nicht meine art bin aber immoment einwenig im stress mein projekt fertigzukriegen da ich es Dienstag abgeben muess und Dokus schreiben muss und testprotocolle und den code erweitern und ausbauen sollte 

    Aber ich bedanke mich bei dir Perter für die super hilfen hast mir echt schooon richtig gut weiter geholfen und srry nochmall :S  

    Freitag, 18. Januar 2013 06:58
  • Das mit dem Abgabetermin und dem Stress verstehe ich, deshalb bin ich auch nicht unfreundlich geworden ;-)

    Falls du es nicht gefunden hast...

    Text in Word einfügen:

    $word = New-Object -comobject Word.Application
    $dokument=$word.Documents.Open('C:\temp\wordtest.docx')
    $word.Selection.TypeText("Willkommen in der Word World!")
    $dokument.Save()
    # Optional!:   $dokument.saved = $True
    $dokument.Close()
    $word.quit()

    und .txt Datei auslesen (hatten wir schon):

    $Text = Get-Content 'C:\temp\test.txt'

    Für eine Word COM Automations-Referenz nutze dieses Dokument:
    http://msdn.microsoft.com/en-us/library/aa272097%28v=office.11%29.aspx


    Please click “Mark as Answer” if my post answers your question and click “Vote As Helpful” if my Post helps you.
    Bitte markiere hilfreiche Beiträge von mir als “Als Hilfreich bewerten” und Beiträge die deine Frage ganz oder teilweise beantwortet haben als “Als Antwort markieren”.
    My PowerShell Blog http://www.admin-source.info
    [string](0..21|%{[char][int]([int]("{0:d}" -f 0x28)+('755964655967-86965747271757624-8796158066061').substring(($_*2),2))})-replace' '
    German ? Come to German PowerShell Forum!

    • Als Antwort markiert ITSMEPRIME Freitag, 18. Januar 2013 07:40
    Freitag, 18. Januar 2013 07:34
  • hatte es bereits gefunden aber danke hast mir echt schon toll geholfen deun bog oder info seite ist auch super :D 
    Freitag, 18. Januar 2013 07:41
  • habe für deine seite noch einen villeicht nützlichen link gefunden 

    http://www.martinlehmann.de/wp/download/powershell-gui-programmierung-fur-dummies-step-by-step/

    Freitag, 18. Januar 2013 09:11
  • Das mit dem Abgabetermin und dem Stress verstehe ich, deshalb bin ich auch nicht unfreundlich geworden ;-)

    Falls du es nicht gefunden hast...

    Text in Word einfügen:

    $word = New-Object -comobject Word.Application
    $dokument=$word.Documents.Open('C:\temp\wordtest.docx')
    $word.Selection.TypeText("Willkommen in der Word World!")
    $dokument.Save()
    # Optional!:   $dokument.saved = $True
    $dokument.Close()
    $word.quit()

    und .txt Datei auslesen (hatten wir schon):

    $Text = Get-Content 'C:\temp\test.txt'

    Für eine Word COM Automations-Referenz nutze dieses Dokument:
    http://msdn.microsoft.com/en-us/library/aa272097%28v=office.11%29.aspx


    Please click “Mark as Answer” if my post answers your question and click “Vote As Helpful” if my Post helps you.
    Bitte markiere hilfreiche Beiträge von mir als “Als Hilfreich bewerten” und Beiträge die deine Frage ganz oder teilweise beantwortet haben als “Als Antwort markieren”.
    My PowerShell Blog http://www.admin-source.info
    [string](0..21|%{[char][int]([int]("{0:d}" -f 0x28)+('755964655967-86965747271757624-8796158066061').substring(($_*2),2))})-replace' '
    German ? Come to German PowerShell Forum!

    Hallo Peter 

    Nun wollte ich aus dem File das ich aus dem file dialog herausgezogen habe ins Word schreiben was irgendwie nicht so wirklich klappt kannst du mir widereinmla ein wenige auf die sprünge helfen ???

    #Generated Form Function
    function GenerateForm {
    ########################################################################
    # Code Generated By: SAPIEN Technologies PrimalForms (Community Edition) v1.0.10.0
    # Generated On: 18.01.2013 15:48
    # Generated By: Administrator
    ########################################################################

    #region Import the Assemblies
    [reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null
    [reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
    #endregion

    #region Generated Form Objects
    $form1 = New-Object System.Windows.Forms.Form
    $textBox2 = New-Object System.Windows.Forms.TextBox
    $textBox1 = New-Object System.Windows.Forms.TextBox
    $button3 = New-Object System.Windows.Forms.Button
    $button_word = New-Object System.Windows.Forms.Button
    $button_Textdatei = New-Object System.Windows.Forms.Button
    $openFileDialog1 = New-Object System.Windows.Forms.OpenFileDialog
    $InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
    #endregion Generated Form Objects

    #----------------------------------------------
    #Generated Event Script Blocks
    #----------------------------------------------
    #Provide Custom Code for events specified in PrimalForms.
    $handler_button3_Click=
    {
    #TODO: Place custom script here

    }

    $button_word_OnClick=
    {
    #TODO: Place custom script here

    $openFileDialog1.Filter = "Dokuments (*.docx)|*.docx";
    $openFileDialog1.ShowDialog()
    Write-Host $openFileDialog1.FileName
    $textBox2.text = $openFileDialog1.FileName
    $word = new-object -ComObject "word.application"
    $word.Visible=$true
    $doc = $word.documents.open($openfileDialog.filename)
    $word.Selection.TypeText("$Text")
    $dokument.Save()


    }

    $button_Textdatei_OnClick=
    {
    #TODO: Place custom script here

    $openFileDialog1.Filter = "Textdateien (*.txt)|*.txt";
    $openFileDialog1.ShowDialog()
    Write-Host $openFileDialog1.FileName
    $textBox2.text = $openFileDialog1.FileName
    Notepad $openFileDialog1.FileName
    $Text = Get-Content $openFileDialog1.filname #'C:\temp\test.txt'


    }

    $OnLoadForm_StateCorrection=
    {#Correct the initial state of the form to prevent the .Net maximized form issue
    $form1.WindowState = $InitialFormWindowState
    }

    #----------------------------------------------
    #region Generated Form Code
    $form1.BackColor = [System.Drawing.Color]::FromArgb(255,166,202,240)
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 306
    $System_Drawing_Size.Width = 566
    $form1.ClientSize = $System_Drawing_Size
    $form1.DataBindings.DefaultDataSourceUpdateMode = 0
    $form1.Name = "form1"
    $form1.Text = "Primal Form"

    $textBox2.DataBindings.DefaultDataSourceUpdateMode = 0
    $System_Drawing_Point = New-Object System.Drawing.Point
    $System_Drawing_Point.X = 97
    $System_Drawing_Point.Y = 107
    $textBox2.Location = $System_Drawing_Point
    $textBox2.Name = "textBox2"
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 23
    $System_Drawing_Size.Width = 235
    $textBox2.Size = $System_Drawing_Size
    $textBox2.TabIndex = 4

    $form1.Controls.Add($textBox2)

    $textBox1.DataBindings.DefaultDataSourceUpdateMode = 0
    $System_Drawing_Point = New-Object System.Drawing.Point
    $System_Drawing_Point.X = 97
    $System_Drawing_Point.Y = 33
    $textBox1.Location = $System_Drawing_Point
    $textBox1.Name = "textBox1"
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 23
    $System_Drawing_Size.Width = 235
    $textBox1.Size = $System_Drawing_Size
    $textBox1.TabIndex = 3

    $form1.Controls.Add($textBox1)


    $button3.DataBindings.DefaultDataSourceUpdateMode = 0

    $System_Drawing_Point = New-Object System.Drawing.Point
    $System_Drawing_Point.X = 338
    $System_Drawing_Point.Y = 200
    $button3.Location = $System_Drawing_Point
    $button3.Name = "button3"
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 48
    $System_Drawing_Size.Width = 159
    $button3.Size = $System_Drawing_Size
    $button3.TabIndex = 2
    $button3.Text = "Neues Worddokument"
    $button3.UseVisualStyleBackColor = $True
    $button3.add_Click($handler_button3_Click)

    $form1.Controls.Add($button3)


    $button_word.DataBindings.DefaultDataSourceUpdateMode = 0

    $System_Drawing_Point = New-Object System.Drawing.Point
    $System_Drawing_Point.X = 361
    $System_Drawing_Point.Y = 94
    $button_word.Location = $System_Drawing_Point
    $button_word.Name = "button_word"
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 48
    $System_Drawing_Size.Width = 136
    $button_word.Size = $System_Drawing_Size
    $button_word.TabIndex = 1
    $button_word.Text = "Word"
    $button_word.UseVisualStyleBackColor = $True
    $button_word.add_Click($button_word_OnClick)

    $form1.Controls.Add($button_word)


    $button_Textdatei.DataBindings.DefaultDataSourceUpdateMode = 0

    $System_Drawing_Point = New-Object System.Drawing.Point
    $System_Drawing_Point.X = 361
    $System_Drawing_Point.Y = 33
    $button_Textdatei.Location = $System_Drawing_Point
    $button_Textdatei.Name = "button_Textdatei"
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 37
    $System_Drawing_Size.Width = 136
    $button_Textdatei.Size = $System_Drawing_Size
    $button_Textdatei.TabIndex = 0
    $button_Textdatei.Text = "Textdatei"
    $button_Textdatei.UseVisualStyleBackColor = $True
    $button_Textdatei.add_Click($button_Textdatei_OnClick)

    $form1.Controls.Add($button_Textdatei)

    $openFileDialog1.FileName = "openFileDialog1"
    $openFileDialog1.ShowHelp = $True

    #endregion Generated Form Code

    #Save the initial state of the form
    $InitialFormWindowState = $form1.WindowState
    #Init the OnLoad event to correct the initial state of the form
    $form1.add_Load($OnLoadForm_StateCorrection)
    #Show the Form
    $form1.ShowDialog()| Out-Null

    } #End Function

    #Call the Function
    GenerateForm 

    Freitag, 18. Januar 2013 15:10
  • #Generated Form Function
    function GenerateForm {
    ########################################################################
    # Code Generated By: SAPIEN Technologies PrimalForms (Community Edition) v1.0.10.0
    # Generated On: 18.01.2013 15:48
    # Generated By: Administrator
    ########################################################################
    
    #region Import the Assemblies
    [reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null
    [reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
    #endregion
    
    #region Generated Form Objects
    $form1 = New-Object System.Windows.Forms.Form
    $textBox2 = New-Object System.Windows.Forms.TextBox
    $textBox1 = New-Object System.Windows.Forms.TextBox
    $button3 = New-Object System.Windows.Forms.Button
    $button_word = New-Object System.Windows.Forms.Button
    $button_Textdatei = New-Object System.Windows.Forms.Button
    $openFileDialog1 = New-Object System.Windows.Forms.OpenFileDialog
    $InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
    #endregion Generated Form Objects
    
    #----------------------------------------------
    #Generated Event Script Blocks
    #----------------------------------------------
    #Provide Custom Code for events specified in PrimalForms.
    $handler_button3_Click=
    {
    #TODO: Place custom script here
        $word=new-object -ComObject "Word.Application"
        $doc=$word.documents.Add()
        $word.Visible=$True
        $word.Selection.TypeText("Neues Word Dokument!")
    }
    
    $button_word_OnClick=
    {
    #TODO: Place custom script here
    
    $openFileDialog1.Filter = "Dokuments (*.docx)|*.docx";
    $openFileDialog1.ShowDialog()
    $textBox2.text = $openFileDialog1.FileName
    $word = new-object -ComObject "word.application"
    $doc = $word.documents.open($openFileDialog1.FileName)
    $word.Visible=$true
    
    # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    # Text aus der Datei die in der textbox1 drin steht einlesen
    $word.Selection.TypeText($(Get-Content $textBox1.text))
    # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    
    $dokument.Save()
    
    
    }
    
    $button_Textdatei_OnClick=
    {
    #TODO: Place custom script here
    
    $openFileDialog1.Filter = "Textdateien (*.txt)|*.txt";
    $openFileDialog1.ShowDialog()
    Write-Host $openFileDialog1.FileName
    $textBox1.text = $openFileDialog1.FileName
    Notepad $openFileDialog1.FileName
    
    }
    
    $OnLoadForm_StateCorrection=
    {#Correct the initial state of the form to prevent the .Net maximized form issue
    $form1.WindowState = $InitialFormWindowState
    }
    
    #----------------------------------------------
    #region Generated Form Code
    $form1.BackColor = [System.Drawing.Color]::FromArgb(255,166,202,240)
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 306
    $System_Drawing_Size.Width = 566
    $form1.ClientSize = $System_Drawing_Size
    $form1.DataBindings.DefaultDataSourceUpdateMode = 0
    $form1.Name = "form1"
    $form1.Text = "Primal Form"
    
    $textBox2.DataBindings.DefaultDataSourceUpdateMode = 0
    $System_Drawing_Point = New-Object System.Drawing.Point
    $System_Drawing_Point.X = 97
    $System_Drawing_Point.Y = 107
    $textBox2.Location = $System_Drawing_Point
    $textBox2.Name = "textBox2"
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 23
    $System_Drawing_Size.Width = 235
    $textBox2.Size = $System_Drawing_Size
    $textBox2.TabIndex = 4
    
    $form1.Controls.Add($textBox2)
    
    $textBox1.DataBindings.DefaultDataSourceUpdateMode = 0
    $System_Drawing_Point = New-Object System.Drawing.Point
    $System_Drawing_Point.X = 97
    $System_Drawing_Point.Y = 33
    $textBox1.Location = $System_Drawing_Point
    $textBox1.Name = "textBox1"
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 23
    $System_Drawing_Size.Width = 235
    $textBox1.Size = $System_Drawing_Size
    $textBox1.TabIndex = 3
    
    $form1.Controls.Add($textBox1)
    
    
    $button3.DataBindings.DefaultDataSourceUpdateMode = 0
    
    $System_Drawing_Point = New-Object System.Drawing.Point
    $System_Drawing_Point.X = 338
    $System_Drawing_Point.Y = 200
    $button3.Location = $System_Drawing_Point
    $button3.Name = "button3"
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 48
    $System_Drawing_Size.Width = 159
    $button3.Size = $System_Drawing_Size
    $button3.TabIndex = 2
    $button3.Text = "Neues Worddokument"
    $button3.UseVisualStyleBackColor = $True
    $button3.add_Click($handler_button3_Click)
    
    $form1.Controls.Add($button3)
    
    
    $button_word.DataBindings.DefaultDataSourceUpdateMode = 0
    
    $System_Drawing_Point = New-Object System.Drawing.Point
    $System_Drawing_Point.X = 361
    $System_Drawing_Point.Y = 94
    $button_word.Location = $System_Drawing_Point
    $button_word.Name = "button_word"
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 48
    $System_Drawing_Size.Width = 136
    $button_word.Size = $System_Drawing_Size
    $button_word.TabIndex = 1
    $button_word.Text = "Word"
    $button_word.UseVisualStyleBackColor = $True
    $button_word.add_Click($button_word_OnClick)
    
    $form1.Controls.Add($button_word)
    
    
    $button_Textdatei.DataBindings.DefaultDataSourceUpdateMode = 0
    
    $System_Drawing_Point = New-Object System.Drawing.Point
    $System_Drawing_Point.X = 361
    $System_Drawing_Point.Y = 33
    $button_Textdatei.Location = $System_Drawing_Point
    $button_Textdatei.Name = "button_Textdatei"
    $System_Drawing_Size = New-Object System.Drawing.Size
    $System_Drawing_Size.Height = 37
    $System_Drawing_Size.Width = 136
    $button_Textdatei.Size = $System_Drawing_Size
    $button_Textdatei.TabIndex = 0
    $button_Textdatei.Text = "Textdatei"
    $button_Textdatei.UseVisualStyleBackColor = $True
    $button_Textdatei.add_Click($button_Textdatei_OnClick)
    
    $form1.Controls.Add($button_Textdatei)
    
    $openFileDialog1.FileName = "openFileDialog1"
    $openFileDialog1.ShowHelp = $True
    
    #endregion Generated Form Code
    
    #Save the initial state of the form
    $InitialFormWindowState = $form1.WindowState
    #Init the OnLoad event to correct the initial state of the form
    $form1.add_Load($OnLoadForm_StateCorrection)
    #Show the Form
    $form1.ShowDialog()| Out-Null
    
    } #End Function
    
    #Call the Function
    GenerateForm


    Please click “Mark as Answer” if my post answers your question and click “Vote As Helpful” if my Post helps you.
    Bitte markiere hilfreiche Beiträge von mir als “Als Hilfreich bewerten” und Beiträge die deine Frage ganz oder teilweise beantwortet haben als “Als Antwort markieren”.
    My PowerShell Blog http://www.admin-source.info
    [string](0..21|%{[char][int]([int]("{0:d}" -f 0x28)+('755964655967-86965747271757624-8796158066061').substring(($_*2),2))})-replace' '
    German ? Come to German PowerShell Forum!

    Freitag, 18. Januar 2013 16:42
  • Danke viel mals sobald ich zuhause bin werde ich es ausprobieren wunderschönen tag peter wünsche ich dir ;)
    Sonntag, 20. Januar 2013 10:10