@שמואל-ש
העתק ידנית את כל התיקיה oruxmaps מזכרון מקומי לכרטיס ולאחר מכן את התיקיה Israel Hiking שהורדת לoruxmaps/mapfiles שנמצאת כבר בכרטיס
ועכשיו פתח את האפלקצייה
תכנס להגדרות כלליות\מפות\ספרית מפות, יש למעלה סימון של כרטיס זכרון תלחץ על האיקון ,יפתח לך התיקיות של הכרטיס תכנס לoruxmaps תופיע התיקייה mapfiles משמאל יש ריבוע סמן אותו ואשר. [יכול להיות שצריך לשנות גם "תיקיית נתוני dem" לתקיית oruxmaps שבכרטיס באותה צורה כמו שהעדכנת את "ספריית מפות"]
ואח"כ הכנס להחלף מפה כמו שמובא בהוראות למעלה ורענן...
בהצלחה.

@es0583292679
ניתן להגדיר בתחילת המאקרו שישמור את מיקום הסמן הנוכחי בשם ובסוף המאקרו יחזור לטווח המוגדר
דוגמא

Public Sub חדש()

Dim A, Ignore As Double
' שומר מיקום נכוחי כ MY
Set My = Selection.range
'בוחר כל העמוד
Set MyRange = ActiveDocument.Bookmarks("\page").range
MyRange.SetRange Start:=MyRange.Start, End:=MyRange.End
MyRange.Select
'סופר שורות
  A = ActiveDocument.Bookmarks("\page").range.ComputeStatistics(wdStatisticLines)
   MsgBox A
   'חוזר למיקום הראשון
My.SetRange Start:=My.End, End:=My.End
My.Select

End Sub

@אבי-0
1 השגיאה היא חוסר ב סוף אם (End If) כעת תקנתי
`2 יש להוסיף אחרי המאקרו שהביא`` @NykUser שמגדיר הפרש בין טורים ומגדיר גובה טור 1 וגובה טור 2 והוספה שלי מגדירה בסיום המאקרו לעבור לשורה השווה לגובה טור 1 שהיא השורה האחרונה בטור הימני
להלן הקוד המלא אם החלק הראשון שבנוי על הקוד שהביא @NykUser ובתוספת שכתבתי

Public Sub שורה_אחרונה_בטור()
'בודק אם יש שני טורים
If Selection.PageSetup.TextColumns.Count <> 2 Then MsgBox ("לא נמצאו 2 טורים"): Exit Sub
'עדכון מסך שקר
Application.ScreenUpdating = False
Dim WRange As range
Dim NumLines, col1, col2, Ignore As Double
'מספר שורות כולל בשני טורים

NumLines = ActiveDocument.Bookmarks("\page").range.ComputeStatistics(wdStatisticLines)
ActiveDocument.Bookmarks("\page").range.Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1
'מגדיר אורך טור 1
For i = 1 To NumLines
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
   If col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then
        Exit For
    Else
        col1 = Selection.Information(wdVerticalPositionRelativeToPage)
    End If
    
Next
'עובר לשורה ראשונה בעמוד
Set MyRange = ActiveDocument.Bookmarks("\page").range
    MyRange.SetRange Start:=MyRange.Start, End:=MyRange.Start
    MyRange.Select
'רד לשורה אחרונה בטור
    For i = 1 To NumLines
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    If col1 = Selection.Information(wdVerticalPositionRelativeToPage) Then
    Exit For
    ElseIf col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then

    End If
    Next
    
End Sub

@אבי-0 כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:
ניתן לעבור בלולאה על כל השורות עד שמוצא את השורה אם גובה כמו שהוגדר לגובה טור 1
דוגמא (גובה טור 1 בדוגמא מוגדר ב col1 )

'הולך לשורה הראשונה בעמוד
Set MyRange = ActiveDocument.Bookmarks("\page").range
    MyRange.SetRange Start:=MyRange.Start, End:=MyRange.Start
    MyRange.Select
'רד לשורה אחרונה בטור
    For i = 1 To NumLines
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    If col1 = Selection.Information(wdVerticalPositionRelativeToPage) Then
    Exit For
    ElseIf col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then

@אבי-0
1 השגיאה כיוון שהכנסת אותה בתוך פקודת מאקרו אאא הקוד שהבאתי הוא פקודה מלאה יש להעתיקו לעורך ולהפעיל מאקרו שורה_אחרונה _בטור מתוך רשימת המאקרו שלך
2 צריך לפעול לא ניסיתי