Verwandte Themen

Lucasxh292
11.02.2021, 18:36
Beitrag wurde 1 Mal erneut eingestellt
Bei Serienbrief Dokumente einzeln Speichern mit Makro funktioniert nicht?
Ich möchte die Dokumente im Serienbrief einzeln automatisch speichern mittels Makro und habe das unten angefügte Makro dafür auch gefunden aber es funktioniert bei mir noch nicht sondern debugt immer und zeigt Fehler in der Variable an. Ich hab auch den Pfad schon auf mein Dokument angepasst. Muss ich evtl noch den Dateinamen ändern?

Sub Test()
 '
 ' Serienbrief in einzelnen Word Dokumenten speichern
 '
 Dim Dateiname As String
 Dim LetzterRec As Long
     
 Application.ScreenUpdating = False
 Application.Visible = False

 Const path As String = "C:\Test\"          'Pfad anpassen
 ActiveDocument.MailMerge.DataSource.ActiveRecord = wdLastRecord
 LetzterRec = Word.ActiveDocument.MailMerge.DataSource.ActiveRecord
 ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord


     With ActiveDocument.MailMerge
         .DataSource.ActiveRecord = wdFirstRecord
         Do
             If .DataSource.ActiveRecord > 0 Then
                If .DataSource.DataFields("VorNachname").Value <> "0" Then
                     .Destination = wdSendToNewDocument
                    .SuppressBlankLines = True

                     With .DataSource
                         .FirstRecord = .ActiveRecord
                         .LastRecord = .ActiveRecord
                
                         Dateiname = path & .DataFields("VorNachname").Value & ".docx"
                
                     End With
                        .Execute Pause:=False
                 
                         ActiveDocument.SaveAs FileName:=Dateiname           'Speichern unter Dateiname
                        ActiveDocument.Close False
                 End If

               End If
               
             If .DataSource.ActiveRecord < LetzterRec Then
                 .DataSource.ActiveRecord = wdNextRecord
             Else
                 Exit Do
             End If
         Loop
     End With
     
     Application.Visible = True
     Application.ScreenUpdating = True
 End Sub
Computer, Microsoft Word, Technik, Makro, VBA
1 Antwort
masamune789
11.02.2021, 17:43
Man hört alles durch mein Rode NT1A Mikrofon, sogar meine Musik auf dem Headset. Was tun?

Hallo, ich habe schon sehr lange das Rode NT1A Mikrofon und habe es ewig mit dem Behringer Xeny302 USB benutzt. Da ich allerdings dort keine 48V Phantomspannung hatte, und ich auch etwas rauschen leider dadurch immer hatte, hab ich mich dazu entschieden von Focusrite das Focusrite Scarlett Solo 3rd Gen zu kaufen. Ich wollte halt einfach meine Qualität für die Aufnahmen verbessern.

Jetzt wo ich alles eingerichtet und angeschlossen habe, habe ich eine Aufnahme gemacht und das Problem ist, man hört dort meine Musik durch mein Headset in durch das Mikrofon. (Es ist kein super hight Qualitity headset aber es tut was es soll.) Man hört außerdem leichte Hintergrundgeräusche sehr deutlich (z.b. mein Opa der eine Etage unterhalb etwas lauter Fernsehen schaut). Und zuvor gab es das Problem ja auch nicht mit dem vorherigen Mischpult.

Habe jetzt auch ein Studio Headset, das komplett abgeschirmt ist bestellt um zu testen ob das vielleicht etwas abhilfe schaffen kann. Jedoch wären dann trotzdem noch die sehr auffälligen hintergrundgeräusche die auftreten könnten (Zuvor konnte man die nie hören).

Jetzt ist die Frage, sollte das Focusrite nicht eigentlich diese Headset geräusche weg filtern. Oder ist mein Mikrofon in der Kombination einfach zu gut und ich muss versuchen alles besser abzuschirmen? Ist das wirklich normal? Hat jemand damit Erfahrungen gemacht?

Computer, Musik, Audio, Technik, Mikrofon, Audiotechnik, livestreaming, Mischpult, Technologie, Aufnahmegerät
4 Antworten
Schuldestroyer
11.02.2021, 08:14
Beitrag wurde 1 Mal erneut eingestellt
Spigot 1.16.5 Gui funzt einfach nicht was tun?

Hey ich habe dieses gui für mein plugin geschrieben an sich funktioniert der inventory teil aber das if statement will einfach nicht ich habe mehrere guis im plugin die genau gleich aufgebaut sind(den code auch schon einmal kopiert und in anderer funktion benutzt wo es ohne probleme fuktioniert hat. Es gibt keine Errors es öffnet sich einfach nicht.


	@SuppressWarnings("unlikely-arg-type")
	public void onClickKit(PlayerInteractEvent e) {
		Player p = e.getPlayer();
		try {
			if (p.getInventory().getItemInMainHand().equals(Material.CHEST)) {
					Inventory Stats = Bukkit.createInventory(null, InventoryType.DISPENSER, "§9§lKits");
					(new Methods()).setPlaceholder(Stats);
					ItemStack Item1 = new ItemStack(Material.SANDSTONE, 32);
					ItemMeta meta1 = Item1.getItemMeta();
					meta1.setDisplayName("§8➟ §6Sandstone");
					List<String> lore1 = new ArrayList<String>();
					lore1.add("You can run, but you can't hide...");
					meta1.setLore(lore1);
					Item1.setItemMeta(meta1);


					ItemStack Item2 = new ItemStack(Material.BOW, 1);
					ItemMeta meta2 = Item2.getItemMeta();
					meta2.setDisplayName("§8➟ §2Sniper");
					List<String> lore2 = new ArrayList<String>();
					lore2.add("");
					meta2.setLore(lore2);
					meta2.addEnchant(Enchantment.ARROW_KNOCKBACK, 2, true);
					Item2.setItemMeta(meta2);


					ItemStack Item3 = new ItemStack(Material.SNOWBALL);
					ItemMeta meta3 = Item3.getItemMeta();
					meta3.setDisplayName("§8➟ §fSnowman");
					List<String> lore3 = new ArrayList<String>();
					lore3.add("§3Keep your Enemies on Distance.");
					meta3.setLore(lore3);
					Item3.setItemMeta(meta3);


					Stats.setItem(0, Item1);
					Stats.setItem(4, Item2);
					Stats.setItem(8, Item3);
					p.openInventory(Stats);
					p.playSound(p.getLocation(), Sound.BLOCK_NOTE_BLOCK_BELL, 2.0F, 1.0F);
				}
		} catch (Exception exception) {


		}
	}

LG

Computer, programmieren, Java, Minecraft, Minecraft Server, GUI, Spigot, Minecraft Plugin
3 Antworten

Meistgelesene Beiträge zum Thema Computer
Mehr meistgelesene Fragen zu Computer