<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet type="text/css" href="https://www.schweda.net/style_feed.css" ?>
<rss version="2.0" 
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
    xmlns:atom="http://www.w3.org/2005/Atom"	
	xmlns:dc="http://purl.org/dc/elements/1.1/" > 
<channel>
    <title>schweda.net - Blog</title>
    <link>https://www.schweda.net/</link>
    <description>schweda.net - Blog - Blog-Beitraege</description>
    <language>de-at</language>
    <copyright>Copyright 2006-2026</copyright>
    <generator>schweda.net</generator>
    <managingEditor>heinz.schweda@schweda.net (Heinz Schweda)</managingEditor>
    <webMaster>heinz.schweda@schweda.net (Heinz Schweda)</webMaster>
    <category>Blog</category>
	<atom:link href="https://schweda.net/blog_rss.php?bid=463" rel="self" type="application/rss+xml" />
<item>
<title><![CDATA[Word-Dokument per Code erstellen II]]></title>
<description><![CDATA[
<p><img title="Microsoft Word" border="0" alt="Microsoft Word" align="right" style="padding-left: 10px" src="http://www.schweda.net/pictures/blogpics/microsoft_word_logo_2013.jpg" />Anbei ein einfach gehaltener Job, der ein einfaches Word-Dokument mit &Uuml;berschriften per Code erstellt. Voraussetzung ist ein lokal installiertes Microsoft Word.
</p>

<div class="div_blog_axcode">static void CreateWordFile(Args _args)<br />
{<br />
&nbsp;&nbsp;&nbsp; COM wordApplication;<br />
&nbsp;&nbsp;&nbsp; COM wordDocuments;<br />
&nbsp;&nbsp;&nbsp; COM wordDocument;<br />
&nbsp;&nbsp;&nbsp; COM wordRange;<br />
&nbsp;&nbsp;&nbsp; COM wordSelection;<br />
&nbsp;&nbsp;&nbsp; COM wordStyles;<br />
&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp; #define.Heading1(-2)<br />
&nbsp;&nbsp;&nbsp; #define.Heading2(-3)<br />
&nbsp;&nbsp;&nbsp; #define.Heading3(-4)<br />
&nbsp;&nbsp;&nbsp; #define.Heading4(-5)<br />
&nbsp;&nbsp;&nbsp; #define.Heading5(-6)&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp; void insertHeader(str _str, int _level)<br />
&nbsp;&nbsp;&nbsp; {<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; COM wordStyle;<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wordSelection = wordApplication.selection();<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; switch( _level )<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; {<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; case 1:<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wordStyle = wordStyles.item(#Heading1);<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; break;<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; case 2:<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wordStyle = wordStyles.item(#Heading2);<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; break;<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; case 3:<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wordStyle = wordStyles.item(#Heading3);<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; break;<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; case 4:<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wordStyle = wordStyles.item(#Heading4);<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; break;<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; case 5:<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wordStyle = wordStyles.item(#Heading5);<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; break;<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; default:<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wordStyle = wordStyles.item(#Heading3);<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wordSelection.style(wordStyle);<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wordSelection.TypeText(_str);<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wordSelection.TypeParagraph();<br />
&nbsp;&nbsp;&nbsp; }&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp; wordApplication = new COM(&quot;word.application&quot;);<br />
&nbsp;&nbsp;&nbsp; wordApplication.visible(TRUE);<br />
&nbsp;&nbsp;&nbsp; wordDocuments = wordApplication.Documents();<br />
&nbsp;&nbsp;&nbsp; wordDocument = wordDocuments.add();<br />
&nbsp;&nbsp;&nbsp; wordDocument.saveas(@&quot;c:\temp\LoremIpsum.doc&quot;);<br />
&nbsp;&nbsp;&nbsp; wordDocument.activate();<br />
<br />
&nbsp;&nbsp;&nbsp; wordStyles = wordDocument.styles();<br />
<br />
&nbsp;&nbsp;&nbsp; wordRange = wordDocument.range(0,0);&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp; // Let's go<br />
&nbsp;&nbsp;&nbsp; insertHeader(&quot;Lorem ipsum&quot;, 1);<br />
&nbsp;&nbsp;&nbsp; wordSelection.TypeText(&quot;Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam&quot;);<br />
&nbsp;&nbsp;&nbsp; wordSelection.TypeParagraph();<br />
&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp; insertHeader(&quot;Lorem ipsum&quot;, 2);<br />
&nbsp;&nbsp;&nbsp; wordSelection.TypeText(&quot;Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam&quot;);<br />
&nbsp;&nbsp;&nbsp; wordSelection.TypeParagraph();<br />
&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp; wordSelection.TypeText(&quot;Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut&quot;);<br />
&nbsp;&nbsp;&nbsp; wordSelection.TypeParagraph();<br />
&nbsp;&nbsp;&nbsp; <br />
&nbsp;&nbsp;&nbsp; // Finish<br />
&nbsp;&nbsp;&nbsp; wordDocument.save();<br />
&nbsp;&nbsp;&nbsp; wordDocument.close();<br />
&nbsp;&nbsp;&nbsp; wordApplication.quit();&nbsp;&nbsp;&nbsp; <br />
<br />
}
</div>

<p>So sieht das Word-Dokument aus, da&szlig; mit obigem Code erstellt wurde:
</p>

<p><img title="Lorem Ipsum Word-file" border="0" alt="Lorem Ipsum Word-file" width="465" height="141" src="http://www.schweda.net/pictures/blogpics/lorem_impsum_wordfile.jpg" />
</p>]]></description>
<category>Microsoft Dynamics AX (Axapta)</category>
<pubDate>Fri, 14 Jun 2013 17:18:00 +0200</pubDate>
<link>https://www.schweda.net/blog_ax.php?bid=463</link>
<comments>https://www.schweda.net/blog_ax.php?bid=463</comments>
<guid isPermaLink="true">https://www.schweda.net/blog_ax.php?bid=463</guid>
<author>heinz.schweda@schweda.net (Heinz Schweda)</author>
<wfw:commentRss>https://www.schweda.net/blog_ax.php?bid=463</wfw:commentRss>
</item>
</channel>
</rss>	
