Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


[Word und Excel] Telefonnummern wählen
#1
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
[-] Folgende(r) 1 Benutzer sagt Danke an mumpel für diesen Beitrag:
nobody
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  [Word / Excel] Word und Excel als Emailanhang mumpel 0 1.261 17.01.2015, 00:28
Letzter Beitrag: mumpel
  [Excel] Word-Dokument als Deckblatt verwenden WillWissen 0 906 29.05.2014, 09:59
Letzter Beitrag: WillWissen

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste