Einen wunderschönen guten Morgen *gäääähn* ;)
Weiß jemand so rein zufällig ob ich in Word aus Notes heraus Textfelder mit anderen Werten überschreiben kann? So rein Denktechnisch würde ich sagen ja aber jeder Versuch scheiterte. Irgendwie werden die einfach nicht gefunden - ich mein die Textfelder. Einfachen Text zu ersetzen klappt wohl ganz gut.
Ich füg mal noch etwas Quelltext an. Vielleicht könnt ihr mir den gleich um die Ohren schmeissen ;)
m_oWord.Selection.Find.ClearFormatting
m_oWord.Selection.Find.Replacement.ClearFormatting
With m_oWord.Selection.Find
.Text = "Telefon"
.Replacement.Text = "tee"
End With
m_oWord.Selection.Find.Execute
DANKE!
Sorry Puthy, mir hat noch mein Kaffee gefehlt, um die Satzstellung korrekt auszuwerten.
Um ein Word Textfeld mit VBA auszufüllen meint Google:
ActiveDocument.FormFields("text3").TextInput.Clear
ActiveDocument.FormFields("text3").Result
Hey,
ich hab mir doch einmal Google vorgenommen udn siehe da es funzt.
Hey m3 - dein Kaffee immernoch nicht da? ;)
Es ist wichtig in Word einmal Textfelder und Textformularfelder zu unterscheiden. Das Beispiel von m3 bezieht sich auf Textformularfelder und folgendes auf Textfelder:
m_oWdDoc.Shapes(2).TextFrame.TextRange = "Ich will Kaffee"