Posts

Es werden Posts vom November, 2010 angezeigt.

Liste in Excel - Seiten in Word löschen!

Frage: Wie lösche ich korrespondierende Seiten in einem Worddokument, wenn in einer Excelliste in Spalte Bkein "X" steht (Exceldatei und Worddokument müssen im selben Ordner sein)? Das abgespeckte Worddokument wird dann unter dem Namen "Test_" plus einer Zufallszahl im gleichen Ordner wie die Exceldatei abgespeichert.

Seiten in Worddatei löschen - Vorgaben aus Excel...[ZIP, 60 KB]

Option Explicit
Dim objWD AsObject
PublicSub Test()
OnErrorResumeNext
Set objWD =GetObject(,"Word.Application")
SelectCaseErr.Number
Case429
Err.Clear
Set objWD =CreateObject("Word.Application")
IfErr.Number >0Then
MsgBoxErr.Number &" "&Err.Description
Set objWD =Nothing
ExitSub
EndIf
Case0
CaseElse
MsgBoxErr.Number &" "&Err.Description
Set objWD =Nothing
ExitSub
EndSelect
OnErrorGoTo0
OnErrorGoTo Fin
Call Write_Word
Fin:
Set objWD =Nothing
IfErr.Number <>0ThenMsgBox"Fehler: "&_
Err.Number &" "&Err.Description
EndSub
Priva…

Bereich als Grafik speichern!

Frage: Wie speichere ich einen Bereich als Bild / Grafik ab? Folgend mal zwei Beispiele. Realisiert über ein "ChartObject". Im ersten Beispiel wird ein fester Bereich genommen. Im zweiten Beispiel wird der Dateiname, der Pfad und der Bereich jeweils über InputBoxen abgefragt.

Bereich als Bild / Grafik speichern...[ZIP, 80 KB]

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll"_
Alias "ShellExecuteA"(ByVal hWnd AsLong,_
ByVal Operation AsString,ByVal Filename AsString,_
Optional ByVal Parameters AsString,_
Optional ByVal Directory AsString,_
Optional ByVal WindowStyle AsLong_
= vbMinimizedFocus)AsLong
Const strPathFileNmame AsString="C:\Temp\Test123"
' Pfad- und Dateiname anpassen
Const strExt AsString="bmp"
'Const strExt As String = "jpg"
'Const strExt As String = "gif"
PublicSub Pic_Range()
Dim objDiagramm As ChartObject
Dim picGrafik As Picture
Dim rngRange As Range
OnErrorGoTo Fin
S…

Addin Applikationsweit nutzen!

Der Code eines Addin soll Applikationsweit zur Verfügung stehen also auch noch, wenn "Datei - Neu..." ausgeführt wird. Hier mal an einem Beispiel in dem abhängig vom Zoom und der Bildschirmauflösung bei erreichen einer bestimmten Zelle diese automatisch nach oben gescrollt wird. Mit den Funktionstasten F5 / F6 kann die Funktion ein- bzw. ausgeschaltet werden. Ist jetzt exemplarisch nur für Auflösung "1280 x 1024" und "1024 x 768". Weitere Auflösungen, Zoom bzw. andere Einschränkungen können natürlich nach belieben angepasst werden. :-)

Klassenmodul, Scrollen mit Zoom und Auflösung... [ZIP, 90 KB]

Code gehört in "DieseArbeitsmappe"

Option Explicit
PrivateSub Workbook_Open()
Application.OnKey "{F5}","Application_Ereignis.An"
Application.OnKey "{F6}","Application_Ereignis.Aus"
Call An
EndSub
PrivateSub Workbook_Deactivate()
Application.OnKey "{F5}"
Application.OnKey "{F6}"
Call Aus
En…

Bestimmte PDF-Datei schließen!

Wie lässt sich eigentlich eine bestimmte PDF-Datei schließen, wenn mehrere offen sind? Das PDF-Programm pauschal abschießen schließt ja alle offenen Dokumente - ist hier also nicht erwünscht. Nachfolgend zwei Möglichkeiten. Bei der ersten Lösung wird nach der kompletten Caption gesucht und das entsprechende Dokument geschlossen. Bei der zweiten Lösung ist nur der Name des Dokumentes relevant - Quellangaben im Code:

Code:

Option Explicit
' Quelle: http://support.microsoft.com/kb/q176391/
Private Declare Function FindWindow Lib "user32"_
Alias "FindWindowA"(ByVal lpClassName AsString,_
ByVal lpWindowName AsString)AsLong
Private Declare Function PostMessage Lib "user32"_
Alias "PostMessageA"(ByVal hwnd AsLong,_
ByVal wMsg AsLong,ByVal wParam AsLong,_
ByVal lParam AsLong)AsLong
Private Declare Function OpenProcess Lib "kernel32"_
(ByVal dwDesiredAccess AsLong,ByVal bInheritHandle AsLong,_
ByVal dwProcessId AsLong)AsLong
Private Declare Func…