• חוקי הפורום
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ

בקשת מידע | סוגר לפני אות

מתוזמן נעוץ נעול הועבר עזרה הדדית - עימוד
18 פוסטים 6 כותבים 124 צפיות
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • U מנותק
    U מנותק
    u88
    השיב לpcinfogmach נערך לאחרונה על ידי
    #9

    @pcinfogmach דבר ראשון תודה על כל ההתיחסות
    כוונתי במספור האוטומטי שיש בתוספים שפורסמו בפורום שאני מריץ א, ב, וכו' אני רוצה שזה יהיה בצורה של א) ב) או א] ב]
    תודה רבה ותזכו למצוות

    P תגובה 1 תגובה אחרונה
    0
  • P מנותק
    P מנותק
    pcinfogmach
    השיב לu88 נערך לאחרונה על ידי pcinfogmach
    #10

    @u88
    קודם כל כמו שכתבו לך @חועגבכסככעח לעיל יש את האפשרות המובנית של וורד למיספור פיסקאות אבל זה לא תמיד שמיש אז יש עוד צורה וכנראה לזה כוונתך ליצור שדה מספור אוטומטי הנקרא SEQ

    הצורה הכי פשוטה זה ליצור אבן בניין עם השדה וכל מה שתרצה שיופיע אחריו ואז פשוט להשתמש עם זה.

    או תשתמש עם זה

    המרה עריכה והוספה לשדה מספור אוטומטי.dotm

    אם אתה מבין קצת בvba תוכל ליצור מאקרו שיקרא לאבן בניין שלך - ואז תרוויח שתוכל לעשות לזה קיצור מקשים.

    הנה קוד דוגמא באדיבות צ'אט גי פי טי (עם תיקונים קלים)

    Sub InsertExistingQuickPart()
        Dim doc As Document
        Set doc = ThisDocument ' מסמך זה
        
        Dim quickPartNameOrIndex As Variant
        quickPartNameOrIndex = "MyQuickPart" ' הזן כאן שם או מספר הזיהוי במקום MyQuickPart
        
        ' מצא את הרכיב הקיים של חלק המהיר לפי השם או המספר המזהה
        Dim bbEntry As BuildingBlock
        On Error Resume Next
        Set bbEntry = doc.AttachedTemplate.BuildingBlockEntries(quickPartNameOrIndex)
        On Error GoTo 0
        
        If bbEntry Is Nothing Then
            MsgBox "חלק המהיר לא נמצא.", vbExclamation
            Exit Sub
        End If
        
        ' הכנס את חלק המהיר במקום הנוכחי
       
        Selection.InsertAfter bbEntry ' הכנס את תוכן חלק המהיר
    End Sub
    
    
    U תגובה 1 תגובה אחרונה
    3
  • U מנותק
    U מנותק
    u88
    השיב לpcinfogmach נערך לאחרונה על ידי
    #11

    @pcinfogmach תודה רבה ותזכה למצוות !!!!

    הצעת יעול האם זה יתווסף לתוסף עיצוב תורני / וורד תורני?

    U תגובה 1 תגובה אחרונה
    1
  • U מנותק
    U מנותק
    u88
    השיב לu88 נערך לאחרונה על ידי
    #12

    @u88 את הקוד שהבאתה מעתיקים אותו לvba ???

    menajemmendelM תגובה 1 תגובה אחרונה
    0
  • menajemmendelM מנותק
    menajemmendelM מנותק
    menajemmendel
    השיב לu88 נערך לאחרונה על ידי
    #13

    @u88 כתב בבקשת מידע | סוגר לפני אות:

    @u88 את הקוד שהבאתה מעתיקים אותו לvba ???

    כן

    U תגובה 1 תגובה אחרונה
    0
  • U מנותק
    U מנותק
    u88
    השיב לmenajemmendel נערך לאחרונה על ידי
    #14

    @menajemmendel לא הצלחתי לעשות עם זה כלום

    P 2 תגובות תגובה אחרונה
    0
  • P מנותק
    P מנותק
    pcinfogmach
    השיב לu88 נערך לאחרונה על ידי
    #15

    @u88
    אולי תפרט יותר מה עשית כדי שנוכל לראות איפה הבעיה

    תגובה 1 תגובה אחרונה
    0
  • P מנותק
    P מנותק
    pcinfogmach
    השיב לu88 נערך לאחרונה על ידי
    #16

    @u88
    הכנסת את הקוד לתבנית הנורמל?

    תגובה 1 תגובה אחרונה
    0
  • P מנותק
    P מנותק
    pcinfogmach
    כתב נערך לאחרונה על ידי pcinfogmach
    #17

    @u88
    הנה קוד שלי (לא של הצ'אט) אולי יעבוד לך יותר טוב

    Private Sub ListBox1_Click()
    
     Dim oTemplate As Template
        Dim oBuildingBlock As BuildingBlock
        Dim i As Integer
        Dim myBuildingBlock As String
        
        myBuildingBlock = "החלף טקט זה  (בתוך המירכאות) בשם של האבן בניין"
    
        For Each oTemplate In Application.Templates
            For i = 1 To oTemplate.BuildingBlockEntries.Count
                Set oBuildingBlock = oTemplate.BuildingBlockEntries.Item(i)
               If oBuildingBlock.Name = myBuildingBlock Then Selection.InsertAfter oBuildingBlock
            Next
        Next
        
    End Sub
    
    תגובה 1 תגובה אחרונה
    0
  • P מנותק
    P מנותק
    pcinfogmach
    כתב נערך לאחרונה על ידי
    #18

    בניתי גם תבנית חיפוש והחלפה עם אבני בניין אם זה יעזור לך
    https://mitmachim.top/post/674259

    תגובה 1 תגובה אחרונה
    0

  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.
  • פוסט ראשון
    פוסט אחרון
0
  • חוקי הפורום
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר