http://vba-wiki.net/index.php?action=history&feed=atom&title=Fernsteuerung
Fernsteuerung - Versionsgeschichte
2026-05-02T13:51:07Z
Versionsgeschichte dieser Seite in VBA-wiki
MediaWiki 1.39.1
http://vba-wiki.net/index.php?title=Fernsteuerung&diff=731&oldid=prev
Pwania am 28. Januar 2023 um 00:35 Uhr
2023-01-28T00:35:11Z
<p></p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="de">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Nächstältere Version</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Version vom 28. Januar 2023, 00:35 Uhr</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1">Zeile 1:</td>
<td colspan="2" class="diff-lineno">Zeile 1:</td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">[[Category:vba-wiki]]</ins></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>== Zugriff auf PowerPoint ==</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>== Zugriff auf PowerPoint ==</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr>
</table>
Pwania
http://vba-wiki.net/index.php?title=Fernsteuerung&diff=331&oldid=prev
Pwania: /* Word */
2018-10-10T14:16:57Z
<p><span dir="auto"><span class="autocomment">Word</span></span></p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="de">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Nächstältere Version</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Version vom 10. Oktober 2018, 14:16 Uhr</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l44">Zeile 44:</td>
<td colspan="2" class="diff-lineno">Zeile 44:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>* Wenn die Anwendung noch nicht läuft, wird ein Fehler erzeugt.</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>* Wenn die Anwendung noch nicht läuft, wird ein Fehler erzeugt.</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Public Sub </span>TransferTextToWord()</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>">Public Sub </span>TransferTextToWord<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>()<ins style="font-weight: bold; text-decoration: none;"></span></ins></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Dim </span>wordApp <span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">As </span>Word.Application</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Dim </span>wordApp<span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> As </span>Word<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Application</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Dim </span>doc <span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">As </span>Word.Document</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Dim </span>doc<span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> As </span>Word<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Document</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Dim </span>rngWord <span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">As </span>Word.Range</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Dim </span>rngWord<span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> As </span>Word<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Range</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Voraussetzung: Word ist als Verweis eingebunden</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Voraussetzung: Word ist als Verweis eingebunden</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> On Error GoTo <span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">0 <del style="font-weight: bold; text-decoration: none;"> </del></span> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Setzt Fehlerspeicher auf 0 zurück</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> <span style="Color:blue"> </ins>On Error GoTo <ins style="font-weight: bold; text-decoration: none;"></span></ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">0</span> <ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Setzt Fehlerspeicher auf 0 zurück</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> On Error Resume </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Next <del style="font-weight: bold; text-decoration: none;"> </del></span> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Falls ein Fehler auftritt, bitte weiter machen</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> <ins style="font-weight: bold; text-decoration: none;">On Error Resume </ins>Next </span> <ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Falls ein Fehler auftritt, bitte weiter machen</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Achtung bei GetObject: Anwendung ist zweiter Parameter, erster bleibt leer!</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Achtung bei GetObject: Anwendung ist zweiter Parameter, erster bleibt leer!</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Set </span>wordApp <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>">= </span>GetObject(, <span style="Color:<del style="font-weight: bold; text-decoration: none;">#808080;</del>">"Word.Application"</span><del style="font-weight: bold; text-decoration: none;">)</del></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Set </span>wordApp <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">=</span> GetObject<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>(,<ins style="font-weight: bold; text-decoration: none;"></span> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">"Word.Application"<ins style="font-weight: bold; text-decoration: none;">)</ins></span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">If </span>Err.Number <> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">0 </span>Then <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Wenn Fehlernummer ungleich 0, dann ...</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> If </span>Err<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Number <<ins style="font-weight: bold; text-decoration: none;">span style="Color:gray"><></span</ins>> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">0</span<ins style="font-weight: bold; text-decoration: none;">><span style="Color:blue"</ins>> Then <ins style="font-weight: bold; text-decoration: none;"></span> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Wenn Fehlernummer ungleich 0, dann ...</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del>MsgBox <span style="Color:<del style="font-weight: bold; text-decoration: none;">#808080;</del>">"Bitte Word starten und gewünschtes Dokument öffnen!"</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins>MsgBox <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">"Bitte Word starten und gewünschtes Dokument öffnen!"</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del>On Error GoTo <span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">0 <del style="font-weight: bold; text-decoration: none;"> </del></span> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Schaltet 'On Error Resume Next' aus</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> <span style="Color:blue"> </ins>On Error GoTo <ins style="font-weight: bold; text-decoration: none;"></span></ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">0</span> <ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Schaltet 'On Error Resume Next' aus</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Exit Sub</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Exit Sub</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">End If</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> End If</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del>On Error GoTo <span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">0 <del style="font-weight: bold; text-decoration: none;"> </del></span> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Schaltet 'On Error Resume Next' aus</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> <span style="Color:blue"> </ins>On Error GoTo <ins style="font-weight: bold; text-decoration: none;"></span></ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">0</span> <ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Schaltet 'On Error Resume Next' aus</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> ' Debug.Print 3 / 0 ' Erzeugt keinen Fehler, wenn 'On Error GoTo 0' fehlt!</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> ' Debug.Print 3 / 0 ' Erzeugt keinen Fehler, wenn 'On Error GoTo 0' fehlt!</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">If </span>wordApp.Documents.Count <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>">=</span> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">0 </span>Then</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> If </span>wordApp<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Documents<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Count <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">=</span> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">0</span<ins style="font-weight: bold; text-decoration: none;">><span style="Color:blue"</ins>> Then<ins style="font-weight: bold; text-decoration: none;"></span></ins></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> MsgBox <span style="Color:<del style="font-weight: bold; text-decoration: none;">#808080;</del>">"Bitte das gewünschte Dokument öffnen!"</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> MsgBox <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">"Bitte das gewünschte Dokument öffnen!"</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Exit Sub</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Exit Sub</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">End If</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> End If</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Set </span>doc <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>">= </span>wordApp.ActiveDocument</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Set </span>doc <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">=</span> wordApp<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>ActiveDocument</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Set </span>rngWord <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>">= </span>doc.Words.Item<del style="font-weight: bold; text-decoration: none;">(</del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">3</span><del style="font-weight: bold; text-decoration: none;">)</del></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Set </span>rngWord <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">=</span> doc<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Words<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Item<span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>"><ins style="font-weight: bold; text-decoration: none;">(</ins>3<ins style="font-weight: bold; text-decoration: none;">)</ins></span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> rngWord<del style="font-weight: bold; text-decoration: none;">.Text </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>"><del style="font-weight: bold; text-decoration: none;">= </del></span><del style="font-weight: bold; text-decoration: none;">Cells(</del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>"><del style="font-weight: bold; text-decoration: none;">1</del></span><del style="font-weight: bold; text-decoration: none;">, </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">1</span><del style="font-weight: bold; text-decoration: none;">).Text </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>"><del style="font-weight: bold; text-decoration: none;">&</del></span> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#808080;</del>">" "</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> rngWord<span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>"><ins style="font-weight: bold; text-decoration: none;">.</ins></span><ins style="font-weight: bold; text-decoration: none;">Text </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>"><ins style="font-weight: bold; text-decoration: none;">=</ins></span> <ins style="font-weight: bold; text-decoration: none;">Cells</ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>"><ins style="font-weight: bold; text-decoration: none;">(</ins>1<ins style="font-weight: bold; text-decoration: none;">,</ins></span> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>"><ins style="font-weight: bold; text-decoration: none;">1).</ins></span><ins style="font-weight: bold; text-decoration: none;">Text & </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">" "</span><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">End Sub</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins>End Sub</span></div></td></tr>
</table>
Pwania
http://vba-wiki.net/index.php?title=Fernsteuerung&diff=330&oldid=prev
Pwania: /* Zugriff auf PowerPoint */
2018-10-10T14:15:22Z
<p><span dir="auto"><span class="autocomment">Zugriff auf PowerPoint</span></span></p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="de">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Nächstältere Version</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Version vom 10. Oktober 2018, 14:15 Uhr</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l8">Zeile 8:</td>
<td colspan="2" class="diff-lineno">Zeile 8:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Alternativ kann die Verbindung mit 'GetObject' hergestellt werden (siehe Beispiel für Word).</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Alternativ kann die Verbindung mit 'GetObject' hergestellt werden (siehe Beispiel für Word).</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Public Sub </span>InsertFormInPPT()</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>">Public Sub </span>InsertFormInPPT<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>()<ins style="font-weight: bold; text-decoration: none;"></span></ins></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Dim </span>shp <span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">As </span>PowerPoint.Shape</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Dim </span>shp<span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> As </span>PowerPoint<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Shape</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Dim </span>sld <span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">As </span>PowerPoint.Slide</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Dim </span>sld<span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> As </span>PowerPoint<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Slide</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Dim </span>pptApp <span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">As </span>PowerPoint.Application</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Dim </span>pptApp<span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> As </span>PowerPoint<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Application</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Voraussetzung: PowerPoint ist als Verweis eingebunden</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Voraussetzung: PowerPoint ist als Verweis eingebunden</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Anwendungsvariable mit PowerPoint verknüpfen</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Anwendungsvariable mit PowerPoint verknüpfen</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Wenn PowerPoint nicht schon läuft, wird ein Hintergrundprozess gestartet</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Wenn PowerPoint nicht schon läuft, wird ein Hintergrundprozess gestartet</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Set </span>pptApp <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>">= </span>CreateObject<del style="font-weight: bold; text-decoration: none;">(</del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#808080;</del>">"PowerPoint.Application"</span><del style="font-weight: bold; text-decoration: none;">)</del></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Set </span>pptApp <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">=</span> CreateObject<span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>"><ins style="font-weight: bold; text-decoration: none;">(</ins>"PowerPoint.Application"<ins style="font-weight: bold; text-decoration: none;">)</ins></span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Wenn PowerPoint vorher schon vom Anwender gestartet wurde,</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Wenn PowerPoint vorher schon vom Anwender gestartet wurde,</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' ist die Anwendung sichtbar (auch wenn sie minimiert wurde)</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' ist die Anwendung sichtbar (auch wenn sie minimiert wurde)</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Wenn PowerPoint jetzt erst als Hintergrundprozess gestartet wurde, ist die Anwendung NICHT sichtbar</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Wenn PowerPoint jetzt erst als Hintergrundprozess gestartet wurde, ist die Anwendung NICHT sichtbar</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">If </span>pptApp.Visible <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>">= </span><del style="font-weight: bold; text-decoration: none;">False Then </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Exit Sub</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> If </span>pptApp<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Visible <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">=</span><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> <ins style="font-weight: bold; text-decoration: none;">False Then </ins>Exit Sub</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' Mit der Referenz auf PowerPoint in der Variablen 'pptApp'</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' Mit der Referenz auf PowerPoint in der Variablen 'pptApp'</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#008000;</del>">' kann nun direkt auf PowerPoint zugegriffen werden.</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">green</ins>">' kann nun direkt auf PowerPoint zugegriffen werden.</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></span> <del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">If </span>pptApp.Presentations.Count <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>"><</span> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">1 </span><del style="font-weight: bold; text-decoration: none;">Then </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Exit Sub</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> If </span>pptApp<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Presentations<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Count <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>"><</span> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">1</span><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> <ins style="font-weight: bold; text-decoration: none;">Then </ins>Exit Sub</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">If </span>pptApp.ActivePresentation.Slides.Count <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>"><</span> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">1 </span><del style="font-weight: bold; text-decoration: none;">Then </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Exit Sub</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> If </span>pptApp<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>ActivePresentation<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Slides<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Count <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>"><</span> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">1</span><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> <ins style="font-weight: bold; text-decoration: none;">Then </ins>Exit Sub</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">If </span>pptApp.ActiveWindow.Selection<del style="font-weight: bold; text-decoration: none;">.</del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>"><del style="font-weight: bold; text-decoration: none;">Type</del></span> <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>">= </span>ppSelectionNone <del style="font-weight: bold; text-decoration: none;">Then </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Exit Sub</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> If </span>pptApp<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>ActiveWindow<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Selection<span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>"><ins style="font-weight: bold; text-decoration: none;">.</ins></span><ins style="font-weight: bold; text-decoration: none;">Type </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">=</span> ppSelectionNone<span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> <ins style="font-weight: bold; text-decoration: none;">Then </ins>Exit Sub</span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Set </span>sld <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>">= </span>pptApp.ActiveWindow.Selection.SlideRange.Item<del style="font-weight: bold; text-decoration: none;">(</del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">1</span><del style="font-weight: bold; text-decoration: none;">)</del></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Set </span>sld <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">=</span> pptApp<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>ActiveWindow<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Selection<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>SlideRange<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Item<span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>"><ins style="font-weight: bold; text-decoration: none;">(</ins>1<ins style="font-weight: bold; text-decoration: none;">)</ins></span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">Set </span>shp <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>">= </span>sld.Shapes.AddShape(msoShapeRectangle, <span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">10</span><del style="font-weight: bold; text-decoration: none;">, </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">10</span><del style="font-weight: bold; text-decoration: none;">, </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">230</span><del style="font-weight: bold; text-decoration: none;">, </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#00FFFF;</del>">120</span><del style="font-weight: bold; text-decoration: none;">)</del></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"> Set </span>shp <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">=</span> sld<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Shapes<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>AddShape<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>(<ins style="font-weight: bold; text-decoration: none;"></span></ins>msoShapeRectangle<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>,<ins style="font-weight: bold; text-decoration: none;"></span> </ins><span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">10<ins style="font-weight: bold; text-decoration: none;">,</ins></span> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">10<ins style="font-weight: bold; text-decoration: none;">,</ins></span> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">230<ins style="font-weight: bold; text-decoration: none;">,</ins></span> <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">120<ins style="font-weight: bold; text-decoration: none;">)</ins></span></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> shp.Fill.ForeColor.RGB <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>">= </span>vbMagenta</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> shp<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Fill<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>ForeColor<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>RGB <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">=</span> vbMagenta</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> shp.TextFrame.TextRange.Text <span style="Color:<del style="font-weight: bold; text-decoration: none;">#993300;</del>">= </span>Excel.Application.Name</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> shp<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>TextFrame<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>TextRange<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Text <span style="Color:<ins style="font-weight: bold; text-decoration: none;">gray</ins>">=</span> Excel<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Application<ins style="font-weight: bold; text-decoration: none;"><span style="Color:gray"></ins>.<ins style="font-weight: bold; text-decoration: none;"></span></ins>Name<span style="Color:<ins style="font-weight: bold; text-decoration: none;">blue</ins>"></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del><span style="Color:<del style="font-weight: bold; text-decoration: none;">#0000FF;</del>">End Sub</span></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"> </ins>End Sub</span></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>== Word ==</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>== Word ==</div></td></tr>
</table>
Pwania
http://vba-wiki.net/index.php?title=Fernsteuerung&diff=329&oldid=prev
Pwania: Die Seite wurde neu angelegt: „== Zugriff auf PowerPoint == Bei PowerPoint reagiert 'CreateObject' wie folgt: * Wenn PowerPoint noch nicht läuft, wird es im Hintergrund gestartet. * Wenn P…“
2018-10-10T14:10:58Z
<p>Die Seite wurde neu angelegt: „== Zugriff auf PowerPoint == Bei PowerPoint reagiert 'CreateObject' wie folgt: * Wenn PowerPoint noch nicht läuft, wird es im Hintergrund gestartet. * Wenn P…“</p>
<p><b>Neue Seite</b></p><div>== Zugriff auf PowerPoint ==<br />
<br />
Bei PowerPoint reagiert 'CreateObject' wie folgt:<br />
* Wenn PowerPoint noch nicht läuft, wird es im Hintergrund gestartet.<br />
* Wenn PowerPoint schon läuft, wird dieses über 'CreateObject' zurückgegeben.<br />
* Wenn das Objekt freigegeben wird (spätestens am Ende der Prozedur), wird der Hintergrundprozess ebenfalls beendet.<br />
<br />
Alternativ kann die Verbindung mit 'GetObject' hergestellt werden (siehe Beispiel für Word).<br />
<br />
<span style="Color:#0000FF;">Public Sub </span>InsertFormInPPT()<br />
<span style="Color:#0000FF;">Dim </span>shp <span style="Color:#0000FF;">As </span>PowerPoint.Shape<br />
<span style="Color:#0000FF;">Dim </span>sld <span style="Color:#0000FF;">As </span>PowerPoint.Slide<br />
<span style="Color:#0000FF;">Dim </span>pptApp <span style="Color:#0000FF;">As </span>PowerPoint.Application<br />
<br />
<span style="Color:#008000;">' Voraussetzung: PowerPoint ist als Verweis eingebunden<br />
</span> <br />
<span style="Color:#008000;">' Anwendungsvariable mit PowerPoint verknüpfen<br />
</span> <span style="Color:#008000;">' Wenn PowerPoint nicht schon läuft, wird ein Hintergrundprozess gestartet<br />
</span> <span style="Color:#0000FF;">Set </span>pptApp <span style="Color:#993300;">= </span>CreateObject(<span style="Color:#808080;">"PowerPoint.Application"</span>)<br />
<span style="Color:#008000;">' Wenn PowerPoint vorher schon vom Anwender gestartet wurde,<br />
</span> <span style="Color:#008000;">' ist die Anwendung sichtbar (auch wenn sie minimiert wurde)<br />
</span> <span style="Color:#008000;">' Wenn PowerPoint jetzt erst als Hintergrundprozess gestartet wurde, ist die Anwendung NICHT sichtbar<br />
</span> <span style="Color:#0000FF;">If </span>pptApp.Visible <span style="Color:#993300;">= </span>False Then <span style="Color:#0000FF;">Exit Sub</span><br />
<span style="Color:#008000;">' Mit der Referenz auf PowerPoint in der Variablen 'pptApp'<br />
</span> <span style="Color:#008000;">' kann nun direkt auf PowerPoint zugegriffen werden.<br />
</span> <span style="Color:#0000FF;">If </span>pptApp.Presentations.Count <span style="Color:#993300;"><</span> <span style="Color:#00FFFF;">1 </span>Then <span style="Color:#0000FF;">Exit Sub</span><br />
<span style="Color:#0000FF;">If </span>pptApp.ActivePresentation.Slides.Count <span style="Color:#993300;"><</span> <span style="Color:#00FFFF;">1 </span>Then <span style="Color:#0000FF;">Exit Sub</span><br />
<span style="Color:#0000FF;">If </span>pptApp.ActiveWindow.Selection.<span style="Color:#0000FF;">Type</span> <span style="Color:#993300;">= </span>ppSelectionNone Then <span style="Color:#0000FF;">Exit Sub</span><br />
<span style="Color:#0000FF;">Set </span>sld <span style="Color:#993300;">= </span>pptApp.ActiveWindow.Selection.SlideRange.Item(<span style="Color:#00FFFF;">1</span>)<br />
<span style="Color:#0000FF;">Set </span>shp <span style="Color:#993300;">= </span>sld.Shapes.AddShape(msoShapeRectangle, <span style="Color:#00FFFF;">10</span>, <span style="Color:#00FFFF;">10</span>, <span style="Color:#00FFFF;">230</span>, <span style="Color:#00FFFF;">120</span>)<br />
shp.Fill.ForeColor.RGB <span style="Color:#993300;">= </span>vbMagenta<br />
shp.TextFrame.TextRange.Text <span style="Color:#993300;">= </span>Excel.Application.Name<br />
<span style="Color:#0000FF;">End Sub</span><br />
<br />
== Word ==<br />
<br />
Bei Word reagiert 'CreateObject' wie folgt:<br />
* Wenn Word noch nicht läuft, wird ein neuer Hintergrundprozess gestartet.<br />
* Wenn Word schon läuft, wird trotzdem ein neuer Hintergrundprozess gestartet!<br />
* Wenn das Objekt freigegeben wird, bleibt der Hintergrundprozess erhalten!<br />
<br />
Bei 'GetObject' gilt folgendes:<br />
* Wenn die Anwendung schon läuft, wird dessen Instanz zurückgegeben.<br />
* Wenn die Anwendung noch nicht läuft, wird ein Fehler erzeugt.<br />
<br />
<span style="Color:#0000FF;">Public Sub </span>TransferTextToWord()<br />
<span style="Color:#0000FF;">Dim </span>wordApp <span style="Color:#0000FF;">As </span>Word.Application<br />
<span style="Color:#0000FF;">Dim </span>doc <span style="Color:#0000FF;">As </span>Word.Document<br />
<span style="Color:#0000FF;">Dim </span>rngWord <span style="Color:#0000FF;">As </span>Word.Range<br />
<br />
<span style="Color:#008000;">' Voraussetzung: Word ist als Verweis eingebunden<br />
</span> <br />
On Error GoTo <span style="Color:#00FFFF;">0 </span> <span style="Color:#008000;">' Setzt Fehlerspeicher auf 0 zurück<br />
</span> On Error Resume <span style="Color:#0000FF;">Next </span> <span style="Color:#008000;">' Falls ein Fehler auftritt, bitte weiter machen<br />
</span> <span style="Color:#008000;">' Achtung bei GetObject: Anwendung ist zweiter Parameter, erster bleibt leer!<br />
</span> <span style="Color:#0000FF;">Set </span>wordApp <span style="Color:#993300;">= </span>GetObject(, <span style="Color:#808080;">"Word.Application"</span>)<br />
<span style="Color:#0000FF;">If </span>Err.Number <> <span style="Color:#00FFFF;">0 </span>Then <span style="Color:#008000;">' Wenn Fehlernummer ungleich 0, dann ...<br />
</span> MsgBox <span style="Color:#808080;">"Bitte Word starten und gewünschtes Dokument öffnen!"</span><br />
On Error GoTo <span style="Color:#00FFFF;">0 </span> <span style="Color:#008000;">' Schaltet 'On Error Resume Next' aus<br />
</span> <span style="Color:#0000FF;">Exit Sub</span><br />
<span style="Color:#0000FF;">End If</span><br />
On Error GoTo <span style="Color:#00FFFF;">0 </span> <span style="Color:#008000;">' Schaltet 'On Error Resume Next' aus<br />
' Debug.Print 3 / 0 ' Erzeugt keinen Fehler, wenn 'On Error GoTo 0' fehlt!<br />
</span> <span style="Color:#0000FF;">If </span>wordApp.Documents.Count <span style="Color:#993300;">=</span> <span style="Color:#00FFFF;">0 </span>Then<br />
MsgBox <span style="Color:#808080;">"Bitte das gewünschte Dokument öffnen!"</span><br />
<span style="Color:#0000FF;">Exit Sub</span><br />
<span style="Color:#0000FF;">End If</span><br />
<span style="Color:#0000FF;">Set </span>doc <span style="Color:#993300;">= </span>wordApp.ActiveDocument<br />
<span style="Color:#0000FF;">Set </span>rngWord <span style="Color:#993300;">= </span>doc.Words.Item(<span style="Color:#00FFFF;">3</span>)<br />
rngWord.Text <span style="Color:#993300;">= </span>Cells(<span style="Color:#00FFFF;">1</span>, <span style="Color:#00FFFF;">1</span>).Text <span style="Color:#993300;">&</span> <span style="Color:#808080;">" "</span><br />
<span style="Color:#0000FF;">End Sub</span></div>
Pwania