Sub sugryim() Application.ScreenUpdating = False again: If Selection.Find.Execute(findText:="\(*\)", MatchWildcards:=True, Wrap:=wdFindStop) = True Then strt = 2: lent = Len(Selection.Text) re: For i = strt To lent If Mid(Selection.Text, i, 1) = Chr(40) Then Selection.Extend Character:=Chr(41) strt = i + 1: lent = Len(Selection.Text) GoTo re End If Next With Selection .Font.SizeBi = Selection.Font.SizeBi -2 .Collapse (wdCollapseEnd) End With GoTo again End If Application.ScreenUpdating = True End Sub
ווי אזוי שטעל איך אריין די מעקרא, און ווי אזוי באנוץ איך זיך דערמיט?
מיין מעקראס אין ווארד האבן אויפגעהערט צו ארבעטן. ווען איך גיי אריין אין די ליסט פון מיינע מעקראס איז גארנישט דא דארט. ווען איך וויל אריין אין די מעקראס דארט ווי מען שרייבט זיי קומט ארויף די הודעה. קוקט אויס אדער נעלם געווארן אדער געווארן געדעמדזשט. עני העלפ? (עס איז געשעהן נאך א ריסטארט פון עפעס א אפדעיט פון מייקראסאפט אאוטלאק, האט קשר?)
יעך האב ריקארדעד א מעקראו ס'דא דארט אזא שורה [offtopic]Selection.PasteAndFormat (wdUseDestinationStylesRecovery)[/offtopic] און סקרעשט ביי די שורה דריק איך דיבאג איז היילייטעט די שורה אבער דריק איך F5 אז ס'זאל ענדיגען ראננען ארבעט ער פיין וואס איז די פראבלעם?
קענדי'ס האט געשריבן:
זעהט אויס די עולם קען נישט קיין VBA
אדער... די גיבסט נישט גענוג אינפא צו קענען טראבעלשאטן. די ליין זאגט סך הכל אז ער זאל פעיסטן און ניצן אויף וואס ער פעיסט די סטייל פארמעט פונעם דעסטינעישן דאקיומענט. יעצט איז די שאלה וואס האסטו געקאפיט, דהיינו וואס זענען דיינע ליין'ס פאר דעם.
ווילסט די גאנצע נאו פראבלעם [offtopic]
Sub INVENTORY_UPDATE1() ' ' INVENTORY_UPDATE Macro ' ' With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With Selection.WholeStory Selection.Copy Documents.Open FileName:="C:\Users\{username}\Desktop\GP MACRO\INVENTORY UPDATE - Copy.mac" Selection.WholeStory Selection.PasteAndFormat (wdUseDestinationStylesRecovery) ActiveDocument.Save ActiveWindow.Close ActiveWindow.Close SaveChanges:=False End Sub
[/offtopic] פארוואס איך האב נישט געברענגט די גאנצע איז ווייל איך האלט ס'איז נישט וויכטיג איך דריק F5 גייט עס ווייטער איז די מעקראו זעהט מיר אויס צי זיין א גוט אבער דא האסטו
די פייל איז א מעקראו פייל פאר DYNAMICS GP ס'איז אנגשעטלט ס'זאל זיך עפענען ביי דיפאולט צי ווארד כדי צי קענען אפדעיטן די אינווענטארי האב איך א עקסעל שיט וואס פון דארט מאך איך א מעיל מערדטש איז איך עפען אויף די מעיל מערדטש ווארד פייל און איך ראן די ווערד מעקראו וואס מאכט די מעיל מערדטש און ער עפענט אויף די מעקראו פייל צי קאפיען די מעיל מערדטשט פייל און ער סעיווט זיך און מאכט צי די אנדערע פייל אן סעיווען די ערראר איז אזוי
קענדי'ס האט געשריבן:
די פייל איז א מעקראו פייל פאר DYNAMICS GP ס'איז אנגשעטלט ס'זאל זיך עפענען ביי דיפאולט צי ווארד כדי צי קענען אפדעיטן די אינווענטארי האב איך א עקסעל שיט וואס פון דארט מאך איך א מעיל מערדטש איז איך עפען אויף די מעיל מערדטש ווארד פייל און איך ראן די ווערד מעקראו וואס מאכט די מעיל מערדטש און ער עפענט אויף די מעקראו פייל צי קאפיען די מעיל מערדטשט פייל און ער סעיווט זיך און מאכט צי די אנדערע פייל אן סעיווען די ערראר איז אזוי
QSj0d77adn.png
עגעין, אן די אנדערע מעקראו און א סעמפעל פייל בינעך נישט זיכער איינער קען דיר העלפן.
אבער, איין שאלה נאר: וואס האסטו מחליט געווען אז עס קרעשט ביי די שורה? מאך אויף דיבאג און פאר אריבער שורה נאך שורה און זע וואו עס קרעשט.
"אייער צופרידנהייט, מיין הנאה." -מיך אליינס...
נישט אייביג קום איך אן צו אלעס, אויב איינער האלט איך קען בייהילפיג זיין פאר עפעס דא קען מען מיר צושיקן א לינק דערצו אין אימעיל[email protected]