王掌柜您好,由于我老板的个人便好,我需要将ppt字体全部统一成中文“华文细黑”,英文“arial”,我自己在网上抄了一个vba的宏来做这个事情,但是只能解决文本框的部分,表格内的文本不能统一刷,请问这个问题您有什么更好的解决方案吗,非常感谢.
Sub change()
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
Set oTxtRange = oShape.TextFrame.TextRange
If Not IsNull(oTxtRange) Then
With oTxtRange.Font
.Name = “Arail” ‘更改为需要的英文字体
.NameFarEast = “华文细黑” ‘改成需要的字体(用nameFareast改中文字体)
End With
End If
Next
Next
End Sub
注册了一个,但是好像不能添加到thunderbird
https://protonmail.com/support/knowledge-base/imap-smtp-and-pop3-setup/
刚刚收听节目的时候,出现了播放1分多钟以后,音频重新播放的情况,但是进度条仍然在1分多钟位置,如此几次,请问掌柜,是我的电脑问题么?
手机订阅下载节目
王掌柜:请教下,安卓手机有没有快速更换VPN的软件啊?我去年买的三年的服务,换了安卓5的手机他们就不支持了,渣渣啊,代理要经常要换,每次输入IP口令不方便啊,最好能导入个什么列表,然后在软件里面换。
另外,安卓手机听会员节目,AntennaPod目录能刷出来,下载永远不成功?流媒体也很慢
https://geek.wasai.org/redbook
王掌柜您好,由于我老板的个人便好,我需要将ppt字体全部统一成中文“华文细黑”,英文“arial”,我自己在网上抄了一个vba的宏来做这个事情,但是只能解决文本框的部分,表格内的文本不能统一刷,请问这个问题您有什么更好的解决方案吗,非常感谢.
Sub change()
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
Set oTxtRange = oShape.TextFrame.TextRange
If Not IsNull(oTxtRange) Then
With oTxtRange.Font
.Name = “Arail” ‘更改为需要的英文字体
.NameFarEast = “华文细黑” ‘改成需要的字体(用nameFareast改中文字体)
End With
End If
Next
Next
End Sub
安装免费的wps办公套装软件,用里面的ppt制作