Die C-SAU Bande
Geomaster
Wer gerne in der Cacheliste erkennen möchte, um welche Art und Größe es sich handelt, kann entweder GSAK erwerben und ein Makro laufen lassen oder warten, bis Garmin die Übersicht angepasst hat.
Wer M$ Word nutzt kann auch den folgenden VBA Code nutzen
1. Neues Dokument erstellen, als 'Garmin.doc' abspeichern
2. VBA öffnen (alt+F11)
auf 'garmin.doc' doppelklicken
3. Code einfügen
4. Speichern.
5 Pfad + GPX Dateiname anpassen
6 GPX_oeffnen() ausführen
fertig.
Achtung, dass Programm ist quick and dirty geschrieben.
Bei mir funktioniert es. Ich übernehme keine Gewähr, dass es auf anderen Rechnern oder GPS Kombinationen ebenfalls funktioniert.
Falls jemand den Code optimieren (Dateiauswahldialog, Sicherheitsabfragen) möchte, gerne. Aber wenn möglich, die Änderungen hier posten.
Udo
Wer M$ Word nutzt kann auch den folgenden VBA Code nutzen
1. Neues Dokument erstellen, als 'Garmin.doc' abspeichern
2. VBA öffnen (alt+F11)
auf 'garmin.doc' doppelklicken
3. Code einfügen
4. Speichern.
5 Pfad + GPX Dateiname anpassen
6 GPX_oeffnen() ausführen
fertig.
Achtung, dass Programm ist quick and dirty geschrieben.
Bei mir funktioniert es. Ich übernehme keine Gewähr, dass es auf anderen Rechnern oder GPS Kombinationen ebenfalls funktioniert.
Falls jemand den Code optimieren (Dateiauswahldialog, Sicherheitsabfragen) möchte, gerne. Aber wenn möglich, die Änderungen hier posten.
Code:
Sub GPX_oeffnen()
'
' GPX_oeffnen Makro
' Makro aufgezeichnet am 24.04.2009 von Registrierter Benutzer
'
' Dateipfad und Name anpassen!
'
ChangeFileOpenDirectory "D:\Geocaching\GPX\"
Documents.Open FileName:="2916706.gpx", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
Selection.EndKey Unit:=wdStory
Selection.Find.ClearFormatting
GPX_Parser
GPX_save
End Sub
Sub GPX_save()
'
' GPX_speichern Makro
' Makro aufgezeichnet am 24.04.2009 von Registrierter Benutzer
'
ActiveDocument.Save
End Sub
Sub GPX_Parser()
Dim cache_size As String
Dim cache_typ As String
Dim Cache_Name As String
'
' GPX_parsen Makro
' Makro aufgezeichnet am 24.04.2009 von Registrierter Benutzer
'
Do
TextFind ("container")
cache_size = GetText(1)
TextFind ("type")
cache_type = GetText(2)
TextFind ("name")
SetText cache_size, cache_type
seite = Selection.Information(wdActiveEndPageNumber)
zeile = Selection.Information(wdFirstCharacterLineNumber)
Steps = Selection.Information(wdFirstCharacterColumnNumber) - 1
If (seite = 1 And zeile <= 30) Then
Exit Do
End If
Loop
End Sub
Function TextFind(Value) As String
With Selection.Find
.Text = "<groundspeak:" & Value & ">"
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Function
Function GetText(length) As String
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=length, Extend:=wdExtend
GetText = Selection.Text
Selection.MoveLeft Unit:=wdCharacter, Count:=length, Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Function
Function SetText(cache_size, cache_type)
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Text = "[" & cache_type & cache_size & "] "
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Function
Udo