[Word und Excel] Telefonnummern wählen

[mumpel]

Sie möchten Telefonnummern aus Excel und Word wählen? Voraussetzung ist ein TAPI/CIT-fähiges Telekommunikationsendgerät (Festnetztelefon, Telefonanlage, Mobiltelefon mit passendem Treiber).

Excel:

In ein Standardmodul:

Declare Function tapiRequestMakeCall Lib "Tapi32.dll" _
(ByVal DestAddress As String, ByVal AppName As String, _
ByVal CalledParty As String, ByVal Comment As String) As Long

Sub Telefonieren(TelefonNr$, derName$)
Dim retval As Long
retval = tapiRequestMakeCall(TelefonNr, "", derName, "")
If retval <> 0 Then
MsgBox "Beim Verbindungsaufbau ist ein Fehler aufgetreten!"
End If
End Sub




VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel

Code erstellt und getestet in Office 15

In den Codebereich der Tabelle (Makro wird per Doppelklick in die Zelle ausgelöst):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then Anrufen 'Die Zahl entspricht der Spalte mit der Telefonnummer 
Cancel = True
End Sub
Sub Anrufen()
Dim A$
A$ = ActiveCell.Value
Telefonieren A, "C:\WindowsNT\Dialer.exe"
End Sub



VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel

Code erstellt und getestet in Office 15

Auch in Worddokumenten lassen sich Telefonnummern wählen. Jedoch kann man das in Word nur mit einem Template (Vorlage) global verfügbar machen.
Der Code muss in ein Standardmodul. Das Dokument dann als Template (*.dot, *.dotm) speichern und in den Startup-Ordner verschieben. Das Makro "WählHilfeAufrufen" einfach in die Schnellzugriffleiste oder in das Menüband bzw. in eine Symbolleiste (je nach Officeversion) legen. Zum Wählen die Telefonnummer markieren und auf die Schaltfläche klicken.

Option Explicit
Declare Function tapiRequestMakeCall Lib "Tapi32.dll" _
(ByVal DestAddress As String, ByVal AppName As String, _
ByVal CalledParty As String, ByVal Comment As String) As Long

Sub Telefonieren(TelefonNr$, derName$)
Dim retval As Long
retval = tapiRequestMakeCall(TelefonNr, "", derName, "")
If retval <> 0 Then
MsgBox "Beim Verbindungsaufbau ist ein Fehler aufgetreten!"
End If
End Sub

Sub WählHilfeAufrufen()
On Error Resume Next
Dim cancel As Boolean
Dim A$
A$ = Selection
Telefonieren A, "  "
cancel = True
End Sub



VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel

Code erstellt und getestet in Office 15