Unwanted and false smart quotes in comments

Hallo Burkhard,

meine Wordversion zeigt mir weiterhin noch keine "Modernen Kommentare". Allerdings findet sich auch kaum positives Feedback dazu:
<br />Word: Modern Comments means the price goes up as productivity takes a massive hit | CyberText Newsletter (wordpress.com)
<br />Word: Testing Modern Comments and issues found | CyberText Newsletter (wordpress.com)
<br />Introducing Modern Comments in Microsoft Word - Microsoft Tech Community
<br />Viele Grüße
<br />Lisa
<br />

Hallo Peter,

dann mache es mit VBA:

Public Sub KommentareFormatieren()

Dim com As Comment

Application.ScreenUpdating = False



For Each com In ActiveSheet.Comments



'Ausrichtung

With com.Shape.TextFrame

.VerticalAlignment = xlVAlignBottom

.AutoSize = True

End With



'Schriftzeichen

With com.Shape.TextFrame.Characters.Font

.Bold = False

.ColorIndex = xlAutomatic

.Name = "Times New Roman"

.Size = 10

End With

Next com

Application.ScreenUpdating = True

End Sub

Mit freundlichen Grüßen

Claus

Hallo Michael,

Ich bitte Um Auskunft läuft die Sychronisation Kies oder Smart Switch von Samsung mit Office 365 ( outlook 2016 ) unter Windows 10 ja oder nein ???

diese Auskunft kann dir nur Samsung geben. Bitte frage dort nach, ob Samsung Kies und Samsung Smart Switch mit Outlook 2016 kompatibel sind oder nicht.

Gruß,

Pauline

Ich habe das Problem identifziert. Es lag an einem Add-In namens "SMART Ink", welches automatisch aktiviert wurde, weil es bereits auf dem System installiert war.

Hallo Florian,

wenn du das Workbook schließt, ist der Range nicht mehr definiert.

Ändere die Reihenfolge:

If varFile = False Then
 Exit SubElse
 Set wbkDates = Workbooks.Open(varFile)
End IfSet rngDatesI = wbkDates.ActiveSheet.UsedRange
Set rngDateI = rngDatesI.Range("A:A").Find(m_datEventDay)
varDates = rngDatesI.Range("A" & rngDateI.Row).Offset(-5).Resize(11)
wbkDates.Close (False)

Claus